9.1.. Napisati program sa procedurom za izračunavanje aritmetičke sredine parnih i neparnih.

Opis programa: provjera djeljivosti se izvodi u REPEAT petlji naredbom IF i MOD l = 0 THEN i izvodi se sabiranje i prebrojavanje za dvije različite aritmetičke sume: s1 := 0; s2 := 0; br1 := 0; br2 := 0;

Listing programa:

PROGRAM p09111020;
{Aritmeticke sredina parnih i neparnih}
USES
  WinCrt;
VAR
  k, n: Integer;
  as1, as2 :Real;

PROCEDURE AS;
VAR
  i : Integer;
  s1, s2 :Real;
  br1, br2 :Real;
BEGIN
  s1 := 0;
  s2 := 0;
  br1 := 0;
  br2 := 0;
  FOR i := k TO n DO
    IF i MOD 2 = 0 THEN
      BEGIN
        s1 := s1 +  i;
        br1 := br1 + 1;
      END
    ELSE
      BEGIN
        s2 := s2 +  i;
        br2 := br2 + 1;
      END;
    as1 := s1 /br1;
    as2 := s2 /br2;
END;

BEGIN       {MAIN}
  Writeln ('Aritmeticke sredina parnih i neparnih ');
  Write('k  n ');
  Readln(k, n);
  AS;
  writeln('Aritmeticka sredina parnih =  ', as1, ' AS neparnih  ', as2);
END.

Index