Bài 21 Giáo án điện tử tin học lớp 11 Bài tập chơng trình Đề bài: bài: Lập Lập ch chơng ơ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)) ;; §Ị A A B B C(xC,y ,yC))cđa cđamét méttam tamgi¸c gi¸c C(x C C TÝnh TÝnhchu chuvi, vi,diƯn diƯntÝch; tÝch; KiĨm KiĨm tra tra tÝnh tÝnh chÊt chÊt vµ vµ cho cho biÕt biết đây là tam tam giác giác vuông, vuông, cân, cân, đều,hay hayth thờng ờng đều, Yêu cầu: Tìm hiểu đề đề 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 tổ dới dạng ch ơng trình con, sau ghép lại thành chơng trình hoàn chỉnh 1 Tìm hiểu đề đề 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) a ( xb xc) ( yb yc) 2 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 Vuông: Thoả mÃn định lí Pitago Đều: Ba cạnh nhau; Cân: Hai ba cạnh nhau; Thờng: tính chÊt trªn 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 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)