произвольное изменение числа

← →
Kosyak (2006-04-17 10:24) [0]

Здравствуйте! Подскажите пожалуйста как сделать так, чтобы по каждому нажатию кнопки менялось число в диапазоне от 1 до 80 в произвольном порядке (т.е. не по порядку), при этом не повторялись.
Заранее спасибо!

← →
Ega23 © (2006-04-17 10:30) [1]

Если не повторялось - то сложнее. А так - Random + F1

← →
kilkennyCat © (2006-04-17 10:34) [2]

Вопрос неоднозначен.

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

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

← →
kilkennyCat © (2006-04-17 10:38) [3]

randomize; N := 0; ..... var N, newN : byte; begin repeat newN := Random(80) + 1; until N = newN; N := newN; end;

так точнее :)

← →
Anatoly Podgoretsky © (2006-04-17 11:14) [4]

Что будешь делать после 80го нажатия?

← →
ANB © (2006-04-17 11:22) [5]

> Kosyak (17.04.06 10:24)

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

И после 80 генерации получаем зависание программы.

после 80 нажатия выводим сообщение, что кончились все цифры

произвольное изменение числа Найти похожие ветки