8.3..
Napisati program za izračunavanje proizvoda od 1 do 5.
Opis rješenja: Početna vrijednost proizvoda je 1 (p := 1;) Pri napredovanju kroz petlju se uvačava vrijednost p po izraz: p := p*i;.
Listing programa:
PROGRAM p08312043;
{proizvod prvih 5 prirodnih brojeva}
USES
WinCrt;
VAR
i, P : INTEGER;
BEGIN
p := 1;
i:=1;
REPEAT
p := p * i;
i := i + 1;
UNTIL i>5;
WRITELN(' proizvod ', p );
END.
Index
|