6.4.. Izračunati korijen sume kvadrata tri učitana broja.
Listing programa:
PROGRAM P06411144;
VAR { deklarisanje promjenljivih }
a, b, c: Integer; { realne promjenljive }
s: Real; { realne promjenljive }
BEGIN
WRITELN('Korijen sume kvadrata 3 broja'); { naslov }
Write('1. broj '); { brojevi }
Readln(a);
Write('2. broj ');
Readln(b);
Write('3. broj ');
Readln(c);
s := SQRT(SQR(a) + SQR(b) + SQR(c)); { korijen kvadrata 3 ucitana broja }
Writeln( 'a = ', a, ' b = ', b , ' c = ', c , ' s = ', s ); { izlaz - vrijednosti }
READLN;
END.
Ispis na ekranu:
Index
|
|