7.1.. Napisati program za ispis recipročne vrijednosti broja, ako je različit od nule. Ako je nula napisati da je nedefinisan izraz. Koristiti dvije IF naredbe.
PROGRAM RAZ3_1_4;
VAR
x, y : REAL;
BEGIN
WRITE('Broj ');
READLN( x );
IF x <> 0 THEN
BEGIN
y := 1/x ;
WRITELN('x = ', x, ' y ', y );
END;
IF x = 0 THEN
WRITELN('Nedefinisan');
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/071/071_izvedi/07111012.gif)
Index
|
![](../../epp/000/Asistent.jpg) |