Question

viết chương trình pascal tính diện tích và chu vi của hình chữ nhật với chiều dài cạnh A và chiều rộng B

Answer 1

uses crt;

var a,b,dt,cv:integer;

begin

clrscr;

write('nhap chieu dai:'); readln(a);

write('nhap chieu rong:'); readln(b);

dt:=a*b;

cv:=(a+b)*2;

if (a>0) and (b>0) and (a>b) then

begin

writeln('chu vi hinh chu nhat la: ',cv);

writeln('dien tich hinh chu nhat la: ',dt);

end

else writeln('vui long nhap lai');

readln;

end.

Answer 2