Vypočíta obvod obdĺžnika

Delphi & Pascal (česká wiki)
Přejít na: navigace, hledání
Kategorija: Zadaňa zos Pascalu
obdlznik.pngProgram: Obdlznik.pas
Subor exe: Obdlznik.exe

Vypočíta obvod obdĺžnika.
Pre výpočet obvodu obdĺžnika platí vzťah a·b

Pričom:
- a je dlhšia strana obdĺžnika
- b je kratšia strana obdĺžnika
{ OBDLZNIK.PAS              Copyright (c) TrSek alias Zdeno Sekerak }
{ Obvod obdlznika                                                   }
{ Vstup : strana a,b obdlznika                                      }
{ Vystup: obvod obdlznika                                           }
{                                                                   }
{ Datum:10.04.2000                             http://www.trsek.com }
 
program obvod_obdlznika;
var a,b,o : real;
begin
 Write('Zadaj stranu A obdlznika:');
 ReadLn(a);
 Write('Zadaj stranu B obdlznika:');
 ReadLn(b);
 o:=2*a+2*b;
 WriteLn('Obvod obdlznika ',a:6:2,' ',b:6:2,' je:',o:6:2,' jednotiek');
 Readln;
end.