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
|
|