giúp mình viết công thức tính diện tích và chu vi hình chữ nhật bằng pascal với ạ mình cần gấp

0 bình luận về “giúp mình viết công thức tính diện tích và chu vi hình chữ nhật bằng pascal với ạ mình cần gấp”

1. Mk lấy vd chiều dài = 6 chiều rộng = 3 

   program cv_dt_hcn;

   uses crt;

   var 6,3,cv,dt : integer;

   begin

   writeln(‘Nhap chieu dai’);

   readln(6);

   writeln(‘Nhap chieu rong’);

   readln(3);

   cv:=(6+3)*2;

   dt:=6*3;

   writekn(‘Chu vi HCN =’, cv);

   writeln(‘Dien tich HCN =’, dt);

   end.

   Bình luận

2. program ctrinh1;

   var x,y,dientich,chuvi:integer;

   begin

   write(‘hay nhap chieu dai cua hinh chu nhat:’);

   readln(x);

   write(‘hay nhap chieu rong cua hinh chu nhat’);

   readln(y);

   dientich:=x*y;

   write(‘hay nhap chieu dai cua hinh chu nhat:’);

   readln(x);

   write(‘hay nhap chieu rong cua hinh chu nhat:’);

   readln(y);

   chuvi:=(x+y)*2;

   writeln(‘Vay chu vi hinh chu nhat la:’,chuvi);

   write(‘Vay dien tich hinh chu nhat la:’,dientich);

   readln;

   end.

   Bình luận