7.2.. Napisati program za odredjivanje y po formuli:
![](072_zad/07211004.GIF)
CLS
INPUT "Unesi broj a"; a
IF a MOD 2 <> 0 THEN
y = 1 / a
ELSE
y = 1 / (a + 1)
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END
II varijanta
CLS
INPUT "Unesi broj a"; a
IF a / 2 = INT(a / 2) THEN
y = 1 / (a + 1)
ELSE
y = 1 / a
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END
Daljnji rad: Dodati provjeru za dijeljenje sa nulom (a <> 0 i a+1 <>0).
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211004.gif)
Index
|