Đặng Hữu HoàngCHUYÊN LƯƠNG VĂN TỤY TRƯỜNG TRUNG HỌC PHỔ THƠNG Đặng Hữu Hoàng BÀI 18 VÍ DỤ VỀ CÁCH VIẾT VÀ SỬ DỤNG CHƯƠNG TRÌNH CON... CẤU TRÚC CỦA THỦ TỤC a VÍ DỤ 1 VỀ THỦ TỤC Lập ch
Trang 1NHIIỆ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á
Trang 2Đặng Hữu Hoàng
CHUYÊN LƯƠNG VĂN TỤY
TRƯỜNG TRUNG HỌC PHỔ THƠNG
Đặng Hữu Hoàng
BÀI 18
VÍ DỤ VỀ CÁCH VIẾT
VÀ SỬ DỤNG CHƯƠNG
TRÌNH CON
Trang 31 CẤU TRÚC CỦA 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
Trang 4* *
* *
* *
**********************************
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ì.
Trang 5Program 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 ?
Trang 6b) CẤU TRÚC CỦA 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;
Trang 7Program 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ức Biến toàn cục
Trang 81 CẤU TRÚC CỦA 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
TG:=X;
Trang 91 CẤU TRÚC CỦA 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
TG:=X; X:=Y;
Trang 101 CẤU TRÚC CỦA 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
TG:=X; X:=Y; Y:=TG;
Trang 11VÍ DỤ 2
Quan sát sách giáo khoa trang 99, chương
trình VD_thambien1
Trang 12Program 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
Trang 132 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;
Trang 14So 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
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
Trang 15Quan sát chương trình
Trang 16Có những biến nào sử dụng trong chương
trình?
Các biến trên được khai báo ở chỗ nào trong
chương trình?
chương trình chính.
con.
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ố
Trang 17Quan sát chương trình
Trang 18Thực hiện tháng 04 năm 2010