8.2.. Izračunati aritmetičku sredinu prirodnih brojeva od 3 do 8.
Opis rješenja:
Listing programa:
PROGRAM p08213040;
VAR { deklarisanje promjenljivih }
i, br, s : Integer; { cjelobrojne promjenljive }
asr : Real; { realne promjenljive }
BEGIN
Writeln('Artimeticka sredina 3 - 8');
s := 0; { pocetna vrijednost sume }
br := 0; { pocetna vrijednost brojaca }
i := 3; { pocetna vrijednost kontrolne varijable }
WHILE i <= 8 DO { dok je i <= 8 ponavljaj - pocetak petlje }
BEGIN
s := s + i; { suma s postaje stara vrijednost sume uvecana za vrijednost i }
br := br + 1; { brojac br postaje stara vrijednost brojaca uvecana za 1 }
i := i + 1; { slijedeca vrijednost kontrolne varijable i }
END; { kraj while petlje }
asr := s/br; { aritmeticka sredina je kolicnik sume i brojaca s/br }
writeln('Artimeticka sredina 3 - 8 = ', asr);
READLN;
END.
Ispis na ekranu:
Index
|