Mong mk giúp ak Lập trình tính diện tích hình chữ nhật

0 bình luận về “Mong mk giúp ak Lập trình tính diện tích hình chữ nhật”

1. Program Chu_Nhat_Program;
   Uses Crt;
   Var a,b,s,c: real;
   Begin
   Clrscr;
   Writeln(‘ TINH DIEN TICH HINH CHU NHAT:’);
   Write(‘Nhap chieu dai=’); readln(a);
   Write(‘Nhap chieu r />s:=a*b;
   c:=(a+b)*2;
   Writeln(‘Dien tich hinh chu nhat la:’,s:6:2);

   Readln

   Bình luận

2. Program Chu_Nhat_Program;
   Uses Crt;
   Var a,b,s,c: real;
   Begin
   Clrscr;
   Writeln(‘ TINH DIEN TICH HINH CHU NHAT:’);
   Write(‘Nhap chieu dai=’); readln(a);
   Write(‘Nhap chieu r />s:=a*b;
   c:=(a+b)*2;
   Writeln(‘Dien tich hinh chu nhat la:’,s:6:2); Readln

   Bình luận