8.1..Izračunati aritmetičku sredinu prirodnih brojeva do 5.
Opis rješenja:
Listing programa:
PROGRAM p08113040;
VAR { deklarisanje promjenljivih }
i, s, br : Integer; { cjelobrojne promjenljive }
as: Real; { realne promjenljive }
BEGIN
Writeln('Artimeticka sredina 3 - 8');
s := 0; { pocetna vrijednost sume }
br := 0; { pocetna vrijednost brojaca }
FOR i := 3 TO 8 DO { ponavljaj za i=3 do 8 - pocetak for 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 }
END; { kraj for petlje }
as := s/br; { aritmeticka sredina je kolicnik sume i brojaca s/br }
Writeln('Aritmeticka sredina 3-8 = ', as);
READLN;
END.
Ispis na ekranu:
Index
|