Bài tập (Chương trình con)

Bµi
21
Gi¸o ¸n ®iÖn tö tin häc líp 11

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(x
A
,y
A
) ; B(x
B
,y
B
) ; C(x
C
,y
C
) 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.
Đề bài: Lập chơng trình nhập vào toạ độ 3 đỉnh A(x
A
,y
A
) ; B(x
B
,y
B
) ; C(x
C

,y
C
) 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
y
A
x
A
B
y
B
x
B
Cy
C
x
C
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)
22
22

22
)()(
)()(
)()(
ybyaxbxac
ycyaxcxab
ycybxcxba
+=
+=
+=
B2. Tính nửa chu vi, diện tích
))()((
/
)(
cpbpappS
CVP
cbaCV
=
=
++=
2
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)<eps) and (ABS(a-c)<eps) then
Begin
Deu:=True; Can:= True;

end
Esle
IF (ABS(a-b)<eps) OR (ABS(a-c<eps) OR
(ABS(b-c) <eps) Then Can:= True;
IF (ABS(a*a+b*b-c*c)<eps) OR (ABS(a*a+c*c-
b*b) <
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