Napisati program sa procedurom za izračunavanje sume prirodnih brojeva i sume kvadrata brojeva od k do n.

Listing programa:

PROGRAM suma_sumakvadrat;
VAR
  k, n: Integer;
  s1, s2 :Real;

PROCEDURE Suma_i_sumakv;
VAR
  i : Integer;
BEGIN
  s1 := 0;
  s2 := 0;
  FOR i := k TO n DO
    BEGIN
      s1 := s1 +  i;
      s2 := s2 +  sqr(i);
    END;
END;

BEGIN       {MAIN}
  Writeln ('Sume prirodnih i suma kvadrata ');
  Write('k  n ');
  Readln(k, n);
  Suma_i_sumakv;
  writeln('Suma prirodnih =  ', s1, ' Suma kvadrata ', s2);
  READLN;
END.

Ispis na ekranu:
Sume prirodnih i suma kvadrata 
k  n 2 6
Suma prirodnih =   2.0000000000000000E+001 Suma kvadrata  9.0000000000000000E+001

Index