6.. Napisati program koji za ispis rezultata izraza: x=b²-4ac.

Opis rješenja:

Listing programa:

PROGRAM P06431054;
VAR              { deklarisanje promjenljivih }
  a, b, c : INTEGER; { cjelobrojne promjenljive }
  x : REAL;       { real za korijen broja }
BEGIN
  WRITELN('Izraz');  { naslov }
  
  Write('1. broj ');
  Readln(a);               { 1. broj  }

  Write('2. broj ');
  Readln(b);               { 2. broj  }

  Write('3. broj ');
  Readln(c);               { 3. broj  }

  x := SQR( b ) -  4 * a * c;        { izraz }
    
  Writeln('a = ', a, '  b = ', b, '  c = ', c, '   x = ', x );      { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index