Download
1 / 7
70 likes | 253 Views
Tiết 46. BÀI THỰC HÀNH SỐ 7. Trường THPT Lê Quý Đôn. Bài tập chương trình con. Đề bài: Lập chương trình nhập vào tọa độ 3 đỉnh A(x A ,y A ); B(x B ,y B ); C(x C ,y C ) của tam giác. 1. Tính chu vi, diện tích của tam giác
E N D
Tiết 46 BÀI THỰC HÀNH SỐ 7 Trường THPT Lê Quý Đôn
Bài tập chương trình con Đề bài: Lập chương trình nhập vào tọa độ 3 đỉnhA(xA,yA); B(xB,yB); C(xC,yC) của tam giác. 1. Tính chu vi, diện tích của tam giác 2. Kiểm tra tính chất và cho biết đó 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.
1.Tìm hiểu đề bài và đề xuất thuật toán * Tính chu vi, diện tích A yA B1. Tính độ dài cạnh BC(a),AC(b),AB(c) c b B yB a yC C O xB xC xA B2. Tính chu vi, diện tích * Kiểm tra tính chất tam giác Vuông: Thỏa 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.
2.Tổ chức thực hiện theo nhóm Viết chương trình con dùng hàm tính độ dài của cạnh * Tổ 1 : Function Daicanh(x1,y1,x2,y2: real):real; Viết chương trình con dùng thủ tục tính chu vim diện tích * Tổ 2 : Procedure CV_S( a,b,c:real; Var CV,S : real); Viết chương trình con dùng thủ tục kiểm tra tính chất của tam giác * Tổ 3 : Procedure tinhchat(a,b,c:real; Var Deu,vuong,can: boolean);
Ai thế 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 daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)); 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 Deu:=True 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; Procedure CV_S(a,b,c : real; Var CV,S:real); Var p: real; Begin CV:=(a+b+c); P:= CV/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); end; 1 2 3 4
Program Tamgiac; Uses crt; cosnt eps = 0.000001; Var xa,ya,xb,yb,xc,yc,a,b,c,cv,dt:real; D,Can,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,Can,V); IF D then write(‘ Day la tam giac deu’) Else IF Can 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 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 Deu:=True 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; 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); Var p: real; Begin CV:=(a+b+c); P:= CV/2; S:=sqrt(p*(p-a)*(p-b)*(p-c)); end;
Chương trình hoàn chỉ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; Functiondaicanh(x1,y1,x2,y2:real):real; Begin daicanh:= sqrt((x1-x2)*(x1-x2) + (y1-y2)*(y1-y2)); end; ProcedureCV_S(a,b,c : real; Var CV,S:real); Var p: real; Begin CV:=(a+b+c);P:=CV/2;S:=sqrt(p*(p-a)*(p-b)*(p-c)); end; ProcedureTinh_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 Deu:=True 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; 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.
