Bài giảng Tin học Lớp 11 - Bài 21: Bài tập chương trình con

Nội dung text: Bài giảng Tin học Lớp 11 - Bài 21: Bài tập chương trình con

1. Bài 21 Giáo án điện tử tin học lớp 11
2. 1. Tìm hiểu đề bài và đề xuất thuật toán * Tính chu vi, diện tích A yA c B1. Tính độ dài cạnh BC(a),AC(b),AB(c) B b yB a = (xb− xc) 2 + (yb − yc) 2 a 2 2 y C b = (xa− xc) + (ya − yc) C c = (xa− xb) 2 + (ya − yb) 2 O xB xA xC B2. Tính nửa chu vi, diện tích * Kiểm tra tính chất tam giác CV = (a + b + c) Vuông: Thoả mãn định lí Pitago P = CV / 2 Đều: Ba cạnh bằng nhau; S = p( p − a)( p − b)( p − c) Cân: Hai trong ba cạnh bằng nhau; Thờng: không phải các tính chất trên.
3. Blaise Pascal –AiNhà thế toán nhỉ? học và triết học ngời pháp Function daicanh(x1,y1,x2,y2:real):real; Procedure Tinh_chat(a,b,c : real; Var deu,can,vuong:boolean); Begin Begin daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)) Deu:=False; Can:=false; Vuong:= False; end; IF (ABS(a-b)<eps) and (ABS(a-c)<eps) then Begin Deu:=True; Can:= True; end Esle Procedure CV_S(a,b,c : real; Var CV,S:real); IF (ABS(a-b)<eps) OR (ABS(a-c<eps) OR Begin (ABS(b-c) <eps) Then Can:= True; CV:=(a+b+c); IF (ABS(a*a+b*b-c*c)<eps) OR (ABS(a*a+c*c-b*b) P:= CV/2; < S:=sqrt(p*(p-a)*(p-b)*(p-c)); eps) OR (ABS(b*b+c*c-a-a)< eps) Then end; Vuong:=True; End; 1 2 3 4