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                                    { deklarisanje promjenljivih }
  x,y,z,v :Real;                       { realne promjenljive }
BEGIN
  Write('x y z=');                     { ulazna promjenljiva }
  Readln(x, y, z);                     { ulaz - ucitavanje promjenljive }
  IF x*y+2*y*z <> 0 THEN               { ako je nazivnik različit od nula 2x-1<>0, tada }
    BEGIN                              { nazivnik različit od nula 2x-1<>0 - izraz1 }
      v := (x-y+SQR(z))/(x*y+2*y*z);   { izracunaj }
      Writeln('v= ', v:8:2);           { ispisi }
    END
  ELSE                                 { inace }
     Writeln('nije definisano');       { ispisi }
END.

Ispis na ekranu:

Index