8.2.. Izračunati aritmetičku sredinu parnih prirodnih brojeva do 5.
Opis rješenja: Izdvajanje djeljivih sa 2 (parnih) se izvodi logičkim izrazom i MOD 2 = 0 u intervalu od 1 do 5.
Listing programa:
PROGRAM p08213018;
VAR { deklarisanje promjenljivih }
i, br, s : Integer; { cjelobrojne promjenljive }
asr : Real; { realne promjenljive }
BEGIN
Writeln('Artimeticka sredina parnih 1 - 5');
s := 0; { pocetna vrijednost sume }
br := 0; { pocetna vrijednost brojaca }
i := 1; { pocetna vrijednost kontrolne varijable }
WHILE i <= 5 DO { dok je i <= 5 ponavljaj - pocetak petlje }
BEGIN
IF i MOD 2 = 0 THEN { ako je i djeljivo sa 2 / parno tada izvedi }
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;
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 parnih 1 - 5 = ', asr);
READLN;
END.
Ispis na ekranu:
Index
|