Viết chương trình tính chu vi, diện tích của các hình tròn , hình vuông , chữ nhật, tam giác ( các cạnh của hình và bán kính của hình tròn được nhập từ bàn phím
Viết chương trình tính chu vi, diện tích của các hình tròn , hình vuông , chữ nhật, tam giác ( các cạnh của hình và bán kính của hình tròn được nhập t
By Peyton
>> Chu vi hình tròn:
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.