purebasic.info

PureBasic forum
Текущее время: Ср апр 25, 2018 1:50 pm

Часовой пояс: UTC + 3 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: как найти страницу?
СообщениеДобавлено: Пн ноя 13, 2017 7:40 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 578
Благодарил (а): 60 раз.
Поблагодарили: 18 раз.
Пункты репутации: 5
поиск по коду вообще не ищет, половину слов игнорит
страницу с этим кодом хочу найти
и поделитесь, как по коду икать

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim Num(9)
     
    For i = 0 To 9
      Rand:
   Num(i)=Random(9)
      For n=0 To i
        If Num(i)=Num(n) And i<>n:Goto Rand:EndIf
      Next
    Next
     
    ;*******Проверка*******
    For i = 0 To 9
      Debug Num(i)
    Next



Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: как найти страницу?
СообщениеДобавлено: Пн ноя 13, 2017 8:09 am 
Не в сети
профессор

Зарегистрирован: Сб фев 06, 2016 6:18 pm
Сообщений: 258
Благодарил (а): 14 раз.
Поблагодарили: 29 раз.
Пункты репутации: 0
Пробую через гугл:
http://purebasic.info/phpBB3ex/viewtopic.php?p=29654#p29654
http://purebasic.info/phpBB3ex/viewtopic.php?p=29656#p29656


Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: как найти страницу?
СообщениеДобавлено: Пн ноя 13, 2017 8:48 am 
Не в сети
МОДЕРАТОР

Зарегистрирован: Вт дек 05, 2006 8:46 am
Сообщений: 6246
Благодарил (а): 17 раз.
Поблагодарили: 182 раз.
Пункты репутации: 48
newJS писал(а):
и поделитесь, как по коду икать

Я уже не раз давал код поисковика по всем форумам. Исходник есть на английском форуме в закреплённой теме с исходниками.
Тут готовая программа. Твой код ищется по фразе "If Num(i)=Num(n) And i<>n:Goto Rand:EndIf" и как оказалось, я его постил :)
Но он точно плохой, Пётр ниже дал лучшее решение.


Вложения:
Комментарий к файлу: Поисковик по всем форумам
SearshPB.zip [27.84 KiB]
Скачиваний: 31

_________________
read-only
Вернуться наверх
 Профиль  
 
 Заголовок сообщения: Re: как найти страницу?
СообщениеДобавлено: Вт ноя 14, 2017 7:27 am 
Не в сети
профессор

Зарегистрирован: Вт май 13, 2014 4:12 am
Сообщений: 578
Благодарил (а): 60 раз.
Поблагодарили: 18 раз.
Пункты репутации: 5
kvitaliy писал(а):
Но он точно плохой, Пётр ниже дал лучшее решение.

да, поэтому и искал
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 вариант с одним циклом в несколько раз быстрее тех что предложил ты и Пётр
 
Dim Num(19)
NewMap m.s()
n=0
u=0
While u<>20
k=Random(19)
m("k"+k); элемент добавится только если это новый ключ
If MapSize(m())<>u; если добавился новый элемент
num(u)=k; добавляем его в массив
u+1
EndIf
n+1
;Debug k
Wend
 
Debug "======   "+n
n=0
While n<>20
Debug num(n)
n+1
Wend


и вариант Петра
Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim Num(19) 
u=0
     For i = 0 To 19  
     Num(i)=Random(19)
       For n=0 To i
u+1
         If Num(i)=Num(n) And i<>n:i-1: Break:EndIf
       Next
     Next
Debug "-----  "+u
     ;*******Проверка*******
     For i = 0 To 9
       Debug Num(i)
     Next


посмотрите на разницу в количестве итераций


Вернуться наверх
 Профиль  
 
Показать сообщения за:  Сортировать по:  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на форуме

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group (блог о phpBB)
Сборка создана CMSart Studio
Русская поддержка phpBB