Bài 18: Ví Dụ Về Cách Viết Và
Sử Dụng Chương Trình Con
1. Cách viết và sử dụng thủ tục:
2. Cách viết và sử dụng hàm
Cấu trúc của thủ tục
Ví dụ về thủ tục
Cấu trúc của hàm
Ví dụ về hàm
Hình chữ nhật có dạng sau:
* * * * * * * * * *
* *
* * * * * * * * * *
Để vẽ được hình chữ nhật trên ta viết câu lệnh như thế nào trong chương trình ?
Writeln(‘* * * * * * * * * * ‘);
Writeln(‘* * ‘);
Writeln(‘* * * * * * * * * * ‘);

1. Cách viết và sử dụng thủ tục:
Để vẽ được 3 hình chữ nhật trên ta viết câu lệnh như thế nào trong chương trình ?

Writeln(‘* * * * * * * * * * ‘);
Writeln(‘* * ‘);
Writeln(‘* * * * * * * * * * ‘);

Writeln(‘* * * * * * * * * * ‘);
Writeln(‘* * ‘);
Writeln(‘* * * * * * * * * * ‘);

Writeln(‘* * * * * * * * * * ‘);
Writeln(‘* * ‘);
Writeln(‘* * * * * * * * * * ‘);
? Chương trình sử dụng thủ tục vẽ hình chữ nhật
Program VD_thutuc1;

Procedure ve_hcn;
begin
Writeln(‘* * * * * * * * * * ‘);
Writeln(‘* * ‘);
Writeln(‘* * * * * * * * * * ‘);
End;
Begin
ve_hcn; { lôøi goïi thuû tuïc ve_hcn}
writeln; writeln ;
ve_hcn; { lôøi goïi thuû tuïc ve_hcn}
writeln; writeln ;
ve_hcn; { lôøi goïi thuû tuïc ve_hcn}
End.

1. Cách viết và sử dụng thủ tục:
Cấu trúc của thủ tục
Procedure < teân thuû tuïc> [(ds tham soá )] ;
[ ]
Begin
[ < caùc caâu leänh > ]
End;
b. Ví dụ về thủ tục
1. Cách viết và sử dụng thủ tục:
Cấu trúc của thủ tục
Ví dụ 1: Viết chương trình hoán đổi giá trị của 2 số ( dùng thủ tục )
Để hoán đổi giá trị của x và y ta thực hiện như thế nào ?
Giả sử x= 5, y = 10
Dùng biến trung gian TG
TG := x;
x := y;
y := TG;
Program VD1;
Var a, b : integer ;
Procedure hoandoi(var x,y:integer);
Var tg :integer;
Begin
tg := x;
x := y;
y := tg;
End;
Begin
a :=5;
b :=10;
Write(‘gia tri a, b ’, a:6, b:6);
Hoandoi(a,b);
Writeln(‘ gia tri a, b ’, a, b);
Readln;
End.
?Tham số hình thức được thay bằng tham số thực tương ứng là tên các biến chứa dữ liệu ra gọi là tham số biến ( tham biến)
? Tham số hình thức được thay bằng tham số thực tương ứng là các giá trị cụ thể gọi là tham số giá trị (tham trị)
? Trong chương trình con để phân biệt tham trị và tham biến :
Ví dụ 2: Chương trình sau đây dùng tham trị và tham biến.
Program VD1;
Var a, b : integer ;
Procedure hoandoi(x : integer ;var y:integer);
Var tg :integer;
Begin
tg := x;
x := y;
y := tg;
End;
Begin
a :=5;
b :=10;
Writeln(a:6, b:6);
Hoandoi(a,b);
Writeln(a:6, b:6);
Readln;
End.
Hãy xác định tham trị và tham biến trong thủ tục ?
x là tham trị, y là tham biến
Kết quả khi thực hiện chương trình

5 10
5 5
Sau khi thực hiện chương trình thì giá trị của biến a, b như thế nào ?
Giá trị của biến a không thay đổi,
giá trị của biến b thay đổi
a,b laø bieán toaøn cuïc, tg laø bieán cuïc boä
Em hiểu như thế nào về biến cục bộ và biến toàn cục ?
? Biến toàn cục là biến được khai báo trong chương trình chính
? Biến cục bộ là biến được khai báo trong chương trình con
Xem lại chương trình hoán đổi 2 số
Program VD1;
Var a, b : integer ;
Procedure hoandoi(x : integer ;var y:integer);
Var tg :integer;
Begin
tg := x;
x := y;
y := tg;
End;
Begin
a :=5;
b :=10;
Writeln(a:6, b:6);
Hoandoi(a,b);
Writeln(a:6, b:6);
Readln;
End.