1.Nhập bán Kính vẽ hình tròn. Tính chu vi diện tích hình tròn 2. Nhập cạnh vẽ hình vuông .tính chu vi diện tích hình chữ nhật 3, nhập chiều dài chiều

0 bình luận về “1.Nhập bán Kính vẽ hình tròn. Tính chu vi diện tích hình tròn 2. Nhập cạnh vẽ hình vuông .tính chu vi diện tích hình chữ nhật 3, nhập chiều dài chiều”

1. 1)

   uses crt;

   var r,cv,dt: real;

   begin

   clrscr;

   write (‘nhap r: ‘);  readln (r);

   cv:=2*r*Pi;

   dt:=r*r*Pi;

   writeln (‘chu vi la: ‘,cv:1:2);

   writeln (‘dien tich la: ‘,dt:1:2);

   readln;

   end.

   2)

   uses crt;

   var a,cv,dt: real;

   begin

   clrscr;

   write (‘nhap canh: ‘);  readln (a);

   cv:=a*4;

   dt:=a*a;

   writeln (‘chu vi la: ‘,cv:1:2);

   writeln (‘dien tich la: ‘,dt:1:2);

   readln;

   end.

   3)

   uses crt;

   var a,b,cv,dt: real;

   begin

   clrscr;

   write (‘nhap chieu dai: ‘);  readln (a);

   write (‘nhap chieu rong: ‘);  readln (b);

   cv:=(a+b)*2;

   dt:=a*b;

   writeln (‘chu vi la: ‘,cv:1:2);

   writeln (‘dien tich la: ‘,dt:1:2);

   readln;

   end.

   Bình luận

2. 1/ công thức

    readln(r);

   dt:=r*r*3.14;

   cv:=r*2*3.14;

   2/ công thức

    readln(n);

   cv:=n*4;

   dt:=n*n;

   3/ công thức

     readln(cd);

     readln(cr);

   cv:=(cd+cr)*2;

   dt:=cd*cr;

   Bình luận