Builder.cz - Informacni server o programovani

Odběr fotomagazínu

Fotografický magazín "iZIN IDIF" každý týden ve Vašem e-mailu.
Co nového ve světě fotografie!

 

Zadejte Vaši e-mailovou adresu:

Kamarád fotí rád?

Přihlas ho k odběru fotomagazínu!

 

Zadejte e-mailovou adresu kamaráda:

Soutěž

Sponzorem soutěže je:

IDIF

 

Kde se koná výstava fotografií Luďka Vojtěchovského?

V dnešní soutěži hrajeme o:



Pascal nahodne cisla generovanie procedurou

Seznam témat     Nová odpověď

Přihlásit se     Registrace     Zapomenuté heslo

Re: Pascal nahodne cisla generovanie procedurou

Autor: Honzc ♂

6:02:07 12.03.2013

To co je tam napsáno je součet čísel od 1 do 20.
Úprava
var : i,n,sucet: Integer;

begin
Randomize; //zapnuti generatoru nahodnych cisel
sucet:=0 ;
for i := 1 to 20 do
begin
n := Random(100)+1; //generuje nahodne cislo od 0 do 99 a pricte 1, aby cisla byly od 1 do 100
sucet:= sucet + n;
end;
writeln('Sucet 20 nahodnych cisel od 1 do 100 je: ',sucet);
readln
end.

Citovat příspěvek

 

Pascal nahodne cisla generovanie procedurou

Autor: pietro62 ♂

12:07:58 11.03.2013

Prosim Vas pomozte robil som program v Pascale a nemozem najst chybu.

Upravte nasledujúci program, aby sčítal 20 náhodných čísel generovaných procedúrou randomize (rozsah zvoľte ľubovoľne).

sucet:=0 ;

for i := 1 to 20 do

sucet:= sucet + i;

writeln('Sucet cisel od 1 do 20 je: ',sucet);

readln

end.

Citovat příspěvek

 

 

 

Přihlášení k mému účtu

Uživatelské jméno:

Heslo: