Bài 18: Tiết 2

CHƯƠNG 6 – BÀI 18
CHƯƠNG 6 – BÀI 18




Nội dung bài dạy:
Nội dung bài dạy:
1. Ví dụ
2. Thủ tục
3. Tham số
a)Tham số giá trị (tham trị)
b) Tham số biến (tham biến)
1. Ví dụ
2. Thủ tục
3. Tham số
a)Tham số giá trị (tham trị)
b) Tham số biến (tham biến)
1.
1.
Ví dụ
Ví dụ
:
:
 Vẽ hình chữ nhật có dạng sau:
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
Muốn vẽ 5 hình chữ nhật, phải viết 5 lần nhóm lệnh.
Phải viết lặp đi lặp lại nhóm lệnh
Dùng chương trình con:

THỦ TỤC
THỦ TỤC Ve_HCN
 Chương trình:
PROGRAM CT1;
BEGIN
END.
PROGRAM CT1;
BEGIN
END.
PROCEDURE Ve_HCN;
BEGIN
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
END;
PROCEDURE Ve_HCN;
BEGIN
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
END;
Ve_HCN;
Writeln; Writeln;
Ve_HCN;
Writeln; Writeln;
Ve_HCN;
Readln;
Bắt đầu thủ tục
Kết thúc thủ tục
Gọi thủ tục Ve_HCN

Gọi thủ tục Ve_HCN
Gọi thủ tục Ve_HCN
2.
2.
Thủ tục
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 (thân của thủ tục)… }
END;
PROCEDURE <Tên thủ tục>[(<Danh sách tham số>)];
[<Phần khai báo>];
BEGIN
{…dãy các lệnh (thân của thủ tục)… }
END;
PROCEDURE Ve_HCN;
BEGIN
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
END;
PROCEDURE Ve_HCN;
BEGIN
Writeln(‘* * * * * * *’);
Writeln(‘* *’);
Writeln(‘* * * * * * *’);
END;