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
|
|