Programy - Generovanie náhodných čísel :)

Vytvorené: 29. 10. 2013 Tlačiť

Generovanie kladných celých náhodných čísel

Program napísaný v jazyku Pascal.

program Nahodne_cisla_kladne;

var
i:integer;
cisla:array[1..36] of integer;

begin
randomize;
for i:=1 to 36 do begin
cisla[i]:=1+random(18);
writeln(cisla[i]);
end;
readln;
end.

Generovanie kladných a záporných celých náhodných čísel

Program napísaný v jazyku Pascal.

program Nahodne_cisla;

var
i:integer;
cisla:array[1..20] of integer;

begin
randomize;
for i:=1 to 20 do begin
cisla[i]:=-50+random(101);
writeln(cisla[i]);
end;
readln;
end.

Neefektívny program Mates

Program napísaný v jazyku Pascal.

program Neefektivny_mates;

var
i:integer;
rovnake:boolean;
cisla:array[1..5] of integer;

begin
randomize;
cisla[1]:=1+random(50);
writeln(cisla[1]);
for i:=1 to 1 do begin
repeat
rovnake:=false;
cisla[i+1]:=1+random(50);
if cisla[i+1]=cisla[i] then rovnake:=true;
until rovnake=false;
writeln(cisla[i+1]);
end;
for i:=2 to 2 do begin
repeat
rovnake:=false;
cisla[i+1]:=1+random(50);
if cisla[i+1]=cisla[i] then rovnake:=true;
if cisla[i+1]=cisla[i-1] then rovnake:=true;
until rovnake=false;
writeln(cisla[i+1]);
end;
for i:=3 to 3 do begin
repeat
rovnake:=false;
cisla[i+1]:=1+random(50);
if cisla[i+1]=cisla[i] then rovnake:=true;
if cisla[i+1]=cisla[i-1] then rovnake:=true;
if cisla[i+1]=cisla[i-2] then rovnake:=true;
until rovnake=false;
writeln(cisla[i+1]);
end;
for i:=4 to 4 do begin
repeat
rovnake:=false;
cisla[i+1]:=1+random(50);
if cisla[i+1]=cisla[i] then rovnake:=true;
if cisla[i+1]=cisla[i-1] then rovnake:=true;
if cisla[i+1]=cisla[i-2] then rovnake:=true;
if cisla[i+1]=cisla[i-3] then rovnake:=true;
until rovnake=false;
writeln(cisla[i+1]);
end;
readln;
end.

Efektívny program Mates

Program napísaný v jazyku Pascal.

program Efektivny_mates;

var
i,j:integer;
cisla:array[1..5] of integer;
Pom:boolean;

begin
randomize;
cisla[1]:=1+random(50);
for i:=2 to 5 do begin
repeat
Pom:=true;
cisla[i]:=1+random(50);
for j:=1 to (i-1) do begin
if cisla[i]=cisla[j] then Pom:=false;
end;
until Pom=true;
end;
for i:=1 to 5 do writeln(cisla[i]);
readln;
end.