viết chương trình cho phép tính diện tích các hình: hình vuông, hình chữ nhật, hình tròn, hình tam giác, hình thang. người dùng chọn hình cần tính diện tích từ bản chọn, sau đó khai báo các thông số liên quan và nhận được diện tích của hình:
MOI BAN CHON HINH CAN TINH DIEN TICH
1.Hình vuông
2.Hình chữ nhật
3.Hình tròn
4.Hình tam giác
5.Hình thang.
muốn tính diện tích hình tam giác người dùng gõ số 4 và khai báo đường cao, đáy. Chương trình tính và thông báo diện tích đến người dùng.
uses crt;
var n,a,b,c:real;
begin
clrscr;
writeln(‘MOI BAN CHON HINH CAN TINH DIEN TICH: ‘);
writeln(‘1. Hinh vuong.’);
writeln(‘2. Hinh chu nhat.’);
writeln(‘3. Hinh tron.’);
writeln(‘4. Hinh tam giac.’);
writeln(‘5. Hinh thang.’);
readln(n);
if n=1 then
begin
write(‘Canh:’);readln(a);
writeln(‘Dien tich: ‘,a*a:0:2);
end else
if n=2 then
begin
write(‘Chieu dai:’);readln(a);
write(‘Chieu rong:’);readln(b);
writeln(‘Dien tich: ‘,a*b:0:2);
end else
if n=3 then
begin
write(‘Ban king:’);readln(a);
writeln(‘Dien tich: ‘,a*a*3.14:0:2);
end else
if n=4 then
begin
write(‘Duong cao:’);readln(a);
write(‘Day:’);readln(b);
writeln(‘Dien tich: ‘,a*b/2:0:2);
end else
if n=5 then
begin
write(‘Day tren:’);readln(a);
write(‘Day duoi:’);readln(b);
write(‘Duong cao:’);readln(c);
writeln(‘Dien tich: ‘,c/2*(a+b):0:2);
end;
readln
end.
//////////////////////////////////////////////////////////////////////
Test:
uses crt;
const pi=3.14;
var a,b,c,n:longint;
begin
clrscr;
writeln(‘1.Hinh vuong’);
writeln(‘2.Hinh chu nhat’);
writeln(‘3.Hinh tron’);
writeln(‘4.Hinh tam giac’);
writeln(‘5.Hinh thang’);
repeat write(‘Moi ban chon hinh muon tinh dien tich (1->5): ‘);readln(n);
until (0<n) and (n<6);
case n of
1:
begin
write(‘Nhap canh: ‘);readln(a);
write(‘Dien tich hinh vuong la: ‘,a*a);
end;
2:
begin
write(‘Nhap canh thu nhat: ‘);readln(a);
write(‘Nhap canh thu hai: ‘);readln(b);
write(‘Dien tich hinh chu nhat: ‘,a*b);
end;
3:
begin
write(‘Nhap ban kinh: ‘);readln(a);
write(‘Dien tich hinh tron: ‘,(pi*a*a):0:2);
end;
4:
begin
write(‘Nhap duong cao: ‘);readln(a);
write(‘Nhap canh ung voi duong cao: ‘);readln(b);
write(‘Dien tich hinh tam giac: ‘,((a*b)/2):0:2);
end;
5:
begin
write(‘Nhap canh day thu nhat: ‘);readln(a);
write(‘Nhap canh day thu hai: ‘);readln(b);
write(‘Nhap chieu cao: ‘);readln(c);
write(‘Dien tich hinh thang: ‘,(((a+b)/2)*c):0:2);
end;
end;
readln;
end.