Viết chương trình nhập vào Chiều dài,chiều rộng của hình chữ nhật, xuất ra chu vi, diện tích của hình chữ nhật đó

0 bình luận về “Viết chương trình nhập vào Chiều dài,chiều rộng của hình chữ nhật, xuất ra chu vi, diện tích của hình chữ nhật đó”

1. Program HCN;
   Uses crt;
   Var dai,rong,cv,dt: extended;
   Begin
           Clrscr;
           Write(‘Nhap chieu dai: ‘); Readln(dai);
           Write(‘Nhap chieu rong: ‘); Readln(rong);
           cv:=(dai+rong)*2;
           dt:=dai*rong;
           Writeln(‘Chu vi: ‘,cv:0:2);
           Write(‘Dien tich: ‘,dt:0:2);
           Readln
   End.

   Bình luận

2. Chương trình trong Free Pascal:

   program HCN;

   uses crt;

   var a, b, P, S: integer

   begin

   clrscr;

   write(‘Nhap chieu dai HCN: ‘); readln(a);

   write(‘Nhap chieu rong HCN: ‘); readln(b);

   P:=(a+b)*2; writeln(‘Chu vi cua HCN la: ‘, P);

   S:=a*b; writeln(‘Dien tich cua HCN la: ‘, S);

   readln;

   end.

   Bình luận