Bài 18. Ví dụ về cách viết và sử dụng chương trình con

Bài tập chương trình con
Đề bài: Lập chương trình nhập vào toạ độ 3 đỉnh A(xA,yA) ; B(xB,yB) ; C(xC,yC) của một tam giác.
1. Tính chu vi, diện tích;
2. Kiểm tra tính chất và cho biết đây là tam giác vuông, cân, đều, hay thường.
Yêu cầu:
? Tìm hiểu đề bài và đề xuất thuật toán.
? Từ thuật toán đã đề xuất ở trên, hãy tổ chức phân chia công việc cho các tổ dưới dạng các chương trình con, sau đó ghép lại thành chương trình chính hoàn chỉnh.
A
yA
xA
B
yB
xB
C
yC
xC
1. Tìm hiểu đề bài và đề xuất thuật toán
* Tính chu vi, diện tích
B1. Tính độ dài cạnh BC(a),AC(b),AB(c)
B2. Tính nửa chu vi, diện tích
Vuông: Thoả mãn định lí Pitago
Đều: Ba cạnh bằng nhau;
Cân: Hai trong ba cạnh bằng nhau;
Thường: không phải các tính chất trên.
* Kiểm tra tính chất tam giác
b
a
c
O
2. Tổ chức thực hiện theo nhóm
* Tổ 1 :
Viết chương trình con dạng hàm tính độ dài một cạnh
* Tổ 2 :
Viết chương trình con dạng thủ tục tính chu vi, diện tích
* Tổ 3 :
Viết chương trình con dạng thủ tục để kiểm tra t/c tam giác
Procedure tinhchat(a,b,c:real; Var Deu,vuong,can: boolean);
Procedure CV_S( a,b,c:real; Var CV,S : real);
Function Daicanh(x1,y1,x2,y2: real):real;

Function daicanh(x1,y1,x2,y2:real):real;
Begin
daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2))
end;




Procedure CV_S(a,b,c : real; Var CV,S:real);
Begin
CV:=(a+b+c);
P:= CV/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
end;





Procedure Tinh_chat(a,b,c : real; Var deu,can,vuong:boolean);
Begin
Deu:=False; Can:=false; Vuong:= False;
IF (ABS(a-b) Begin
Deu:=True; Can:= True;
end
Esle
IF (ABS(a-b) (ABS(b-c) IF (ABS(a*a+b*b-c*c) eps) OR (ABS(b*b+c*c-a-a)< eps) Then Vuong:=True;
End;



1
2
3
4
Blaise Pascal - Nhà toán học và triết học người pháp
Ai thế nhỉ?
Program Tamgiac;
Uses crt;
cosnt eps = 0.000001;
Var
xa,ya,xb,yb,xc,yc,a,b,c,cv,dt:real;
D,C,V : Boolean;
{------------------------------------}
CTC tinh chieu dai canh
CTC tinh chu vi, dien tich
CTC kiem tra tinh chat
{-------------------------------------}
BEGIN
write(‘ Nhap vao toa do diem A,B,C ‘);
readln(xa,ya,xb,yb,xc,yc);

a:=daicanh(xb,yb,xc,yc);
b:=daicanh(xa,ya,xc,yc);
c:=daicanh(xa,ya,xb,yb);
CV_S(a,b,c,cv,dt)
Writeln(‘ Chu vi tam giac = ‘,Cv:7:2);
Writeln(‘ Dien tich tam giac = ‘,DT:7:2);
Tinh_ chat(a,b,c,D,C,V);
IF D then write(‘ Day la tam giac deu’)
Else
IF C then write(‘ Day la tam giac can’)
Else
IF V then write(‘ Day tam giac vuong’)
Else write(‘Tam giac thuong’);
Readln;
END.

Ghép nối chương trình