12.5.2. Izračunati i ispisati sumu niza:1 - 1/2 + 1/3 -+ ... -+ 1/n

Opis rješenja: Kod prve varijante koristi se varijabla znak za promjenu predznaka (znak = -znak).

Listing programa:

REM 12973001
CLS
INPUT "Unesi krajnju vrijednost: ", n
znak = 1
i = 1
DO
    s = s + znak * (1 / i)
    znak = -znak
    i = i + 1
LOOP UNTIL i > n
PRINT s
END

Ispis na ekranu:

Index