Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

произвольное изменение числа [D7, 2000, XP]

Kosyak © (2006-04-17 10:24:00)
Здравствуйте! Подскажите пожалуйста как сделать так, чтобы по каждому нажатию кнопки менялось число в диапазоне от 1 до 80 в произвольном порядке (т.е. не по порядку), при этом не повторялись.
Заранее спасибо!

mlm68 (2006-04-17 12:34:00) [1]
после 80 нажатия выводим сообщение, что кончились все цифры

Anatoly Podgoretsky (2006-04-17 11:45:00) [2]
И после 80 генерации получаем зависание программы.

ANB (2006-04-17 11:22:00) [3]

> Kosyak (17.04.06 10:24)

Чтобы не повторялось, надо хранить предыдущие значения и повторы откидывать.

Anatoly Podgoretsky (2006-04-17 11:14:00) [4]
Что будешь делать после 80го нажатия?

kilkennyCat (2006-04-17 10:38:00) [5]
randomize; N := 0; ..... var N, newN : byte; begin repeat newN := Random(80) + 1; until N = newN; N := newN; end;

так точнее :)

kilkennyCat (2006-04-17 10:34:00) [6]
Вопрос неоднозначен.

вот один вариант (меняем newN):

randomize; N := 0; ..... var N, newN : byte; begin newN := Random(80) + 1; if N <> newN then newN := N; end;

Ega23 (2006-04-17 10:30:00) [7]
Если не повторялось - то сложнее. А так - Random + F1

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »