6.. Izračunati korijen apsolutne vrijednosti sume kvadrata tri učitana broja.

Listing programa:

PROGRAM P06411146;
VAR              { deklarisanje promjenljivih }
  a, b, c, y: Real;   { realne promjenljive }
BEGIN
  WRITELN('Izraz');  { naslov }
 
  Write('1. broj ');
  Readln(a);            { ulaz - ucitavanja 1. broja }
  
  Write('2. broj ');
  Readln(b);            { ulaz - ucitavanja 2. broja }
  
  Write('3. broj ');
  Readln(c);            { ulaz - ucitavanja 3. broja }

  y := SQRT ( ABS ( a ) + ABS ( b ) + ABS ( c ) );        { korijen }
   
  Writeln('a = ', a, '  b = ',b, '  c = ', c, '  y = ', y);  { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index