10.1.. Učitati članove niza. Izračunati i ispisati sumu članova niza.

Opis programa: Kreiranje kumulativne sume se izvodi u naredbi s := s + X[i];. Početana vrijednost sume je nula s := 0;

Tekstualni algoritam:

1.  broj članova niza
2.  dimenzionisati niz
3.  za i = 1 do n radi
     3.1. upis i-tog člana niza
4.  početna vrijednost sume s := 0
5.  za i = 1 do n radi
          suma postaje stara vrijednost sume uvećana za i-ti član niza
                     s:=s+X[i];
6. ispisati izračunatu sumu s

Tabela 10.7. Niz-suma

Listing programa

Opis

PROGRAM NIZ_s;

Naslov programa

CONST

Deklarisanje

  n = 5;

Broj članova niza

VAR

Promjenljive

 i, s : INTEGER;

Indeks

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

Niz

BEGIN

 

  WRITELN('Suma clanova niza');

Naslov

  FOR i := 1 TO n DO  {ulaz}

 

    BEGIN

 

      WRITE(i,' --> ');

Upis članova niza

      READLN(X[i]);

Ispis na ekran

    END;

 

  s :=0; {pocetna vrijednost}

Početna vrijednost sume

  FOR i := 1 TO n DO  {izlaz}

 

    s := s + X[i];

Uvećanje sume

  WRITELN('Suma clanova = ',s);

Ispis

END.

Kraj programa

Listing programa:

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

Ispis na ekranu:

Index