Chương trình con là một dãy lệnh, mô tả một số thao tác nhất định và có thể được thực hiện được gọi từ nhiều vị trí trong chương trình chính.... Phân Phân loại loại chương chương trình t[r]
(1)1 (2) CHƯƠNG VI § 17 CHƯƠNG TRÌNH CON VÀ PHÂN LOẠI § 18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON § 19 THƯ VIỆN CHƯƠNG TRÌNH CON CHUẨN Tin häc 11 (3) 1 Bài Bài toán toán 2 Khái Khái niệm niệm 3 Phân Phân loại loại chương chương trình trình con (4) 1 Bài Bài toán toán Lập trình tính: Ta có: S1:= 1; For i:=1 to x S1:= S1 * a; Tương tự ta tính s2,s3,…s6 (5) Bài toán Bài toán PROGAM baitoan1; Var a,b,c,d,e,f,x,y,z,t,m,n ,i: integer; S,S1,S2,S3,S4,S5, S6 : longint; BEGIN Writeln(‘Nhap co so:’); readln(a,b,c,d,e,f); Writeln(‘Nhap so mu :’); readln(x,y,z,t,m,n); S1:= 1; For i:=1 to x S1:= S1 * a; S2:= 1; For i:=1 to y S2:= S2 * b; S3:= 1; For i:=1 to z S3:= S3 * c; S4:= 1; For i:=1 to t S4:= S4 * d; S5:= 1; For i:=1 to m S5:= S5 * e; S6:= 1; For i:=1 to n S6:= S6 * f; S:= S1 +S2 + S3 + S4 + S5 + S6; Writeln(‘Tong la S=‘, S) Readln (6) 1 Bài Bài toán toán Nhận xét: • Lặp lặp lại câu lệnh tính lũy thừa lần (Chương trình viết dài, tốn thời gian) • Sử dụng thêm biến S: (lãng phí nhớ) (7) 1 Bài Bài toán toán PROGAM baitoan1; Var a,b,c,d,e,f,x,y,z,t,m,n ,i: integer; S:longint; Function LT(a,x:integer) : Longint; Var S1:Longint; i : integer; Begin S1:= 1; For i:=1 to x S1:= S1 * a; LT := S1; End; CHƯƠNG TRÌNH CON BEGIN Writeln(‘Nhap co so:’); readln(a,b,c,d,e,f); Writeln(‘Nhap so mu:’); readln(x,y,z,,e,f); S:= LT(a,x) + LT(b,y) + LT(c,z)+ LT(d,t)+ LT(e,m)+ LT(f,n) Writeln(‘Tong la S=‘, S) Readln END (8) 2 Khái Khái niệm niệm Chương trình là dãy lệnh, mô tả số thao tác định và có thể thực (được gọi) từ nhiều vị trí chương trình chính (9) 3 Phân Phân loại loại chương chương trình trình con a) Phân loại: CHƯƠNGTRÌNH TRÌNHCON CON CHƯƠNG HÀM HÀM(Function) (Function) THỦ THỦTỤC TỤC(Procedure) (Procedure) Là Là chương chương trình trình con thực thựchiện hiệndãy dãylệnh lệnh Là Là chương chương trình trình con thực thựchiện hiệndãy dãylệnh lệnh Trả Trả về giá giá trị trị cụ cụ thể thể qua quatên têncủa củanó nó Không Không trả trả về giá giá trị trị nào nào qua quatên têncủa củanó nó Ví dụ hàm: Ví dụ thủ tục: 3! = Delete(st,vt,n); 32= Readln; Sin(30o) = 0.5 Writeln; (10) 3 Phân Phân loại loại chương chương trình trình con b) Cấu trúc: <PHẦNKHAI KHAIBÁO> BÁO> <PHẦN PHẦNTHÂN THÂN>> <<PHẦN HÀM(Function) Function <TÊNHÀM>[(<ds tham sỐ>)] : Kiểu hàm; THỦ TỤC (Procedure) Procedure <TÊNTHỦTỤC> [(<ds tham số>)]; [< Phần khai báo >] Begin [< Phần khai báo >] Begin [<Dãy lệnh>]; TÊNHÀM := Giá trị; [<Dãy lệnh>]; End; End; 10 (11) 3 Phân Phân loại loại chương chương trình trình con b) Cấu trúc: <PHẦNKHAI KHAIBÁO> BÁO> <PHẦN PHẦNTHÂN> THÂN> <<PHẦN HÀM(Function) Ví dụ 1: x Function <TÊNHÀM>[(<ds tham sỐ>)] :Kiểu hàm; [< Phần khai báo >] Begin Function Luythua(a,x:integer): longint; Var i: integer; s:longint; Begin s:=1; For i:=1 to x s:=s*a; [<Dãy lệnh>] TÊNHÀM := Giá trị; End; a x Luythua:= S; End; 11 (12) 3 Phân Phân loại loại chương chương trình trình con b) Cấu trúc: <PHẦNKHAI KHAIBÁO> BÁO> <PHẦN PHẦNTHÂN> THÂN> <<PHẦN Ví dụ 2: Vẽ hình chữ nhật Procedure <TÊN THỦ TỤC> [(<ds thamsố>)]; Procedure veHCN ; Begin [< Phần khai báo >] Writeln('****************'); Begin Writeln('* [<Dãy lệnh>] End; *'); Writeln('************'); Writeln; End; 12 (13) Các bài toán sau dùng hàm hay thủ tục: Hoánđổi đổihai haisố sốaavà vàb: b: Hoandoi(a,b) Hoandoi(a,b) •• Hoán Procedure Hoandoi (a,b:real) Tìmước ướcchung chunglớn lớnnhất nhấtcủa củaaavà vàb: b:UCLN(a,b) UCLN(a,b) 2.2.Tìm Function UCLN (a,b: integer): integer; 3.Xóaxâu xâuSStại tạivịvịtrí trív,v,xóa xóannphần phầntử: tử:Delete(s,v,n) Delete(s,v,n) 3.Xóa Procedure Delete (s:string;v,n:byte) Kiểmtra traa,b,c a,b,ccó cólà làba bacạnh cạnhcủa củamột mộttam tamgiác: giác:KT(a,b,c) KT(a,b,c) 4.4.Kiểm Function tamgiac (a,b,c: word): Boolean; 13 (14) Program tong_luy_thua; Uses crt; Var a,b,c,d, n,m,p,q :integer; S:longint; Ví dụ 1: S= 24 + 33 + 42 + 51 Function luythua(a,n:integer): longint; Var i: integer; S : longint; begin S:=1; For i:=1 to n S:=S*a; Luythua:=S; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(a,b,c,d); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(n,m,p,q); s:= luythua(a,n)+ luythua(b,m)+ luythua(c,p)+ luythua(d,q); Writeln(‘ Tong luy thua =’, S:7:2); Readln; END 14 (15) Program tong_luy_thua; Uses crt; Var a,b,c,d,S , n,m,p,q :integer; S: Longint; Ví dụ 1: S= 24 + 33 + 42 + 51 Function luythua(2,4): Longint; longint; Function luythua(a,n:integer): Var i: integer; S: Longint; begin S:=1; For For i:=1 i:=1toto4ndo doLt:=Lt*2 S:=Lt*a; Luythua:=16; Luythua:=Lt; end; BEGIN Write(‘ Nhap vao cac co so a,b,c,d ‘); readln(2,3,4,5); write(‘ Nhap vao cac so mu m,n,p,q: ’); readln(4,3,2,1); luythua(2,4) + luythua(b,m) + luythua(a,n) 16 + 27 + + 16 luythua(c,p) + 5luythua(d,q); S:= Tong luy Tong thua luy S = thua 64 =’, S:0:0); Writeln(‘ Readln; END 15 (16) Program HINHCHUNHAT; Uses crt; Ví dụ 2:VẼ RA MÀN HÌNH HÌNH CHỮ NHẬT Procedure veHCN ; Begin Writeln('* Writeln('* * * * * * * * *'); Writeln('* Writeln; End; * * * * * * * *'); *'); BEGIN Clrscr; Writeln(‘ket qua:’); veHCN ; veHCN ; veHCN ; veHCN ; veHCN ; Readln END ket qua: ********* * * ********* ********* * * ********* ********* * * ********* ********* * * ********* ********* * * ********* 16 (17) 3 Phân Phân loại loại chương chương trình trình con a) Phân loại: b) Cấu trúc: Lưu ý: ý: Lưu Vị trí trí của chương chương trình trình con được viết: viết: ••Vị Sau phần phần khai khai báo báo Var Var và và •• Sau Trước từ từ khóa khóa BEGIN BEGIN của chương chương •• Trước trình chính chính trình Sử dụng dụng CTC CTC thì thì ta ta gọi gọi hàm: hàm: ••Sử TênCTC (giá (giá trị) trị) TênCTC 17 (18) H·y nhí! Chương trình là dãy lệnh sử dụng nhiều lần chương trình chính Chương trình gồm hai loại a Hàm: Trả giá trị qua tên b Thủ tục: Không trả giá trị cụ thể nào Cấu trúc: 18 (19) Bài tập nhà Viết Viết chương chương trình trình tính: tính: Viết Viết chương chương trình trình rút rút gọn gọn phân phân số: số: a/b a/b 19 (20)