6.. Učitati 4 broja. Izračunati korijen aritmetičke sredine njihovih apsoltnih vrijednosti.

Opis rješenja:

Listing programa:

PROGRAM P06411142;
VAR               { deklarisanje promjenljivih }
  a, b, c, d : INTEGER; { cjelobrojne promjenljive }
  x : REAL;       { real za korijen broja }
 
BEGIN
  WRITELN('Korijen aritmeticke sredine apsolutnih vrijednosti');     { naslov }
  WRITE('1. broj ');   { ulazne promjenljiva }
  READLN(a);           { prvi broj}

  WRITE('2. broj ');   { ulazne promjenljiva }
  READLN(b);           { drugi broj}

  WRITE('3. broj ');   { ulazne promjenljiva }
  READLN(c);           { treci broj}

  WRITE('4. broj ');   { ulazne promjenljiva }
  READLN(d);           { cetvrti broj}
    
  x := SQRT( (ABS(a) + ABS(b) + ABS(c) + ABS(d)  ) / 4);  { korijen aritmeticke sredine }
 
  WRITELN('a = ', a, '  b = ', b, ' c = ', c, '  d = ', d, '  x = ', x);   { izlaz - ispis }
  READLN;
END.

Ispis na ekranu:

Index