Bài giảng Ví dụ cách viết và sử dụng chương trình con. Bài giảng xây dựng theo hướng tương tác với học sinh. có các trigger tạo cho bài giảng khả năng tương tác, sinh động hơn. Bài giảng có sự dẫn dắt học sinh đi vào bài mới; Hoạt động nhóm để học sinh tự đọc tài liệu, mở các ô trống bằng các nháy chuột vào ô tương tứng để đưa ra cấu trúc thủ tục
KIỂM TRA BÀI CŨ Program Tinh_tong; Var a,b,c,d:real; m,n,p,q:integer; TLt:real; Function Lt(a:real; x : integer) : real; Var T:real; i:integer; Begin T:=1.0; For i:=1 to x T:=T*a; Lt:=T; End; Begin {bắt đầu chương trình chính} Write(‘nhap a, b,c,d,m,n,p,q:’);readln(a,b,c,d,m,n,p,q); TLt:=Lt(a,n) +Lt(b,m) +Lt(c,p) + Lt(d,q); writeln(‘Tong la:’,TLt:8:4); Readln End TIẾT 39 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Ví dụ cách viết sử dụng thủ tục Ví dụ: Viết chương trình in Program ve_hcn; hình hình chữ nhật có dạng: Begin Writeln(‘*******’); ******* Writeln(‘*******’); ******* Writeln(‘*******’); ******* Writeln; Writeln(‘*******’); ******* Writeln(‘*******’); ******* Writeln(‘*******’); ******* Writeln; ******* Writeln(‘*******’); ******* Writeln(‘*******’); ******* Writeln(‘*******’); End TIẾT 39 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Ví dụ cách viết sử dụng thủ tục Program vidu; Program vidu; Procedure Ve_HCN; Begin Begin Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln; End; Writeln(‘*******’); Begin Writeln(‘*******’); Ve_HCN; Writeln(‘*******’); Ve_HCN; Writeln; Ve_HCN; Writeln(‘*******’); End Writeln(‘*******’); Writeln(‘*******’); End Viết hình chữ nhật với kích thước khác Cột = ch_dai ************** ************** ************** Dòng = Ch_rong ************** ************** {Duyệt từ dòng đến dòng cuối} ************** ********* For i:=1 to Ch_rong Do ********* ********* ********* ********* ***** ***** ***** ***** ***** {Trên dòng viết từ dấu ‘*’ số đến dấu ‘*’ cuối dòng} Begin FOR J:=1 to Ch_dai DO Writeln; end; Write(‘*’); PROGRAM ve_hinh_chu_nhat; USES Crt; VAR c, n: integer; Procedure Ve_HCN2(Ch_dai,Ch_rong:integer); Var I, j: integer Begin For i:=1 to Ch_rong Begin * For j:=1 to Ch_dai Write(‘ ’); Writeln; End; End; BEGIN Clrscr; Ve_HCN2(6,10); Writeln; n:=14; c:=20; Ve_HCN2(c, n); END TIẾT 39 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Cách viết sử dụng thủ tục Cấu trúc thủ tục Procedure [(:Kiểu liệu)]; []; Begin ; End; - Phần11đầu: gồm tên dành riêng Procedure, tên thủ tục Danh sách tham số có khơng -Phần khai báo: có khơng, dùng để khai báo hằng, biến sử dụng chương trình -Dãy câu lệnh đặt cặp Begin end; tạo thành phần thân thủ tục TIẾT 39 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Ví dụ cách viết sử dụng thủ tục Program vidu; Program vidu; Procedure Ve_HCN; Begin Begin Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln(‘*******’); Writeln; End; Writeln(‘*******’); Begin Writeln(‘*******’); Ve_HCN; Writeln(‘*******’); Ve_HCN; Writeln; Ve_HCN; Writeln(‘*******’); End Writeln(‘*******’); Writeln(‘*******’); End BiÕn toµn cơc PROGRAM ve_hinh_chu_nhat; Tham sè h×nh thøc USES Crt; VAR c, n: integer; Procedure Ve_HCN2(Ch_dai,Ch_rong:integer); Var I, j: integer Begin For i:=1 to Ch_rong Begin BiÕn côc bé * For j:=1 to Ch_dai Write(‘ ’); Writeln; End; End; BEGIN Clrscr; Ve_HCN2(6,10); Writeln; n:=14; c:=20; Ve_HCN2(c, n); END Tham sè thùc sù Program VD; BiÕn toµn cơc Uses crt; var a,b: integer; BiÕn côc bé Procedure Hoan_doi( x,y:integer); Var TG: integer; Begin Tham sè h×nh thøc TG:= x; x:= y; y:=TG; end; BEGIN CLRSCR; a:= ; b:= 10; Tham sè thùc sù Writeln( a:6 , b:6); Hoan_doi(a,b); Writeln( a:6 , b:6); readln; END * Tham số cách truyền tham số: Kiểu tham số Khai báo hình thức Giá trị tham số thực tương ứng sau thực thi chương trình Tham số hình Khơng có VAR thức trị Giữ nguyên giá trị ban đầu trước gọi chương trình Tham số hình Có VAR thức biến Lấy giá trị kết chương trình Tham Tham số hình thức trị -> tham số giá trị gọi tắt tham trị số hình thức biến -> tham số biến gọi tắt tham biến 2 Cách viết sử dụng hàm: Function [()] :kiểu hàm; [< Phần khai báo >] Begin [] tênhàm := giátrị; End; Lu ý s dụng hàm: Việc Kết sử dụng hàm tương tự hàm chuẩn trả qua tên hàm thuộc kiểu liệu chuẩn: integer, real, boolean, char, string Lệnh gọi hàm tham gia vào biểu thức toán hạng chí tham số lời gọi hàm, thủ tục khác m n VD: VD: LËp LËp ch chư¬ng ơng trình trình tính tính tổng tổng luỹ luỹ thừa thõa SS = = aam+b +bn pp qq +c +d +c +d Program tong_luy_thua; Uses crt; Var a,b,c,d,S : real; n,m,p,q :integer; Function luythua(x: real,k:integer): real; Var j: integer; Lt:Real; begin Lt:=1; For j:=1 to k Lt:=Lt*x; Luythua:=Lt; 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,m)+luythua(b,n)+luythua(c,p)+luythua(d,q); Writeln(‘ Tong luy thua =’, S:7:2); Readln; END • • • • BiÕn khai b¸o ë CT chÝnh cã tác dụng chơng trình gọi biến toàn cục Biến đợc khai báo CTC có tác dụng CTC gọi biến cục Biến đc khai báo cho liệu vào/ra CTC gọi tham số hình thức Biến chứa lời gọi CTC chơng trình tham số thực VD: VD: Lập Lập ch chơng ơng trình trình tối tối giản giản phân phân số số Ví dụ: nhập 6/10 => 3/5 * INPUT : NhËp ph©n sè a/b; * OUTPUT : Phân số c/d - Trong đó: c = a/¦CLN(a,b); d = b/¦CLN(a,b); Program tgps; Uses crt; Nhap vao tu so va mau so: 10 Phan so toi gian = 3/5 Var tu,mau,c,d : integer; Function UCLN( a,b :integer) : integer; Begin While a b if a>b then a := a-b else b:=b-a; USCLN=2; UCLN:=2; UCLN := a; end; BEGIN BEGIN Write(‘Nhap vao tu tu so so va mau so:’);so:’);Readln(tu,mau); Write(‘ Nhap vao vµ mau readln(tu,mau); C := div UCLN(6,10) := 10 divdiv UCLN(tu,mau); UCLN(6,10); C := tu div UCLN(tu,mau) ; dd := mau Writeln(‘ ’, d); 5); Writeln(‘ Phan Phan so so toi toi gian gian = = ’, ’, 3, c, ‘‘ // ’, Readln; Readln; END H·y nhí! BiÕn: - Khai báo chơng trình biến toàn cục - Khai báo chơng trình biến cục Tham số - Biến khai báo cho liệu vào chơng trình gọi tham sè - h×nh BiÕnthøc chøa lêi gäi CTC ë chơng trình tham số thực ... Writeln(‘*******’); End TIẾT 39 VÍ DỤ VỀ CÁCH VI T VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Ví dụ cách vi t sử dụng thủ tục Program vidu; Program vidu; Procedure Ve_ HCN; Begin Begin Writeln(‘*******’); Writeln(‘*******’);... thành phần thân thủ tục TIẾT 39 VÍ DỤ VỀ CÁCH VI T VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Ví dụ cách vi t sử dụng thủ tục Program vidu; Program vidu; Procedure Ve_ HCN; Begin Begin Writeln(‘*******’); Writeln(‘*******’);... End; BEGIN Clrscr; Ve_ HCN2(6,10); Writeln; n:=14; c:=20; Ve_ HCN2(c, n); END TIẾT 39 VÍ DỤ VỀ CÁCH VI T VÀ SỬ DỤNG CHƯƠNG TRÌNH CON Cách vi t sử dụng thủ tục Cấu trúc thủ tục Procedure [(