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.

Hodnotenie užitočnosti článku:


    EP je spat Prehlad Fyzika Prehlad Informatika Treti pilier Fotograf_krojov On-line kurzy Ako sa učiť a ako učiť Dejiny sveta Dejiny Slovenska

     

    O VŠETKÝCH KURZOCH 

     

    · 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
    Mám účet a chcem sa prihlásiť Prihlásiť sa
    Nemám účet, ale chcel by som ho získať Registrovať sa
    Poznámka pre autora

    Ak ste na stránke našli chybu, dajte nám vedieť

    Newsletter

    Nenechajte si ujsť žiadny nový článok

    @

    Copyright © 2013-2021 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady