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 12900049
CLS
PRINT "Do broja: ";
INPUT N
PRINT "Koeficijent: ";
INPUT K
S = 0: REM pocetna vrijednost sume
I = 0: REM pocetna vrijednost kontrolne varijable

DO: REM radi
    S = S + (I + 1) / (K + I): REM suma
    I = I + 1: REM slijedeca vrijednost kontrolne varijable i
LOOP UNTIL I > N: REM sve dok i nije vece od n ponavljaj petlju

PRINT "OD 1 DO "; N; " Keficijent je "; K; " Suma je: "; S
END

Ispis na ekranu:

Index