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