6.4.. Izračunati sumu kvadrata dva učitana broja.
Listing programa:
PROGRAM P06411137;
VAR { deklarisanje promjenljivih }
a, b, s : Real; { realne promjenljive }
BEGIN
WRITELN('suma kvadrata 3 broja'); { naslov }
Write('1. broj '); { brojevi }
Readln(a);
Write('2. broj ');
Readln(b);
s := SQR(a) + SQR(b);
Writeln( 'a = ', a, 'b = ', b , 's = ', s ); { izlaz - vrijednosti }
READLN;
END.
Ispis na ekranu:
![](../../pascal_prir/064/064_izvedi/06411137.gif)
Index
|
![](../../epp/000/Asistent.jpg) |