Công ty Cổ phần Mạng giáo dục Bạch Kim - 27 Huỳnh Thúc Kháng, Đống Đa, Hà Nội
Trang bìa
Trang bìa:
TIẾT 43: BÀI TẬP CHƯƠNG TRÌNH CON Bài tập
Bài 1:
1. Bài tập 1 Viết chương trình con dạng hàm tính độ dài một cạnh Giải Function daicanh(x1,y1,x2,y2:real):real; Begin daicanh:= sqrt((x1-x2)*(x1-x2) (y1-y2)*(y1-y2)) end; Bài 2:
2. Bài tập 2 Viết chương trình con dạng thủ tục tính chu vi, diện tích Giải 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; Bài 3:
3. Bài tập 3 Viết chương trình con dạng thủ tục để kiểm tra t/c tam giác Giải Procedure Tinh_chat(a,b,c : real; Var deu, can, vuong:boolean); Begin Deu:=False; Can:=false; Vuong:= False; IF (ABS(a-b) 4 Bài tập 4 Ghép nối chương trình trình con Giải 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. Củng cố
Bài 1:
* Bài 1 Muốn khai báo x là tham số giá trị và y, z là tham số biến (x, y, z thuộc kiểu Byte) trong thủ tục “ViduTT” thì khai báo nào sau đây là sai? Trả lời
A. Procedure ViduTT( x : Byte ; Var y, z : Byte)
B. Procedure ViduTT( x : Byte ; Var y : Byte ; Var z : Byte)
C. Procedure ViduTT( x : Byte ; Var y : Byte ; z : Byte)
D. Procedure ViduTT( Var y : Byte ; x : Byte ; Var z : Byte)
Bài 2:
* Bài 2 Mô tả nào dưới đây về chương trình có cấu trúc là phù hợp nhất Trả lời
A. Chương trình có sử dụng cấu trúc mảng và bản ghi
B. Sử dụng các hàm và thủ tục thư viện chuẩn
C. Được chia thành nhiều chương trình con
D. Cả A và B
Dặn dò và kết thúc
Dặn dò:
DẶN DÒ - Đọc kỹ lại bài đã học. - Về nhà làm bài tập vào chương trình pascal. - Chuẩn bị trước bài mới. Kết thúc: