6.4.. Učitati 2 broja. Izračunati korijen aritmetičke sredine njihovih apsoltnih vrijednosti.
Listing programa:
PROGRAM P06411141;
VAR { deklarisanje promjenljivih }
a, b : 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 '); { drugi broj }
READLN(b);
x := SQRT((ABS(a) + ABS(b)) / 2); { korijen broja }
WRITELN('a = ', a, ' b = ', b, ' x = ', x); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|