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

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

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);