viết chương trình máy tính ,tính diện tích hình chữ nhật có chiều dài a,chiều rộng b cần gấp

0 bình luận về “viết chương trình máy tính ,tính diện tích hình chữ nhật có chiều dài a,chiều rộng b cần gấp”

1. Program Hinh_chu_nhat;

   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.

   Bình luận

2. program Hinh_chu_nhat;

   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.

   Bình luận