Giáo án môn Tin học 11 - Bài 18: Ví dụ về cách viết và sử dụng chương trình con

ẹụ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.