Buổi 5 Chơng trình con và phân loại
1. Khi viết chơng trình giải các bài toán lớn, phức tạp, chơng rtình thờng rất dài, gồm
hàng trăm, hàng nghìn lệnh. Đọc các trơng trình dài rất khó nhận biết đợc chơng trình thực
hiện đợc các công việc gì. Vì vậy, vấn đề đặt ra là phải cấu tạo chơng trình nh thế nào để
cho chơng trình dễ đọc, dễ hiểu.
Cách viết và sử dụng thủ tục
Xét ví dụ vẽ hình chữ nhật có dạng sau:
***********
* *
***********
Hình chữ nhật này dễ dàng nhận đợc nhờ 3 lệnh:
Writeln(***********);
Writeln(* *);
Writeln(***********);
Nh vậy, trong một chơng trình, mỗi lần cần in ra một hình chữ nhật trên cần phải in
ra 3 lênh đó.
Trong chơng trình sâu đây ta đa 3 câu lênh trên vào một thủ tục cóa tên là:
Ve-HCN( Vẽ hình chữ nhật ) . Mỗi lần gọi thủ tục này, một hình chữ nhật nh trên đ-
ợc in ra. Có 3 lần gopị thủ tục vẽ hình chữ nhật.
Program Chuongtrinh1;
Procedure Ve_HCN; { Bắt đầu thủ tục }
Begin
Writeln(***********);
Writeln(* *);
Writeln(***********);
End; { Kết thúc thủ tục }
Begin
Ve_HCN; { Gọi thủ tục Ve_HCN }
Writeln;
Writeln;
Ve_HCN; { Gọi thủ tục Ve_HCN }

* Program vidu1;
Var a: array[1..10] of integer;
n:integer;
Procedure nhap;
Var i:integer;
Begin
Write(nhap vao so phan tu); readln(n);
For i:=1 to n Do readln(a[i]);
End;
BEGIN
Nhap;
END.
2. Tham sè:
a. Tham sè gi¸ trÞ ( Gäi t¾t lµ tham sè ).
1
3. Biến địa phương và toàn cục
Xét chương trình sau
Program bien;
Var I,j: integer;
Function ham(n:integer):boolean;
Var ok:boolean; i:integer;
Begin

End;
Begin
Writeln(ham(j));
End.
• Những biến khai báo ở chương trình chính được gọi là biến toàn cục
• Những biến khai báo ở trong chương trình chính gọi là biến địa phương
-Biến toàn cục được phép sử dụng ở mọi chỗ trong chương trình kể cả trong