Randomszámgenerátor
-
#11 Pascalban valahogy így nézne ki:
program veletlenszam;
uses crt;
var x,i:integer;
f:text;
begin
assign(f,'c:\random.txt'); {Az elérési út átírható}
rewrite(f);
randomize;
clrscr;
writeln('Véletlen számok generálása');
for i:=1 to 1000000 do
begin
x:=1000000+random(8999999);
writeln(f,x);
end;
writeln('Véletlen számok generálása kész');
readln;
end.
Delphiben van valami olyan is, hogy randomrange(A,B), ekkor két határérték között generál egy véletlenszámot, de nem tudom, hogy pascalban is működik-e.