9.5.19.Naći količnik suma brojeva od 1 do n1 i sume brojeva od 1 do n2.

Listing programa:

PROGRAM suma_kolicnik01;
{Naci kolocnik suma brojeva od 1 do n1 i sume brojeva od 1 do n2}
USES
  WinCrt;
Var
  n1, n2, S1, S2 : Integer;
  kolicnik : Real;

FUNCTION Suma (n: Integer) :Integer;  {funkcija}
Var
  j, S : Integer;
BEGIN
  S := 0;
  FOR j := 1 TO n DO
    BEGIN
  S := S + j;
    END;
  Suma := S;
END;

BEGIN {Glavni program}
  Write('Do prvog broja ');
  Readln(n1);
  Write('Do drugog broja ');
  Readln(n2);
  S1 := Suma(n1);
  S2 := Suma(n2);
  kolicnik := S1 / S2;
  Writeln (' Suma 1: ', S1, '    Suma2: ', S2, '     Kolicnik: ', kolicnik);
END.

Izvođenje programa:

Index