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

Opis rješenja:

Listing programa:

REM 12900056
CLS
PRINT "n= ";
INPUT n
s = 0: REM pocetna vrijednost sume

i = 1: REM pocetna vrijednost kontrolne varijable
DO: REM radi
    s = s + 1 / (2 * i): REM nova vrijednost sume
    i = i + 1: REM slijedeca vrijednost kontrolne varijable i
LOOP UNTIL i > n: REM sve dok i nije vece od n ponavljaj petlju

PRINT "n = "; n, "s="; s
END

Ispis na ekranu:

Index