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

Opis rješenja: Imamo n sabiraka, i formiramo sumu od sabiraka. Predznak pri sabiranju se posebno izračunava svakom prolazu (znak).

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
    BEGIN
      i := 1;
      WHILE i <= n DO
        BEGIN
          s:=s+znak*1/i;
          znak := -znak;
          i := i + 1;
        END;
      WRITELN ('Suma +- 1/i =',s:7:5);
    END;
END.

Ispis na ekranu:

Index