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 ,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. Yêu cầu: Tìm hiểu đề bài và đề 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 các tổ d'ới dạng các ch'ơng trình con, sau đó ghép lại thành ch'ơng trình chính hoàn chỉnh. A y A x A B y B x B Cy C x C 1. Tìm hiểu đề bài và đề 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) 22 22 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 2. Tæ chøc thùc hiÖn theo nhãm * Tæ 1 : ViÕt ch'¬ng tr×nh con d¹ng hµm tÝnh ®é dµi mét c¹nh * Tæ 2 : ViÕt ch'¬ng tr×nh con d¹ng thñ tôc tÝnh chu vi, diÖn tÝch * Tæ 3 : ViÕt ch'¬ng tr×nh con d¹ng thñ tôc ®Ó kiÓm tra t/c tam gi¸c Procedure tinhchat(a,b,c:real; Var Deu,vuong,can: boolean); Procedure CV_S( a,b,c:real; Var CV,S : real); Function Daicanh(x1,y1,x2,y2: real):real; Function daicanh(x1,y1,x2,y2:real):real; Begin daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)) end; Procedure CV_S(a,b,c : real; Var CV,S:real); Begin CV:=(a+b+c); P:= CV/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); end; Procedure Tinh_chat(a,b,c : real; Var deu,can,vuong:boolean); Begin Deu:=False; Can:=false; Vuong:= False; IF (ABS(a-b)<eps) and (ABS(a-c)<eps) then Begin Deu:=True; Can:= True; 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); CV_S(a,b,c,cv,dt) Writeln(‘ Chu vi tam giac = ‘,Cv:7:2); Writeln(‘ Dien tich tam giac = ‘,DT:7:2); Tinh_ chat(a,b,c,D,C,V); IF D then write(‘ Day la tam giac deu’) Else IF C then write(‘ Day la tam giac can’) Else IF V then write(‘ Day tam giac vuong’) Else write(‘Tam giac thuong’); Readln; END. GhÐp nèi ch¬ng tr×nh . 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. hiểu đề bài và đề 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 các tổ d'ới dạng các ch'ơng trình con, sau đó ghép lại thành ch'ơng trình. 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 ,y C ) của một tam giác.