|
Модераторы: Poseidon, Snowy, bems, MetalFan |
|
Михалыч |
|
|||
Опытный Профиль Группа: Участник Сообщений: 468 Регистрация: 1.7.2008 Репутация: нет Всего: нет |
Нужно составить пример , вот такой 19-12-4, соответственно числа подставляются случайно, каждое число это Label.
Делаю так, но иногда программа виснет на прочь. А иногда и не виснет. Подскажите как правильно сделать?
-------------------- За частый поиск был забанен во всех известных поисковых системах. Обиженных комодераторов: 1 |
|||
|
||||
ТоляМБА |
|
|||
Котэ Профиль Группа: Завсегдатай Сообщений: 1607 Регистрация: 15.12.2004 Репутация: нет Всего: 252 |
пусть
k=1, p=2 условие until p > k; срабатывает. sum:=p-k; //sum = 2-1=1 условие until sum > r; подразумевает окончание цикла при условии что число 1 (sum) будет больше чем число ® из диапазона значений от 1 до 20 чего не случится никогда, получаем бесконечный цикл. То есть при любых вариантах в которых выполняется p - k=1 программа будет уходить в бесконечный цикл. |
|||
|
||||
ТоляМБА |
|
|||
Котэ Профиль Группа: Завсегдатай Сообщений: 1607 Регистрация: 15.12.2004 Репутация: нет Всего: 252 |
При k=20 и p=20 условие
until p > k; не сработает и мы получим заведомо лишнюю итерацию, поэтому лучше записать k := RandomRange(1, 19); |
|||
|
||||
Правила форума "Delphi: Общие вопросы" | |
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |