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."
Listing programa:
1 REM BAS07211009
10 PRINT "Broj ";
20 INPUT x
30 IF x = 0 THEN PRINT "Dijeljenje sa nulom je nemoguce"; ELSE PRINT "Reciprocna vrijednost je"; 1 / x
40 END
Izvođenje programa:
![](../../pascal/pascal_prir/072/072_izvedi/07211009.gif)
Index
|