7.2.. Sa tastature upisati broj i izračunati njegovu recipročnu vrijednost (y = 1 / x) i ispisati je. Ako je x=0 ispisati Dijeljenje sa nulom ispisati "Dijeljenje sa nulom"..

Opis rješenja: Recipročna vrijednost broja je 1 podijeljen sa upisanim brojem. Međutim u slučaju da je upisani broj jednak nuli trebalo bi se dijeliti sa nulom, a dijeljenje je nemoguće. Proizilazi da u odnosu na vrijednost upisanog broja postoje dvije akcije (obrade). Izbor se izvodi na osnovu logičkog izraza n=0, korištenjem razgranate strukture tipa IF THEN ELSE. Za vrijednosti n <> 0 izračunava se recipročna vrijednost (dio  iza THEN), dok se za n = 0 ispisuje da je dijeljenje nemoguće.

Opis programa: Logički izraz za provjeru da li je upisani broj jednak nuli je (n=0). Ako je logički izraz istinit tada se ispisuje "Dijeljenje sa nulom je nemoguce". Inače se ispisuje "Recipročna vrijednost je " kao i izračunata recipročna vrijednost."

Tabela 7.3. Izračunati recipročnu vrijednost broja

Listing programa:

PROGRAM PP7_3;
USES
  WinCrt;
VAR
  n: Real;
BEGIN
  Write('Vas broj ');
  Readln(n);
  IF n = 0 THEN
    Writeln('Dijeljenje sa nulom ')
  ELSE
    Writeln('Reciprocna vrijednost je', 1/n);
END.

Ispis na ekranu:

Index