12.5.6. Napisati program koji će za učitanu vrijednost k izračunati vrijednost izraza i ispisati

Opis rješenja: Sa petljom se dobijaju prirodni brojevi od 0 do n.

Listing programa:

REM p12700050
CLS
PRINT "Do broja: ";
INPUT N
PRINT "Koeficijent: ";
INPUT K
S = 0: REM pocetna vrijednost sume
I = 0: REM pocetna vrijednost kontrolne varijable
WHILE I <= N: REM ponavljanje dok je i <= n
    S = S + 2 / (K + I)
    I = I + 1: REM  napredovanje kroz petlju
WEND
PRINT "OD 1 DO "; N; " Keficijent je "; K; " Suma je: "; S
END

Ispis na ekranu:

Index