7.2.. Od tri upisana broja (a, b, c) sa tastature naći najmanji i recipročnu vrijednost najmanjeg.
Opis rješenja: Prvo se traži najmanji (kao u prethodnom zadatku). Zatim se koristi IF THEN ELSE naredba za provjeru da li je min jednak nuli a tad se ne može izevesti dijeljenje.
Listing programa:
REM P07211020;
PRINT "Vasa 3 broja:";
INPUT A, B, C
min = A
IF B < A THEN min = B
IF C < B THEN min = C
PRINT "Od brojeva "; A; B; C; " najmanji je:"; min
IF min <> 0 THEN
PRINT "Reciprocna vrijednost najmanjeg je:"; 1 / min
ELSE
PRINT "Dijeljenje sa nulom je nemoguce"
END IF
END
Ispis na ekranu:
![](../../pascal/pascal_prir/072/072_izvedi/07211020.gif)
Index
|