Я хочу рассказать о функции Random как вы уже поняли по названию статьи. Название говорит само за себя, что бы получить какое - то рандомное число...
Процедура Randomize нужна для того что бы числа не повторялась и при каждой компиляции кода будут разные значения. Немного из хелпа Паскаля.
Что бы с генерировать к примеру от 22 до 64:
43 = 0..42
0 + 22 ... 42+22 = 22..64
Еще пример, от 100 до 200
0 + 100 ... 101 + 100 = 100 ... 200
Вот не большой пример:
var
i, s: Integer;
begin
randomize;
for i := 1 to 10 do
begin
s := random(10);
write(' ',s);
end;
end.
Процедура Randomize нужна для того что бы числа не повторялась и при каждой компиляции кода будут разные значения. Немного из хелпа Паскаля.
procedure Randomize(seed: integer);
Инициализирует датчик псевдослучайных чисел, используя значение seed. При одном и том же seed генерируются одинаковые псевдослучайные последовательности.function Random(maxValue: integer): integer;
Возвращает случайное целое в диапазоне от 0 до maxValue-1
Что бы с генерировать к примеру от 22 до 64:
var
i, s: Integer;
begin
randomize;
for i := 1 to 64 do
begin
s := random(43)+22;
write(' ',s);
end;
end.
43 = 0..42
0 + 22 ... 42+22 = 22..64
Еще пример, от 100 до 200
var101 = 0..100
i, s: Integer;
begin
randomize;
for i := 1 to 64 do
begin
s := random(101)+100;
write(' ',s);
end;
end.
0 + 100 ... 101 + 100 = 100 ... 200
