7.2.. Učitati prirodan broj. Ako je neparan ispisati njegovu recipročnu vrijednost, a ako je paran ispisati kvadratni korijen njegovog sljedbenika:
![](072_zad/07211056.GIF)
Opis rješenja: Formula po kojoj se izvodi izračunavanje zavisi od parnosti - neparnosti učitanog broja.
CLS
INPUT "Unesi broj a"; a
IF a MOD 2 <> 0 THEN
y = 1 / a
ELSE
y = SQR(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 = SQR(a + 1)
ELSE
y = 1 / a
END IF
PRINT "Ulaz = "; a, "Rezultat = "; y
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211056.gif)
Index
|