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:

Index