bai 18 vi du ve su dung chuong trinh con

NHIIỆT LIỆT CHÀO MỪNG
CÁC THẦY, CÁC CÔ VỀ DỰ
GIỜ THĂM LỚP
Giáo viên: Nguyễn Thị Thu Hương
Học sinh : Lớp 11 Hoá


Ñaëng Höõu Hoaøng
CHUYÊN LƯƠNG VĂN TỤY
TRƯỜNG TRUNG HỌC PHỔ THÔNG

Ñaëng Höõu Hoaøng
BÀI 18
VÍ DỤ VỀ CÁCH VIẾT
VÍ DỤ VỀ CÁCH VIẾT
VÀ SỬ DỤNG CHƯƠNG
VÀ SỬ DỤNG CHƯƠNG
TRÌNH CON
TRÌNH CON


1. CẤU TRÚC CỦA THỦ TỤC
1. CẤU TRÚC CỦA THỦ TỤC


a) VÍ DỤ 1 VỀ THỦ TỤC
a) VÍ DỤ 1 VỀ THỦ TỤC
Lập chương trình vẽ các hình
chữ nhật bằng dấu * có kích
thước khác nhau.

**********************************
* *
* *
* *
**********************************
dài
rộng
Vẽ cạnh trên của HCN
Vẽ hai cạnh bên
Vẽ cạnh dưới
For i:=1 to chdai do write (‘*’);
Writeln;
For j:=1 to chrong - 2 do
Begin
Write(‘*’);
For i:=1 to chdai - 2 do Write(‘ ‘);
Writeln(‘*’)
end;
For i:=1 to chdai do write(‘*’);
Writeln;
Hãy viết một thủ tục Ve_HCN bằng
dấu * với chiều dài, chiều rộng bất kì.

Program vidu;
Uses crt;
var a,b: byte;
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
begin
write( * );‘ ’
for i:=1 to chdai-2 do write( );‘ ‘
writeln( * );‘ ’
end;
For i:=1 to chdai Do write( * );‘ ’
writeln;
end;
Begin
CLRSCR;
Ve_HCN(25,10);
Writeln; a:=5 ; b:=10;
Ve_HCN(a,b);
readln;
End.
Cấu trúc của
thủ tục ?




b) CẤU TRÚC CỦA THỦ TỤC
b) CẤU TRÚC CỦA THỦ TỤC
1. CÁCH VIẾT VÀ SỬ DỤNG THỦ TỤC
1. CÁCH VIẾT VÀ SỬ DỤNG THỦ TỤC
Procedure<tên thủ tục>[(<danh sách tham số>)];
[<phần khai báo>]

Begin
[<dãy các lệnh>]
End;
Procedure<tên thủ tục>[(<danh sách tham số>)];
[<phần khai báo>]
Begin
[<dãy các lệnh>]
End;

Program vidu;
Uses crt;
var a,b: byte;
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
begin
write( * );‘ ’
for i:=1 to chdai-2 do write( );‘ ‘
writeln( * );‘ ’
end;
For i:=1 to chdai Do write( * );‘ ’
writeln;
end;
Begin
CLRSCR;
Ve_HCN(25,10);
Writeln; a:=5 ; b:=10;

Ve_HCN(a,b);
readln;
End.
Biến cục bộ
Tham số thực sự (tham trị)
Tham số hình thứcBiến toàn cục


1. CẤU TRÚC CỦA THỦ TỤC
1. CẤU TRÚC CỦA THỦ TỤC


c) VÍ DỤ 2 VỀ THỦ TỤC
c) VÍ DỤ 2 VỀ THỦ TỤC
Lập chương trình hoán đổi
giá trị của hai số a, b
X Y TG
TG:=X;


1. CẤU TRÚC CỦA THỦ TỤC
1. CẤU TRÚC CỦA THỦ TỤC


c) VÍ DỤ 2 VỀ THỦ TỤC
c) VÍ DỤ 2 VỀ THỦ TỤC
Lập chương trình hoán đổi
giá trị của hai số a, b
X Y TG
TG:=X;

X:=Y;


1. CẤU TRÚC CỦA THỦ TỤC
1. CẤU TRÚC CỦA THỦ TỤC


c) VÍ DỤ 2 VỀ THỦ TỤC
c) VÍ DỤ 2 VỀ THỦ TỤC
Lập chương trình hoán đổi
giá trị của hai số a, b
X Y TG
TG:=X;
X:=Y;
Y:=TG;

VÍ DỤ 2
VÍ DỤ 2
Quan sát sách giáo khoa trang 99, chương
trình VD_thambien1

Program VD;
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);
readln;
End.
Biến cục bộ
Tham số thực sự (tham biến)
Tham số hình
thức
Biến toàn cục

2. CẤU TRÚC CỦA HÀM
2. CẤU TRÚC CỦA HÀM
Cấu trúc của hàm?
Function<tên hàm>[(<danh sách tham số>)]: <kiểu của hàm> ;
[<phần khai báo>]
Begin
[<dãy các lệnh>]
<tên hàm>:= <biểu thức>
End;
Function<tên hàm>[(<danh sách tham số>)]: <kiểu của hàm> ;
[<phần khai báo>]
Begin
[<dãy các lệnh>]
<tên hàm>:= <biểu thức>
End;

So sánh sự giống và khác nhau của hàm
và thủ tục?
Giống: có cấu trúc tương tự, có các tham số.
Khác: tên hàm phải quy định kiểu dữ liệu.
Trong thân hàm phải có
<tên hàm>:= <biểu thức>
VÍ DỤ 1 VỀ HÀM
VÍ DỤ 1 VỀ HÀM
Lập chương trình thực hiện việc rút gọn
một phân số, trong đó có sử dụng hàm
tính ước số chung lớn nhất (ƯCLN) của
hai số nguyên.

Quan sát chương trình

Có những biến nào sử dụng trong chương
trình?
Các biến: tuso, mauso, A, sodu
Các biến trên được khai báo ở chỗ nào trong
chương trình?
Các biến tuso, mauso, A được khai báo trong
chương trình chính.
Biến sodu được khai báo trong chương trình
con.
VÍ DỤ 2 VỀ HÀM
VÍ DỤ 2 VỀ HÀM
Lập chương trình cho biết giá trị nhỏ nhất
trong ba số nhập từ bàn phím, trong đó có
sử dụng hàm tìm số nhỏ nhất trong hai số.

Quan sát chương trình


Thực hiện tháng 04 năm 2010