12.9.. Napisati program koji će za učitanu vrijednost N i zračunati vrijednost izraza i ispisati:

Opis rješenja: Treba imati na umu da su ovo dvije sume. Svaki sabirak (razlomak) ima uvećanje sume s1 za recipročnu vrijednost novog broja. Suma svih članova je je 1 + recipročna vrijednost svakog sabirka s1.

Listing programa:

REM 12900044
PRINT "Do kog broja ";
INPUT n
s = 1
s1 = 0: REM pocetna vrijednost sume 
znak = 1
i = 2: REM pocetna vrijednost kontrolne varijable   
DO: REM radi
    s1 = s1 + znak / i
    s = s + 1 / s1
    znak = -znak: REM promjena vrijednosti predznaka
    i = i + 1: REM slijedeca vrijednost kontrolne varijable i
LOOP UNTIL i > n: REM sve dok i nije vece od n ponavljaj petlju
PRINT "Suma je "; s
END

Ispis na ekranu:

Index