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

à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