[Fazotron]

как заполнить массив случайными действительными числами? например, из 20 элементов.

[AND_REY]

Вот пример:

Procedure RandomMasiv;
Var
Masiv: Array [1..20] of Integer;
i: Integer;
begin
Randomize;
For i:= 1 To 20 Do Masiv[i]:= Random(1000000);
end;

[Fazotron]

Сообщение от AND_REY

Вот пример:

а как сделать, чтобы он не только рандомными целыми числами заполнялся, но и в смеси с рандомными дробными числами ? типа 3 0.1 564 0.634 0.23523 45

[AND_REY]

Первое что пришло в голову, может можно проще незнаю.

Procedure RandomMasiv;
Var
Masiv: Array [1..20] of Real;
i: Integer;
begin
Randomize;
For i:= 1 To 20 Do
if Random(2) = 1 Then Masiv[i]:= Random(1000000)
Else Masiv[i]:= 1/Random(41);
end;

[Fazotron]

Сообщение от AND_REY

Первое что пришло в голову, может можно проще незнаю.

прокомментируй пожалуйста почему именно так

зы: как выглядит вообще формула случайных чисел в диапазоне от a до b?

[NIch]

Вот тут всё что надо...
http://www.delphisources.ru/pages/fa...andom.php.html
http://www.delphisources.ru/pages/fa...Range.php.html

[Fazotron]

Спасибо.

[NIch]

За спасибо пожалуйста...