Tiết 46 Trường THPT Lê Quý Đôn Bài tập chương trình Đề bài: bài: Lập Lập chương chương trình trình nhập nhập vào vào tọa tọa độ độ 33 đỉnh đỉnh A(x A(xAA,y,yAA);); B(x B(xBB,y,yBB);); Đề C(xCC,y,yCC))của củatam tamgiác giác C(x Tínhchu chuvi, vi,diện diệntích tíchcủa củatam tamgiác giác 1.1.Tính Kiểmtra tratính tínhchất chấtvà vàcho chobiết biếtđó đólàlàtam tamgiác giácvuông, vuông,cân, cân,đều 2.2.Kiểm haythường thường hay Yêu cầu: Tìm hiểu đề đề xuất thuật tốn Từ thuật toán đề xuất trên, tổ chức phân chia công việc cho tổ dạng chương trình con, sau ghép lại thành chương trình hồn chỉnh 1 Tìm hiểu đề đề xuất thuật tốn * Tính chu vi, diện tích B1 Tính độ dài cạnh BC(a),AC(b),AB(c) a = ( xb − xc) + ( yb − yc) b = ( xa − xc) + ( ya − yc) 2 c = ( xa − xb) + ( ya − yb) B2 Tính chu vi, diện tích CV = (a + b + c) P = CV / S= A yA p ( p − a )( p − b)( p − c) B c b yB a yC O xB C xA xC * Kiểm tra tính chất tam giác Vng: Thỏa mãn định lí Pitago Đều: Ba cạnh nhau; Cân: Hai ba cạnh nhau; Thường: Khơng phải tính chất 2 Tổ chức thực theo nhóm * Tổ : Viết chương trình dùng hàm tính độ dài cạnh Function Daicanh(x1,y1,x2,y2: real):real; * Tổ : Viết chương trình dùng thủ tục tính chu vim diện tích Procedure CV_S( a,b,c:real; Var CV,S : real); * Tổ : Viết chương trình dùng thủ tục kiểm tra tính chất tam giác Procedure tinhchat(a,b,c:real; Var Deu,vuong,can: boolean); Ai nhỉ? Blaise Pascal – Nhà toán học triết học người Pháp Function daicanh(x1,y1,x2,y2:real):real; Begin Procedure Tinh_chat(a,b,c : real; Var deu,can,vuong:boolean); Begin daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1y2)); end; Deu:=False; Can:=false; Vuong:= False; IF (ABS(a-b)