7.2.. Napiši program za rješavanje slijedećeg izraza:

Opis rješenja: Nazivnik mora biti različit od nule 2x-1<>0.

Listing programa:

PROGRAM p07211037;
USES WinCRT;
VAR
  x,y,z,v :Real;
BEGIN
  Write('x y z=');
  Readln(x, y, z);
  IF x*y+2*y*z <> 0 THEN 
    BEGIN
      v := (x-y+SQR(z))/(x*y+2*y*z);
      Writeln('v= ', v:8:2);
    END
  ELSE
  Writeln('nije definisano');
END.

Ispis na ekranu:

Index