Napisati program sa procedurom za izračunavanje zbira kvadrata i kubova brojeva od m do n.

Listing programa:

PROGRAM Kub_Kvadrat;
USES
  WinCrt;
VAR
 m, n :Integer;
 skv, skub :Real;
PROCEDURE zbir;
VAR
  i: Integer;
BEGIN
  skv := 0;
  skub := 0;
  FOR i := m TO n DO
  BEGIN
    skv := skv + sqr(i);
    skub := skub + i*sqr(i);
  END;
END;

BEGIN       {MAIN}
  Write('m, n = ');
  Readln(m, n);
  zbir;
  Writeln('suma kvadrata  ', skv, ' suma kubova   ',skub);
END.

Ispis na ekranu:
m, n = 2 5
suma kvadrata   5.400000000000000E+001 suma kubova    2.240000000000000E+002

Index