10.1.. Učitati članove niza. Izračunati proizvod članova niza..

Opis programa: Kreiranje kumulativnog proizvoda se izvodi u naredbom p := p * X[i];. Početana vrijednost sume je jedan p :=1;

Tekstualni algoritam
1.  broj članova niza n=5
2.  dimenzionisati niz
3.  za i = 1 do n radi                        
     3.1. upis i-tog člana niza                 
4.  početna vrijednost proizvoda p :=1
5.  za i = 1 do n radi                        
     5.1. izmnožiti prizvod sa i-tim članom niza (p:=p*X[i];)
6. ispisati izračunati proizvod

Tabela 10.8. Niz- proizvod

Listing programa

Opis

PROGRAM NIZ_PROGRAM NIZ_P;

Naslov programa

CONST

Deklarisanje

  n = 5;

Broj članova niza

VAR

Promjenljive

 i, p : INTEGER;

Indeks

 X : ARRAY [1..n] OF INTEGER;

Niz

BEGIN

 

  WRITELN('Proizvod niza');

Naslov

  FOR i := 1 TO n DO  {ulaz}

 

    BEGIN

 

      WRITE(i,' --> ');

Upis članova niza

      READLN(X[i]);

Ispis na ekran

    END;

 

  p :=1; {pocetna vrijednost}

Početna vrijednost proizvoda

  FOR i := 1 TO n DO  {izlaz}

 

    p := p * X[i];

Uvećanje proizvoda

  WRITELN('Proizvod niza ',p);

 

END.

Kraj programa

Listing programa:

PROGRAM P10112071;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, p : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Proizvod niza');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  p :=1; {pocetna vrijednost}
  FOR i := 1 TO n DO  {izlaz}
    p := p * X[i];
  WRITELN('Proizvod niza ',p);
END.

Ispis na ekranu:

Index