6.. Izračunati korijen apsolutne vrijednosti sume kvadrata dva učitana broja.
Listing programa:
PROGRAM P06411145;
VAR { deklarisanje promjenljivih }
x, y, z : REAL;
BEGIN
WRITELN('Izraz'); { naslov }
Write('1. broj ');
Readln(x); { ulaz - ucitavanja promjenljiva }
Write('2. broj ');
Readln(y); { ulaz - ucitavanja promjenljiva }
z := SQRT ( ABS ( x ) + ABS ( y ));
Writeln( 'x = ', x, ' y = ', y, ' z = ', z); { izlaz - ispis }
READLN;
END.
Ispis na ekranu:
Index
|
|