- hình vuông:
program TinhChuViDienTichHinhVuong;
uses crt;
var
canh, chuvi, dientich: real;
begin
clrscr;
writeln('Nhap chieu dai canh hinh vuong: ');
readln(canh);
chuvi := 4 * canh;
dientich := canh * canh;
writeln('Chu vi hinh vuong la: ', chuvi:0:2);
writeln('Dien tich hinh vuong la: ', dientich:0:2);
readln;
end.
- hình tròn:
program TinhChuViDienTichHinhTron;
uses crt;
const
pi = 3.14;
var
banKinh, chuVi, dienTich: real;
begin
clrscr;
// Nhập bán kính của hình tròn
write('Nhap ban kinh hinh tron: ');
readln(banKinh);
// Tính chu vi và diện tích của hình tròn
chuVi := 2 * pi * banKinh;
dienTich := pi * banKinh * banKinh;
// In kết quả ra màn hình
writeln('Chu vi hinh tron la: ', chuVi:0:2);
writeln('Dien tich hinh tron la: ', dienTich:0:2);
readln;
end.
- hình chữ nhật:
program ChuViDienTichHinhChuNhat;
var
chieuDai, chieuRong, chuVi, dienTich: Integer;
begin
// Nhập chiều dài và chiều rộng từ bàn phím
Write('Nhap chieu dai: ');
Readln(chieuDai);
Write('Nhap chieu rong: ');
Readln(chieuRong);
// Tính chu vi và diện tích
chuVi := 2 * (chieuDai + chieuRong);
dienTich := chieuDai * chieuRong;
// In kết quả ra màn hình
Writeln('Chu vi hinh chu nhat la: ', chuVi);
Writeln('Dien tich hinh chu nhat la: ', dienTich);
Readln;
end.
- hình tam giác:
program TinhCVDTTamGiac;
var
a, b, c, h: real;
chuvi, dientich: real;
begin
writeln('Nhap do dai 3 canh cua tam giac:');
readln(a, b, c);
writeln('Nhap chieu cao tuong ung:');
readln(h);
chuvi := a + b + c;
dientich := (a * h) / 2;
writeln('Chu vi cua tam giac la: ', chuvi:0:2);
writeln('Dien tich cua tam giac la: ', dientich:0:2);
readln;
end.