Giải giúp mình cách tính lập trình pascal tính diện tích hình chữ nhật đi mn

0 bình luận về “Giải giúp mình cách tính lập trình pascal tính diện tích hình chữ nhật đi mn”

1. program dientichHCN;
   uses crt;
   var chieu_dai,chieu_rong,dientich:integer;
   begin
   CLRSCR;
   writeLN(‘Nhap chieu_dai, chieu_rong cua HCN’);
   readLN(chieu_dai,cchieu_rong);
   dientich:=chieu_dai*chieu_rong;
   writeLN(‘dientich= ‘,dientich);
   readLN();
   end.

   Chúc bạn học tốt !!!!!!

   Bình luận

2. uses crt;

   var a,b,S,P: integer;

   begin

   writeln(‘Nhap chieu dai:’);

   readln(a);

   writeln(‘Nhap chieu rong:’);

   readln(b);

   P:=((a+b)*2);

   S:=(a*b);

   writeln(‘Chu vi la:’,P);

   writeln(‘Dien tich la:’,S);

   readln

   end.

   XIN HAY NHẤT Ạ

   Bình luận