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

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

Đề bài: 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

Lời giải:

* 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.