|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.07.2018, 22:04 | #21 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
Код:
программа — запись алгоритма на языке понятном транслятору
|
10.07.2018, 14:34 | #22 |
Пользователь
Регистрация: 19.05.2018
Сообщений: 27
|
evg_m, спасибо! Подтолкнул на идею, я понял в чем проблема была. Суть в том оказалась что когда записывал ответ и жал на кнопку сначала проходила генерация нового примера и переменная меняла значение. Спасибо! Ниже исправленный код.
timer:=timer+1; v:=x+y; m:=strtoint(edit1.Text); if(m=v) then begin p:=p+1; statusbar1.Panels.Items[1].Text:=inttostr(p); end; if(m<>v) then begin t:=t+1; statusbar1.Panels.Items[2].Text:=inttostr(t); end; if(timer=30) then begin button2.Visible:=false; button1.Visible:=false; end; edit1.clear; randomize; x:=random(1000)-500; label1.Caption:=inttostr(x); y:=random(1000)-500; label3.Caption:=inttostr(y); |
10.07.2018, 14:37 | #23 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
10.07.2018, 22:50 | #24 |
Старожил
Регистрация: 04.02.2011
Сообщений: 4,620
|
#7 Я уж и сам разобрался, что не в ту степь; убил пост, но успели прихватить
|
11.07.2018, 02:17 | #25 | |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,894
|
Цитата:
Ну да. Такую рекомендацию можно встретить в некоторых книжках типа "Дельфи больше чем за 21 день". Но вот на чём она основана? И в чём её суть? Об этом не говорится нигде. Кроме самых-самых ранних книжек, которые уже хрен найдёшь. </OFFTOP> |
|
11.07.2018, 02:21 | #26 |
ПШП
Участник клуба
Регистрация: 15.07.2013
Сообщений: 1,894
|
А вот почему процедура Randomize до сих пор требует ручного вызова лично я не понимаю.
|
11.07.2018, 07:16 | #27 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Каждый раз без неё будет генерироваться одна и та же последовательность чисел
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
11.07.2018, 09:44 | #28 | |||
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Цитата:
Вполне могли и в компиляторе Delphi такое же замутить. Цитата:
я мог бы об этом рассказать. и, думаю, что не только я, очень многие (включая и Вас) это знают. Но я не уверен, что это та информация, которой надо забивать голову (особенно новичкам). Им достаточно знать, что иницилизацию ГПСЧ нужно вызывать один раз. всё. Остальное - для них неважно (как, например, знать, какая полиноминальная функция используется для ГПСЧ ) |
|||
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Странная ошибка | pufystyj | Общие вопросы C/C++ | 16 | 08.07.2012 15:15 |
Странная ошибка. | WTI | Общие вопросы Delphi | 3 | 10.04.2012 18:39 |
странная ошибка | Психвоплоти | Помощь студентам | 0 | 23.02.2011 15:01 |
Странная ошибка | Dux | SQL, базы данных | 5 | 23.03.2010 12:16 |
Странная ошибка | Washington | БД в Delphi | 2 | 16.03.2007 18:13 |