[乱数を取得する]

乱数を取得するにはRandimize,Random,RandomRange関数を使用します。

・Randomizeは乱数を初期化します。プログラム中で一度初期化する必要があります。
　初期化しないと、毎回同じ乱数となる可能性があります。

乱数を取得して表示します。

program tips0033;
{$APPTYPE CONSOLE}
uses SysUtils,Math;
begin
 Randomize;
 WriteLn('◆０から１までの間の実数値の乱数',#13#10);

 WriteLn('=>',FloatToStr(Random));
 WriteLn('=>',FloatToStr(Random)); 
 WriteLn('=>',FloatToStr(Random));
 WriteLn('=>',FloatToStr(Random));
 WriteLn('=>',FloatToStr(Random));

 WriteLn(#13#10,'◆０から１０までの間の整数の乱数',#13#10);

 WriteLn('=>',Random(11));
 WriteLn('=>',Random(11)); 
 WriteLn('=>',Random(11));
 WriteLn('=>',Random(11));
 WriteLn('=>',Random(11));

 WriteLn(#13#10,'◆１０から２０までの間の整数の乱数',#13#10);

 WriteLn('=>',RandomRange(10,21));
 WriteLn('=>',RandomRange(10,21));
 WriteLn('=>',RandomRange(10,21));
 WriteLn('=>',RandomRange(10,21));
 WriteLn('=>',RandomRange(10,21));
end.

dcc32 tips0033.pas 
tips0033.exe  > tips0033.txt
pause

◆０から１までの間の実数値の乱数

=>0.10445772879757
=>0.322825992014259
=>0.531253278022632
=>0.45441526081413
=>0.215831454144791

◆０から１０までの間の整数の乱数

=>7
=>6
=>2
=>0
=>3

◆１０から２０までの間の整数の乱数

=>15
=>13
=>13
=>15
=>14