Viết chương trình tính diện tích hình chữ nhật, tam giác, hình bình hành, hình thang trong pascal
Câu 34: Viết chương trình tính diện tích hình chữ nhật, tam giác, hình bình hành, hình thang trong pascal
* Tính diện tích hình chữ nhật
program dthcn;
var
a, b, c : integer;
begin
Write ('Nhap chieu dai:'); read (a);
Write ('Nhap chieu rong:'); read (b);
s := a * b;
Write ('Dien tich hinh chu nhat la:',s);
Readln
End.
* Tính diện tích hình thang
program dtht;
var
a, b, h:Integer;
s:real;
begin
Write('Nhap day lon:');readln(a);
Write('Nhap day nho:');readln(b);
Write('Nhap chieu cao:');readln(h);
s:=((a+b)*h)/2;
WriteLn ('Dien tich hinh thang la:',s);
readln
end.
* Tính diện tích tam giác
program dttg;
var
a, h : integer;
s : real;
begin
Write ('Nhap chieu cao:'); read (h);
Write ('Nhap day:'); read (a);
s := 1/2 * a * h;
Write ('Dien tich tam giac la:',s);
Readln
End.
* Tính diện tích hình bình hành
program dthbh;
var
a, h : integer;
s : real;
begin
Write ('Nhap chieu cao:'); read (h);
Write ('Nhap day:'); read (a);
s := a * h;
Write ('Dien tich hinh binh hanh la:',s);
Readln
End.
* Tính diện tích hình tròn
program dthtr;
const
pi=3.14;
var
r:Real;
s:Real;
begin
Write('Nhap ban kinh:'); readln(r);
s:=r*r*pi;
write('Dien tich hinh tron:',s);
readln
end.