Lập trình tính diện tích hình chữ nhật biết chiều rộng bằng 1/3 chiều dài, chiều dài được nhập từ 2 bàn phím Kí hiệu cạnh a.chiều rộng

0 bình luận về “Lập trình tính diện tích hình chữ nhật biết chiều rộng bằng 1/3 chiều dài, chiều dài được nhập từ 2 bàn phím Kí hiệu cạnh a.chiều rộng”

1. Program dien_tich_hcn;
   Uses crt;
   Var a,b,c: real;
   Begin
   Clrscr;
   Readln(b);
   A:= b*1/3;
   C:= a*b;
   Writeln(‘dien tich hcn la: ‘,c);
   Readln;
   End.

   Bình luận

2. Program NN;
   Uses crt;
   Var a,b,c: extended;
   Begin
           Clrscr;
           Write(‘Nhap b: ‘); Readln(b);
           a:=b/3;
           c:=a*b;
           Write(‘Dien tich la: ‘,c:0:2);
           Readln
   End.

   Bình luận