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

Opis rješenja:

Listing programa:

PROGRAM P07211069;
USES 
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  x ,b, c : real;         { realne promjenljive } 
BEGIN
  WRITE('Ukucajte brojeve x,b i c: ');    { ulazna promjenljiva }
  READLN(x,b,c);                          { ulaz - ucitavanje vrijednosti }
  IF 2+3*x*b*c-4*SQR(x) >= 0 THEN         { ako je podkorijena velicina veca ili jednaka 0, tada }
    WRITELN('Vrijednost izraza je y = ',SQRT(2+3*x*b*c-4*SQR(x)))  { izracunaj i ispisi }
  ELSE                                    { inace }
    WRITELN('Nedefinisano');               { ispis }
END.


II verzija   naredba pridruzivanja
PROGRAM P07211069;
USES 
  WinCrt;
VAR                       { deklarisanje promjenljivih }
  x ,b, c, y : real;      { realne promjenljive } 
BEGIN
  WRITE('Ukucajte brojeve x,b i c: ');    { ulazna promjenljiva }
  READLN(x,b,c);                          { ulaz - ucitavanje vrijednosti }
  IF 2+3*x*b*c-4*SQR(x) >= 0 THEN         { ako je podkorijena velicina veca ili jednaka 0, tada }
    BEGIN
       y := SQRT(2+3*x*b*c-4*SQR(x));     { izracunaj }
       WRITELN('Vrijednost izraza je y = ',y )  { izracunaj i ispisi }
	END
  ELSE                                    { inace }
    WRITELN('Nedefinisano');                { ispis }
END.

Ispis na ekranu:

Index