8.1.. Napisati program za izračunavanje proizvoda od 1 do 10.
Opis rješenja:
Opis programa:
Za objašnjenje:
Listing programa:
PROGRAM pro08111017;
VAR
i: Integer;
p: Real;
BEGIN
p:=1; { Pocetna vrijednost prozvoda }
FOR i:=1 TO 10 DO { FOR petlja od 1 do 10 }
p := p * i; ; { Kumulativni prozvod }
Writeln('proizvod brojeva do 10 je ', p:5:0); { ispis }
READLN;
END.
Daljnji rad: Stavite da je P Integer
Primjećujemo da rezultat nije dobar
zašto
Ispis na ekranu:
Index
|