6.4.. Poznata je površina pravougaonika i stranica a. Izračunati obim.

Listing programa:

PROGRAM P06411147;
VAR               { deklarisanje promjenljivih }
  a, b, P, O : Real;    { realne promjenljive }
BEGIN
  WRITELN('Obim pravougaonika');  { naslov }
  
  Write('povrsina ');
  Readln(P);           { ulaz - stranica }
  
  Write('Stranica '); 
  Readln(a);           { ulaz - stranica }

  b := P/a;        { obrada - povrsina }
  O := 2*( a + b );        { obrada - povrsina }

  Writeln('a = ', a, ' P = ', P, 'b = ', b, ' O = ', O );  { ispis - stranica i povrsina }
  READLN;
END.

Ispis na ekranu:

Index