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

Opis rješenja:

Listing programa:

REM 12510036
CLS
PRINT "Koeficijent: ";
INPUT k
PRINT "Do broja: ";
INPUT n
s = 0: REM pocetna vrijednost sume
p = 1: REM pocetna vrijednost proizvoda
znak = 1: REM vrijednost predznaka

FOR i = 1 TO n: REM ponavljanje za i=1 do i=n
    p = p * i: REM faktorijel za i
    IF i MOD 3 = 0 THEN
        s = s + znak * k * p: REM nova vrijednost sume
        znak = -znak: REM promjena vrijednosti predznaka
    END IF

NEXT i: REM napredovanje kroz petlju
PRINT "Od 1 do "; n; " Keficijent je "; k; " Suma je: "; s
END

Ispis na ekranu:

Index