Vytvorené: 29. 10. 2013 Tlačiť
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.
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.
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.
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.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |