12.73.-1  Napisati program za izračunavanje sume niza:
             1 - 1/2  + 1/3 -+  ... -+ 1/n

Listing programa:

PROGRAM Suma_1_n;
USES
  WinCrt;
VAR
  i, n, znak: INTEGER;
  s         : REAL;
BEGIN
  WRITELN('Suma 1/i');
  s := 0;
  znak := 1;
  WRITE('Do broja ');
  READLN(n);
  IF n < 1 THEN WRITELN('Nekorektan unos');
  ELSE
    i := 1; 
    REPEAT
      s:=s+znak*1/i;
      znak := -znak;
      i := i + 1;
    UNTIL i > n;
  WRITELN ('Suma +- 1/i =',s:7:5);
END.

Index