6.4.. Ucitati 3 cijela broja i izracunati aritmeticku sredinu koristeci samo varijable x, s i as.

Opis rješenja: Koristi se princip Kumulativna suma. Na prethodnu vrijednost sume se dodaje nova vrijednost varijable x.

Opis programa:

Listing programa:

PROGRAM P06411156;
VAR               { deklarisanje promjenljivih }
  x, s, ars : Real;    { realne promjenljive }
BEGIN
  WRITELN('izraz');  { naslov }
  
  Write('1. broj ');
  Readln(x);           { ulaz - stranica }
  s := x;
  
  Write('2. broj ');
  Readln(x);           { ulaz - stranica }
  s := s + x;
  
  Write('3. broj ');
  Readln(x);           { ulaz - stranica }
  s := S + x;

  ars := s / 3;        { obrada - povrsina }

  Writeln('x = ', x,  's = ', s, ' ars = ', ars );  { ispis - stranica i povrsina }
  READLN;
END.

Ispis na ekranu:

Index