12.7.. Napisati program koji će za učitanu vrijednost N i zračunati vrijednost izraza i ispisati:
Opis rješenja: Treba imati na umu da su ovo dvije sume. Svaki sabirak (razlomak) ima uvećanje sume s1 za recipročnu vrijednost novog broja. Suma svih članova je je 1 + recipročna vrijednost svakog sabirka s1.
Listing programa:
REM p12700044
PRINT "Do kog broja ";
INPUT n
s = 1
s1 = 0: REM pocetna vrijednost sume
znak = 1
i = 2: REM pocetna vrijednost kontrolne varijable
WHILE i <= n: REM dok je i <= n ponavljaj
s1 = s1 + znak / i
s = s + 1 / s1
znak = -znak: REM promjena vrijednosti predznaka
i = i + 1: REM slijedeca vrijednost kontrolne varijable i
WEND: REM ponavljanje petlje
PRINT "Suma je "; s
END
Ispis na ekranu:
Index
|