[Vladislav]

mini Задачка:
При нажатии на кнопку:

Сгенерировать случ. число (назовем его SNum) (от 1 до 20)
Циклом for:
- При каждом "проходе" цикла:
-- генерировать число в диапазоне 5-50 (назовём его FNum)
-- Добавлять в memo(add line) текст ('Случайное число:'+Fnum)
"Проходов" цикла должно быть столько, скольки равно случайное число (SNum).

Огромное спасибо тому, кто поможет.

[lmikle]

Есть стандартная функция Random. Точнее 2 ее реализации. Первая, без параметров, возвращает тебе число х, такое, что 0 <= x < 1. Вторая (она, возможно, в модуле Math) имеет параметр - целое число (пусть N) и возвращает тоже целое число i, такое, что 0 <= i < N. Из первой во вторую преврящяется так:

Код:

1	RandomN := Int(Random * N);

Если тебе надо от 1 до N включительно, то просто к результату добавь 1.

Т.е. твоя задача делается так:

Код:

1 2 3 4 5 6 7 8 9 10 11

var   I : Integer;   SNum, FNum : Integer; begin   SNum := Int(Random * 20) + 1;   For I := 1 To 20 Do     Begin        FNum := Int(Random * 45) + 5;        // А здесь добавляешь в Memo     End; end;

или

Код:

1 2 3 4 5 6 7 8 9 10 11

var   I : Integer;   SNum, FNum : Integer; begin   SNum := Random(20) + 1;   For I := 1 To 20 Do     Begin        FNum := Random(45) + 5;        // А здесь добавляешь в Memo     End; end;

PS. Добавление делай сам. Хоть что-то ты должен сам сделать.

[beavi5]

RandomRange(x,y)
гинерирует случайное число в пределах от X до Y

[beavi5]

RandomRange(x,y)
гинерирует случайное число в пределах от X до Y

[Vladislav]

Как сделать паузы между проходами ? (Что то вроде sleep) т.е. добавилась запись в мемо, прошло 2-3 сек и ещё раз и т.п.

Можно было бы конечно использовать sleep, но при sleep в мемо строчки добавляются, а другие Edit'ы редактировать нельзя (ну или какие-либо действия совершать).

[Страдалецъ]

Можно так - добавить таймер, настроить на 2-3 сек. В обработчике события добавить в мемо случайное число. По достижении нужного количества строк в мемо останавливить таймер.