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

Opis rješenja: Sa FOR petljom se dobijaju prirodni brojevi 1-k. IF i MOD 2 <> 0 THEN se koristi iz izdvajanje neparnih.

Listing programa:

REM P12900059
CLS
INPUT "k=", k
s = 0: REM pocetna vrijednost sume (s=0)

i = 1: REM pocetna vrijednost kontrolne promjenljive i (i = 1)
DO: REM pocetak petlje radi
    IF i MOD 2 <> 0 THEN
        s = s + i * i: REM formirati novu sumu
    END IF
    i = i + 1: REM uvecaj vrijednost kontrolne promjenljive (i=i+1)
LOOP UNTIL i > k: REM dok je kontrolna promjenljiva i <= k ponovi petlju, inace izlazak iz petlje

PRINT "Suma kvadrata brojeva je:"; s
END

Ispis na ekranu:

Index