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: bài: Lập Lập chương chương trình trình nhập nhập vào vào toạ toạ độ độ 33 đỉnh đỉnh A(x A(xA,y,yA)) ; ; B(x B(xB,y,yB)) ; ; C(x C(xC,y,yC)) của một tam tam Đề A A B B C C giác giác Tínhchu chuvi, vi,diện diệntích; tích; 1.1 Tính Kiểmtra tratính tínhchất chấtvà vàcho chobiết biếtđây đâylàlàtam tamgiác giácvuông, vuông,cân, cân,đều, đều,hay haythường thường 2.2 Kiểm YÊU CẦU: Tìm hiểu đề đề xuất thuật toá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 ĐỀ BÀI VÀ ĐỀ 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) 2 2 a ( xb xc) ( yb yc) b ( xa xc) ( ya yc) A yA c ( xa xb) ( ya yb) B2 Tính nửa chu vi, diện tích CV (a b c) P CV / S 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: Thoả mãn định lí Pitago Đều: Ba cạnh nhau; Cân: Hai ba cạnh nhau; Thường: tính chất 2 TỔ CHỨC THỰC HIỆN 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 vi, 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/c tam giác Procedure tinhchat(a,b,c:real; Var Deu,vuong,can: boolean); Ai nhỉ? BLAISE PASCAL – NHÀ TOÁN HỌC VÀ 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)*(y1-y2)) end; Deu:=False; Can:=false; Vuong:= False; IF (ABS(a-b)