7.2.. Učitati prirodan broj. Ako je neparan ispisati njegovu recipročnu vrijednost, a ako
je paran ispisati kvadrat njegovog prethodnika.
![](072_zad/07211057.GIF)
Opis rješenja: Zadatak možemo napisati u obliku formule:
ODD funkcija za neparan je TRUE vrijednost i u IF naredbi izvodi se THEN
Listing programa:
CLS
INPUT "Unesi broj a "; a
IF a MOD 2 <> 0 THEN
y = 1 / a
PRINT "Ulaz = "; a, "Rezultat = "; y
ELSE
y = (a - 1) ^ 2
PRINT "Kvadrat prethodnika broja a je"; b
END IF
END
II varijanta
CLS
INPUT "Unesi broj a "; a
IF a / 2 = INT(a / 2) THEN
y = (a - 1) ^ 2
PRINT "Kvadrat prethodnika broja a je"; b
ELSE
y = 1 / a
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211057.gif)
Index
|