8.1.. Napisati program za ispis proizvoda brojeva od 1 do n.

Tekstualni algoritam:

1. postaviti početnu vrijednost proizvoda (p:=1;)
2. za i := 1 do n radi
   formirati novu vrijednost proizvoda (p:=p*i;)
3. ispisati izračunatu vrijednost proizvoda (WRITELN('Proizvod 1-', n,'=',p); )

Opis rješenja: Sa tastature se izvodi upisu broj n. Izraza u FOR naredbi glasi FOR i := 1 TO n DO.

Listing programa:

PROGRAM p08112041;
USES
  WinCrt;
VAR
  i, n, P : INTEGER;
BEGIN
  WRITE('Do broj  ');
  READLN( n );
  p := 1;
  FOR i := 1 TO n DO
    p := p * i;
  WRITELN('n = ', n, '  proizvod ', p );
END.

Index