12.9.6. Napisati program koji će za učitanu vrijednost N izračunati vrijednost izraza i ispisati::
Opis rješenja:
Listing programa:
REM 12900036
PRINT "k= ";
INPUT k
PRINT "n= ";
INPUT n
s = 0: REM pocetna vrijednost sume
p = 1: REM pocetna vrijednost proizvoda
kfakt = 1
i = 1: REM pocetna vrijednost kontrolne varijable
DO: REM radi
p = p * i
IF i MOD 3 = 0 THEN
REM ako je i djeljiv sa 3 izvedi
kfakt = kfakt * k: REM nova vrijednost koeficijenta
s = s + p * kfakt: REM suma
END IF
i = i + 1: REM slijedeca vrijednost kontrolne varijable i
LOOP UNTIL i > 3 * n: REM sve dok i nije vece od 3*n ponavljaj petlju
PRINT "s="; s
END
Ispis na ekranu:
Index
|