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

Opis rješenja: Podkorijena veličina nesmije biti negativna ((x-y+(z*z)) >= 0).

Listing programa:

PROGRAM p07211038;
USES WinCRT;
VAR                             { deklarisanje promjenljivih }
  x,y,z,v :Real;                { realne promjenljive }
BEGIN
  Write('x y z: ');
  Readln(x, y, z);              { ulaz - ucitavanje vrijednosti }
  IF x-y+SQR(z) >= 0 THEN       { ako je podkorijena velicina veca ili jednaka 0, tada }
    BEGIN
      v := SQRT(x-y+SQR(z));    { podkorijena velicina veca ili jednaka 0 - izracunaj korijen }
      Writeln('v= ', v:8:2);    { ispis }
    END
  ELSE                          { inace }
    Writeln('nije definisano'); { ispis }
END.

Ispis na ekranu:

Index