Bài 17: Chương trình con và phân loại

Phú Le

Viết chương trình hoàn chỉnh thực hiện lần lượt các công việc sau.

- Lập thủ tục (Procedure) nhập ba số thực dương a, b, c từ bàn phím.

- Viết hàm (Function) tính diện tích của tam giác?

Chạy chương trình với bộ test sau:

Nhập a = 5

Nhập b= 6

Nhập c=7

Dien tich = 14,70

Nguyễn Lê Phước Thịnh
6 tháng 5 2020 lúc 17:42

uses crt;

var a,b,c:real;

dt:real;

{---------------------------chuong-trinh-con-nhap-----------------------------}

procedure nhap(var x,y,z:real);

begin

repeat

write('Nhap a=');readln(x);

write('Nhap b='); readln(y);

write('Nhap c='); readln(z);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

end;

{-----------------chuong-trinh-con-tinh-dien-tich------------------------}

function dientich(var f,g,h:real):real;

var p:real;

begin

p:=(f+g+h)/2;

dientich:=sqrt(p*(p-f)*(p-g)*(p-h));

end;

{--------------------------chuong-trinh-chinh--------------------------}

begin

clrscr;

nhap(a,b,c);

dt:=dientich(a,b,c);

writeln('Dien tich tam giac la: ',dt:4:2);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Tuấn Lê
Xem chi tiết
Tuấn Lê
Xem chi tiết
hà nội 123
Xem chi tiết
Thúy Hà
Xem chi tiết
Trường
Xem chi tiết
hiệp Vũ
Xem chi tiết
Đạt Trần
Xem chi tiết
Đạt Tạ
Xem chi tiết
Đặng Thị Kiều Oanh
Xem chi tiết