viết chương trình tính chu vi diện tích các hình tròn chữ nhật hình vuông hình tam giác

program cv_hinh_tron;

uses crt;

   var cv, r: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai ban kinh r: ‘); readln(r);

   cv:=2*r*pi;

   writeln(‘Chu vi hinh tron la: ‘, cv);

   readln

end.

>> Diện tích hình tròn:

program dt_hinh_tron;

uses crt;

   var s, r: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai ban kinh r: ‘); readln(r);

   s:=r*r*pi;

   writeln(‘Dien tich hinh tron la: ‘, s);

   readln

end.

>> Chu vi hình vuông:

program cv_hinh_vuong;

uses crt;

   var cv, a: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);

   cv:=4*a;

   writeln(‘Chu vi hinh vuong la: ‘, cv);

   readln

end.

>> Diện tích hình vuông:

program DT_hinh_vuong;

uses crt;

   var s, a: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai canh cua hinh vuong: ‘); readln(a);

   s:=a*a;

   writeln(‘Dien tich hinh vuong la: ‘, a*a);

   readln

end.

>> Chu vi hình chữ nhật:

program cv_hcn;

uses crt;

   var cv, a, b: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai canh a: ‘); readln(a);

   writeln(‘Nhap chieu rong canh b: ‘); readln(b);

   cv:=(a+b)*2;

   writeln(‘Chu vi hinh chu nhat la: ‘, cv);

   readln

end.

>> Diện tích hình chữ nhật:

program DT_hcn;

uses crt;

   var s, a, b: real;

begin

   clrscr;

   writeln(‘Nhap chieu dai canh a: ‘); readln(a);

   writeln(‘Nhap chieu rong canh b: ‘); readln(b);

   s:=a*b;

   writeln(‘Dien tich hinh chu nhat la: ‘, s);

   readln

end.

>> Chu vi hinh tam giác:

program cv_htg;

uses crt;

   var cv, a, b, c: real;

begin

   clrscr;

   writeln(‘Nhap a = ‘); readln(a);

   writeln(‘Nhap b = ‘); readln(b);

   writeln(‘Nhap c = ‘); readln(c);

   cv:=a+b+c;

   writeln(‘Chu vi hinh tam giac la: ‘, cv);

   readln

end.

>> Diện tích hình tam giác:

program dt_htg;

uses crt;

   var s, a, h: real;

begin

   clrscr;

   writeln(‘Nhap a = ‘); readln(a);

   writeln(‘Nhap h = ‘); readln(h);

   s:=(a*h)/2;

   writeln(‘Dien tich hinh tam giac la: ‘, s);

   readln

end.