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 12510363
CLS
PRINT "k= ";
INPUT k
PRINT "n= ";
INPUT n
s = 0: REM pocetna vrijednost sume
p = 1: REM pocetna vrijednost proizvoda
znak = 1: REM vrijednost predznaka

FOR i = 1 TO 2 * n: REM ponavljanje za i=1 do i=2*n
    p = p * i: REM nova vrijednost proizvoda
    IF i MOD 2 = 0 THEN
        p = p * k: REM nova vrijednost proizvoda p*k za parne
        s = s + znak * p: REM nova vrijednost sume
        znak = -znak: REM promjena vrijednosti predznaka
    END IF
NEXT i: REM napredovanje kroz petlju

PRINT "k= "; k, "n= "; n, "Suma je: "; s
END

II Verzija
REM 12510363
CLS
PRINT "k= ";
INPUT k
PRINT "n= ";
INPUT n
kfakt = 1: REM pocetna vrijednost faktorijela
s = 0: REM pocetna vrijednost sume
p = 1: REM pocetna vrijednost proizvoda
znak = 1: REM vrijednost predznaka

FOR i = 1 TO 2 * n: REM ponavljanje za i=1 do i=2*n
    p = p * i: REM nova vrijednost proizvoda
    IF i MOD 2 = 0 THEN
        kfakt = kfakt * k: REM nova vrijednost faktorijela
        s = s + znak * kfakt * p: REM nova vrijednost sume
        znak = -znak: REM promjena vrijednosti predznaka
    END IF
NEXT i: REM napredovanje kroz petlju

PRINT "k= "; k, "n= "; n, "Suma je: "; s
END

Ispis na ekranu:

Index