7.2.. Učitati dva broj i izračunati recipročnu vrijednost većeg i ispisati je.
Opis rješenja: Provjera se izvodi naredbom IF a > b THEN. Ako je a veće izračunava se njegova recipročna vrijednosti inače se izračunava recipročna vrijednost b. Nema testa za a = b ali je nije bitno jer će se izračunati recipročna vrijednost.
Listing programa:
REM P07211030
CLS
PRINT "Dva broja:"
INPUT a,b
IF a>b THEN max=a ELSE max=b
z=1/max
PRINT "Reciprocna vrijednost veceg je:"; z
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211030.gif)
Index
|