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.

Hodnotenie užitočnosti článku:


    Umela inteligencia Novy narodopis Teoria poezie 3D-tlac Arduino Nove rekordy Prudove chranice Robotika Priemysel 4.0 Dejiny Slovenska do roku 1945 ang_znacky_fluidsim LOGOSoftComfort Novinky Historia elektromobilov Free e-kurzy Elektrina pre ZŠ Druhá svetová vojna Cvičebnice O troch pilieroch EP je spat Prehlad Fyzika Prehlad Informatika Ako sa učiť a ako učiť Dejiny sveta

     

    · 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ť


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