6.. Poznata je površina pravougaonika i stranica a. Izračunati dijagonalu.
Listing programa:
PROGRAM P06411148;
VAR { deklarisanje promjenljivih }
a, b, P, d: Real; { realne promjenljive }
BEGIN
WRITELN('Povrsina pravougaonika'); { naslov }
Write('stranica '); { ulazna promjenljiva }
Readln(a); { stranica pravougaonika }
Write('povrsina '); { ulazna promjenljiva }
Readln(P); { povrsina pravougaonika }
b := P / a; { druga stranica }
d := SQRT ( SQR(a) + SQR(b) ); { dijagonala pravougaonika }
Writeln('a = ', a, ' b = ',b, ' P = ', P, ' d = ', d); { izlaz - dijagonala }
READLN;
END.
Ispis na ekranu:
Index
|
|