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

Opis rješenja:

Listing programa:

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

Ispis na ekranu:

Index