Napisati program sa funkcijama za izračunavanje zbira kvadrata parnih odnosno zbira kubova neparnih brojeva od 1 do n (koristiti REPEAT).

Listing programa:

PROGRAM kvadratpar_kubnepra;
USES
  WinCrt;
VAR
  n: Integer;

FUNCTION kvpar(n:Integer):Real;
VAR
  i: Integer;
  s: Real;
BEGIN
  s := 0;
  i:= 1;
  REPEAT
    IF i MOD 2 = 0 THEN
      s := s +  sqr(i);
    i := i + 1;
  UNTIL i>n;
  kvpar := s;
END;

FUNCTION kubnepar(n:Integer):Real;
VAR
  i: Integer;
  s: Real;
BEGIN
  s := 0;
  i:= 1;
  REPEAT
    IF i MOD 2 <> 0 THEN
      s := s + i * sqr(i);
    i := i + 1;
  UNTIL i>n;
  kubnepar := s;
END;

BEGIN
  Writeln ('Sume kvadrata parnih i kubava neparnih  REPEAT ');
  Write('n ');
  Readln(n);
  writeln('Suma kvadtrata parnih =  ', kvpar(n));
  writeln(' Suma kubava neparnih ', kubnepar(n));
END.

Index