A. Mục tiêu bài dạy:
1. Kiến thức:
· Biết cấu trúc một thủ tục hàm
· Biết mối liên quan giữa chương trình và thủ tục, hàm
· Biết gọi thủ tục, hàm
2. Kĩ năng:
· Nhận biết được các thành phần trong phần đầu của thủ tục, hàm
· Viềt được thủ tục và hàm đơn giản.
B. Chuẩn bị giáo viên và hoc sinh:
1. Giáo viên: Giáo án
2. Học sinh: Chuẩn bị bài trước
C. Phân tiết:
ẹụn vũ: Trửụứng THPT NGUYEÃN TRAếI Teõn giaựo vieõn: Nguyeón Huyứnh Nhaọt Vieọt Giaựo aựn: Baứi 18 – Moõn tin 11 Ngaứy soaùn: 25/7/2007 Teõn baứi daùy: Baứi 18 VÍ DUẽ VEÀ CAÙCH VIEÁT VAỉ SệÛ DUẽNG CHệễNG TRèNH CON BAỉI 18: VÍ DUẽ VEÀ CAÙCH VIEÁT VAỉ SệÛ DUẽNG CHệễNG TRèNH CON Muùc tieõu baứi daùy: Kieỏn thửực: Bieỏt caỏu truực moọt thuỷ tuùc haứm Bieỏt moỏi lieõn quan giửừa chửụng trỡnh vaứ thuỷ tuùc, haứm Bieỏt goùi thuỷ tuùc, haứm Kú naờng: Nhaọn bieỏt ủửụùc caực thaứnh phaàn trong phaàn ủaàu cuỷa thuỷ tuùc, haứm Vieàt ủửụùc thuỷ tuùc vaứ haứm ủụn giaỷn. Chuaồn bũ giaựo vieõn vaứ hoc sinh: Giaựo vieõn: Giaựo aựn Hoùc sinh: Chuaồn bũ baứi trửụực Phaõn tieỏt: Tieỏn trỡnh baứi daùy: ẹieồm danh: Kieồm tra baứi cuừ: GV: Trỡnh baứy caỏu truực vaứ taùi sao phaỷi duứng chửụng trỡnh con. HS: Traỷ lụứi caõu hoỷi GV: Nhaọn xeựt, ủaựnh giaự vaứ cho ủieồm. Baứi mụựi: Noọi dung Hoaùt ủoõng cuỷa giaựo vieõn vaứ hoùc sinh Caựch vieỏt vaứ sửỷ duùng thuỷ tuùc: Xeựt chửụng trỡnh. Procedure Ve_Hcn; Begin Writeln(‘**********’); Writeln(‘* *’); Writeln(‘**********’); End; Begin Ve_Hcn; Writeln; Writeln; Writeln; Writeln; Ve_Hcn; End. Caỏu truực thuỷ tuùc: Procedure [()]; [] Begin [] End; Thuỷ tuùc coự tham soỏ: Xeựt chửụng trỡnh Program VD_thutuc2; uses crt; var a,b,i:integer; Procedure Ve_Hcn(chdai,chrong:integer); var i,j:integer; Begin for i:=1 to chdai do write(‘*’); writeln; for j:=1 to chrong-2 do write(‘ ‘); writeln(‘*’); End; for i:=1 to chdai do write(‘*’); writeln; Begin clrscr; Ve_Hcn(25,10); writeln; writeln; Ve_Hcn(5,10); Readln; clrscr; a:=4; b:=2; for i:=1 to 4 do begin Ve_Hcn(a,b); Readln; clrscr; a:=a*2; b:=b*2; End; Readln; End. Tham bieỏn: Xeựt chửụng trỡnh Program VD_thambien1; uses crt; var a,b:integer; Procedure Hoan_doi(var x,y:integer); var TG:integer; Begin TG:=x; x:=y; y:=TG; End; Begin clrscr; a:=5;b:=10; writeln(a:6,b:6); Hoan_doi(a,b); writeln(a:6,b:6); End. Program VD_thambien2; uses crt; var a,b:integer; Procedure Hoan_doi(x:integer; var y:integer); var TG:integer; Begin TG:=x; x:=y; y:=TG; End; Begin clrscr; a:=5; b:=10; writeln(a:6,b:6); Hoan_doi(a,b); writeln(a:6,b:6); End. Caựch vieỏt vaứ sửỷ duùng haứm: Haứm coự caỏu truực tửụng tửù nhử thuỷ tuùc. Tuy nhieõn coự khaực nhau phaàn ủaàu: Khai baựo phaàn ủaàu: function [()]:; Khaực vụựi thuỷ tuùc trong thaõn haứm caàn coự leọnh gaựn giaự trũ cho teõn haứm: := ; Vớ duù 1: Xeựt chửụng trỡnh: Program Rutgon_phanso; uses crt; var Tuso, Mauso,a:integer; function UCLN(x,y:integer):integer; var Sodu:integer; Begin while y 0 do Begin Sodu:= x mod y; x:=y; y:=Sodu; End; UCLN:=x; End; Begin clrscr; write(‘Nhap Tuso, Mauso:’); readln(Tuso,Mauso); a:=UCLN(Tuso,Mauso); if a>1 then Begin Tuso:= Tuso div a; Mauso:= Mauso div a; End; Writeln(Tuso:5, Mauso:5); End. Vớ duù 2: Xeựt chửụng trỡnh Program Minbaso; var a,b,c: real; function Min(a,b:real):real; Begin if a < b then Min:=a else Min:=b; End; Begin Write(‘Nhap vao 3 so’); Readln(a,b,c); writeln(‘So nho nhat trong 3 so la:’,Min(Min(a,b),c); readln End. GV: Caực em nhỡn vaứo chửụng trỡnh beõn cho bieõt xuaõt ra keỏt quaỷ gỡ? HS: Traỷ lụứi caõu hoỷi. GV: Nhaọn xeựt. GV: Chaùy chửụng trỡnh baống tay vaứ giaỷi thớch tửứng caõu leọnh vaứ noựi hoùc sinh chuự yự ủeỏn khai baựo thuỷ tuùc vaứ goùi thuỷ tuùc. GV: Goùi moọt hoùc sinh haừy nhỡn vaứo chửụng trỡnh vaứ chuự yự ủeỏn thuỷ tuùc vaứ cho bieỏt caỏu truực cuỷa thuỷ tuùc goàm nhửừng phaàn naứo? HS: Traỷ lụứi. GV: Nhaọn xeựt. GV: Caực em sang thuỷ tuùc 2 Xeự thuỷ tuùc coự tham soỏ. GV: Em nhaọn xeựt giửừa thuỷ tuùc 1 vaứ thuỷ tuùc 2? HS: Traỷ lụứi. GV: Nhaọn xeựt. GV: Chaùy chửụng trỡnh baống tay vaứ giaỷi thớch tửứng caõu leọnh. GV: Chổ cho hoùc sinh bieỏt bieỏn toaứn cuùc vaứ bieỏn ủũa phửụng vaứ phaùm vi hoaùt ủoọng cuỷa tửứng loaùi bieỏn. GV: Caàn noựi roừ veà tham soỏ trong thuỷ tuùc 2 laứ tham soỏ trũ vaứ giaỷi thich. Ngoaứi ra coứn coự tham soỏ bieỏn. GV: Tham soỏ bieỏn Pascal sửỷ duùng tửứ khoaự Var ủeồ khai baựo. Ta xeựt vớ duù ụỷ muùc c ủeồ hieồu veà tham soỏ bieỏn. GV: Chaùy tay vaứ giaỷi thớch tửứng caõu leọnh cho keỏt quaỷ 5 10 5 GV: ẹeồ thaỏy ủửụùc roừ hụn veà sửù khaực bieọt giửừa tham bieỏn vaứ tham trũ ta xet theõm vớ duù tham bieỏn 2. GV: Chaùy tay vaứ giaỷi thớch tửứng caõu leọnh. Cho keỏt quỷa: 5 10 5 GV: Tửứ caực vớ duù treõn ta thaỏy ủửụùc sửù khaực bieọt khi sửỷ duùng tham bieỏn vaứ tham trũ. GV: Khi vieỏt chửụng trỡnh con ngoaứi thuỷ tuùc coứn coự theồ sửỷ duùng haứm. ẹeồ noựi roừ veà haứm vaứ caựch duứng haứm caực em sang muùc 2. GV: Chaùy tay vaứ giaỷi thich tửứng caõu leõnh. GV: Chaùy tay vaứ giaỷi thớch tửứng caõu leọnh. Cuỷng coỏ: Caựch duứng thuỷ tuùc vaứ haứm vaứ sửù khaực nhau giửừa thuỷ tuùc vaứ haứm Sửù khaực nhau giửừa tham bieỏn vaứ tham trũ. Caựch duứng hai tham soỏ naứy Phaùm vi taực ủoọng cuỷa bieỏn toaứn cuùc vaứ bieỏn cuùc boọ. Daởn doứ: Chuaồn bũ baứi taọp vaứ thửùc haứnh 6 trang 103-104 Chuaồn bũ baứi taọp vaứ thửùc haứnh 7 tửứ trang 105 ủeỏn 108.
Tài liệu đính kèm: