12.9.6. Napisati program koji će za učitanu vrijednost K i N izračunati vrijednost izraza i ispisati:
Opis rješenja:
Listing programa:
REM 12910363
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
i = 1: REM pocetna vrijednost kontrolne varijable
DO: REM radi
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
i = i + 1: REM slijedeca vrijednost kontrolne varijable i
LOOP UNTIL i > 2 * n: REM sve dok i nije vece od 2*n ponavljaj petlju
PRINT "k= "; k, "n= "; n, "Suma je: "; s
END
II Verzija
REM 12910363
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
i = 1: REM pocetna vrijednost kontrolne varijable
DO: REM radi
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
LOOP UNTIL i > 2 * n: REM sve dok i nije vece od 2*n ponavljaj petlju
PRINT "k= "; k, "n= "; n, "Suma je: "; s
END
Ispis na ekranu:
Index
|