bai tap pascal.doc

Phần
1
1
KIỂU DỮ LIỆU PROCEDURE
KIỂU DỮ LIỆU PROCEDURE
I. KHÁI NIỆM - ĐỊNH NGHĨA KIỂU PROCEDURE
1. KHÁI NIỆM
Ngôn ngữ Pascal đã cung cấp cho chúng ta các kiểu dữ liệu từ đơn giản đến nâng cao
như tập tin, con trỏ,... Bây giờ ta lại làm quen với một kiểu dữ liệu mới gọi là kiểu
Procedure.
Kiểu Procedure là kiểu dữ liệu mà một đối tượng (biến chẳng hạn) mang kiểu này nhận
giá trị không phải là các giá trị kiểu cơ bản mà là một “chương trình con”. Chúng ta có
thể xem một chương trình con như là một giá trị của một biến để rồi thực hiện các phép
gán hay truyền vào một chương trình con khác thông qua các tham số kiểu Procedure
này.
Thật chất một biến kiểu Procedure chính là một con trỏ chứa địa chỉ segment và offset
của một chương trình con thay vì địa chỉ của một vùng nhớ chứa dữ liệu.
2. ĐỊNH NGHĨA KIỂU PROCEDURE
Để định nghĩa kiểu Procedure chúng ta phải dùng từ khóa PROCEDURE hay từ khóa
FUNCTION và khai báo các đối số cũng như kiểu của chúng mà con trỏ trỏ đến
Procedure hay Function nào đó. Cú pháp như sau
TYPE
<tên_kiểu> = PROCEDURE( <đối_số>: <kiểu> );
<tên_kiểu> = PROCEDURE( VAR <đối_số>: <kiểu> );
<tên_kiểu> = FUNCTION( <đối_số>: <kiểu> ): <kiểu>;
Ví dụ:
TYPE
AnyProc = PROCEDURE;
DisplayProc = PROCEDURE(S: STRING);
StrProc = PROCEDURE(x,y,Attr:Byte; VAR St: STRING);
StrFunc = FUNCTION(A: Real; B,C: Byte): STRING;

II.KHAI BÁO BIẾN PROCEDURE
Khai báo biến kiểu Procedure cũng bình thường như các biến thuộc kiểu khác, bắt đầu
bằng từ khóa VAR, khai báo tên biến và tên kiểu Procedure.
Ví dụ:
VAR
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
Proc: AnyProc;
DProc: DisplayProc;
SProc: StrProc;
SFunc: StrFunc;
Một biến kiểu Procedure là một con trỏ 4 byte (32 bit) để lưu địa chỉ CTC. Khai khai báo
các biến kiểu Procedure thì kiểu Procedure mà biến đó mang nên được định nghĩa trước,
điều này làm cho chương trình sáng sủa hơn và tên kiểu có thể được sử dụng nhiều lần
mà tránh lặp lại không cần thiết.
Chú thích cho ví dụ trên:
 Proc là một biến con trỏ trỏ đến các chương trình con dạng Procedure không có đối
số.
 DProc là một con trỏ trỏ đến các Procedure có đối số kiểu chuỗi.
 SProc là một con trỏ trỏ đến các Procedure có bốn đối số với ba đối số đầu kiểu Byte,
đối số thứ tư kiểu chuỗi.
 DFunc là một con trỏ trỏ đến các Function có ba đối số mà hai đối số đầu có kiểu
Byte, đối số thứ ba kiểu Real. Các Function này sẽ trả về một giá trị kiểu chuỗi.
Chú ý: Các biến trỏ trỏ vào Procedure sẽ hoạt động như một câu lệnh trong chương
trình, tức là như một lời gọi thủ tục, trong ví dụ trên là các biến Proc, DProc, SProc.
Tương tự vậy, các biến trỏ đến các Function sẽ hoạt động như một hàm, tức là chúng
xuất hiện dưới dạng các lời gọi hàm. Tóm lại các biến kiểu Procedure xuất hiện trong
chương trình như là các lời gọi CTC với đầy đủ các tham số mà Procedure hay Function
mà nó trỏ đến có thể có.
Các hàm và thủ tục sau này được xem như là các giá trị của các biến kiểu Procedure phải

là các chương trình con được khai báo gọi xa với chỉ thị {$F+}.
III. CÁC PHÉP TOÁN TRÊN KIỂU PROCEDURE
1. PHÉP GÁN
Cú pháp phép toán:
<Biến_Procedure> := <Tên_Chương_Trình_Con>;
Không như phép gán đối với các biến có kiểu cơ bản, phép gán ở đây mang ý nghĩa là
gán địa chỉ segment và offset của đoạn mã CTC với tên được chỉ ra ở vế phải cho biến
kiểu Procedure ở vế trái. Biến này được xem như con trỏ trỏ đến CTC đó.
Ví dụ: Viết chương trình thực hiện một trong bốn phép toán + - × và ÷ bằng cách dùng
các hàm và sử dụng biến kiểu Procedure.
TYPE
FuncType = Function( x, y: Real ): Real;
VAR
FuncVar: FuncType;
a, b: Real;
Ch: Char
{------- Định nghĩa hàm -------}
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
{$F+} {Chỉ thị gọi xa }
Function Cong(a, b: Real): Real;
Begin
Cong := a + b;
End;
Function Tru(a, b: Real): Real;
Begin
Tru := a - b;
End;
Function Nhan(a, b: Real): Real;
Begin

Nhan := a * b;
End;
Function Chia(a, b: Real): Real;
Begin
Chia := a / b;
End;
{$F-} {Bỏ gọi xa }
{------- Chương trình chính -------}
BEIN
Write(‘A=’); ReadLn(a);
Write(‘Phép toán:’); ReadLn(Ch);
Write(‘B=’); ReadLn(b);
{-- Gán giá trị vào biến Procedure --}
Case Ch Of
‘+’: FuncVar:=Cong;
‘-’: FuncVar:=Tru;
‘*’: FuncVar:=Nhan;
‘/’: FuncVar:=Chia;
End;
WriteLn(‘Kết quả là: ’, FuncVar(x, y):2:2);
ReadLn;
END.
Chú thích cho chương trình ví dụ:
Trong chương trình trên, chúng ta đã định nghĩa một kiểu Procedure là FuncType là hàm
có hai tham số kiểu Real và giá trị trả về cũng là kiểu Real.
FuncType = Function( x, y: Real ): Real;
Biến FuncVar có kiểu FuncType là một biến sẽ chứa các tên hàm có danh sách đối số và
kiểu trả về của hàm như là đã khai báo. Trong ví dụ trên là bốn hàm Cong, Tru, Nhan và
Chia trả về kết quả là phép toán tương ứng tác động lên hai đối số. Tiếp thao là phép gán
các tên hàm cho biến FuncVar ứng với các giá trị chủa Ch. Và cuối cùng là hình thức

xuất hiện của FuncVar trong câu lệnh.
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
WriteLn(‘Kết quả là: ’, FuncVar(x, y):2:2);
 Đối số của CTC có kiểu Procedure
Kiểu dữ liệu Procedure cũng có thể dùng làm kiểu của các đối số CTC. Một đối số kiểu
Procedure cũng hoạt động đúng theo các nguyên tắc mà các đối số mang kiểu khác hoạt
động.
Ví dụ:
TYPE
ProcType = Procedure;
VAR
p: ProcType;
{$F+}
Procedure ABC_Proc;
Begin
WriteLn('ABC');
End;
Procedure DEF_Proc;
Begin
WriteLn('DEF');
End;
{$F-}
Procedure TT(pv: Proc);
Begin
pv;
End;
Procedure TB(VAR pv: Proc);
Begin
pv:=DEF_Proc;

End;
BEGIN
p:=ABC_Proc; TT(p);
TB(p); p;
END.
Phần 4, Đồ hoạ trong Pascal
ABC
DEF
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
2. PHÉP SO SÁNH
Các phép toán so sánh không áp dụng cho các biến kiểu Procedure, do đó chúng ta
không thể so sánh các biến kiểu Procedure được mà chỉ có thể so sánh địa chỉ mà các
biến này mang. Lúc đó chỉ sử dụng hai phép toán só sánh bằng nhau ( = ) và khác nhau (
<> ). Kết quả là kiểu logic (Boolean). Để lấy giá trị địa chỉ của một biến chúng ta dùng
toán tử @.
@<Biến_Procedure_1> = hay <> @<Biến_Procedure_2>
Ví dụ: Chúng ta không thể viết
If TestFunc <> StrFunc then ...
Mà phải viết
If @TestFunc <> @StrFunc then ...
Chú ý: Để mô tả biến Procedure không trỏ vào vùng nhớ nào, chúng ta phải gán con trỏ
NIL vào con trỏ trỏ đến biến Procedure.
Ví dụ: @TestFunc := NIL;
 Đối số của CTC có kiểu Procedure
1. Chúng ta cần phân biệt giữa lời gọi hàm và lệnh gán giá trị là tên chương trình con
cho biến Procedure.
Ví dụ: Xét chương trình sau:
TYPE StrFunc = Function: STRING;
VAR st: STRING;
pF: StrFunc;

{$F+}
Function TrMark: STRING;
Begin
WriteLn(‘Thực hiện hàm TrMark’);
TrMark := ‘Advanced PASCAL’;
End;
{$F-}
BEGIN
st := TrMark; {Lời gọi hàm TrMark }
pF := TrMark; {Gán đ/chỉ của TrMark cho pF }
END.
2. Các và thủ tục được xem như là một kiểu dữ liệu cho biến Procedure phải có các yêu
cầu sau:
 Phải là hàm và thủ tục của NSD
 Phải khai báo gọi xa với cặp chỉ thị {$F+} và {$F-}
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
 Không có khai báo Interrupt và câu lệnh Inline.
 Không có các CTC lồng bên trong.
Phần
2
2
CHUYỂN ĐỔI KIỂU – UNIT NGƯỜI DÙNG
CHUYỂN ĐỔI KIỂU – UNIT NGƯỜI DÙNG
IV. CHUYỂN ĐỔI KIỂU (TYPE CASTING)
Type Casting là một kỹ thuật dùng để biến đổi kiểu của một vùng nhớ máy tính. Pascal
là một NNLT rất chặc chẽ trong trong vấn đề tổ chức dữ liệu, nhất là trong các phép gán
hay trong biểu thức. Sự chặc chẽ này của Pascal đôi khi lại gây trở ngại cho lập trình
viên vì phải sử dụng nhiều lệnh mới đạt được mục đích. Lấy một ví dụ như sau, St là một
biến kiểu chuỗi và đang lưu giữ chuỗi ‘Turbo’, gải sử chúng ta muốn tìm mã ASCII của

các ký tự trong chuỗi thì phải dùng như sau:
VAR St: String[10];
...
St:= ‘Turbo’;
For i:=1 to Length(St) do Write(Ord(St[i],#32);
trong đó chúng ta đã sử dụng đến 2 lời gọi hàm, hàm Length và Ord để xác định chiều
dài chuỗi và lấy mã ASCII của ký tự trong chuỗi.
Ta tiến hành xem xét vùng nhớ St, được mô hình hóa như sau
0 1 2 3 4 5 6 7 8 9 10
05 85 117 114 98 111
‘T’
‘u’ ‘r’ ‘b’ ‘o’
Biến St được lưu trữ như một mảng 11 phần tử ( 0 .. 10 ) mà mỗi phần tử là một số kiểu
Byte để lưu giữ mã ASCII của các ký tự trong chuỗi, trong đó mã ASCII của ký tự đầu là
độ dài thực của chuỗi. Do đó chúng ta cũng có thể định nghĩa lại vùng nhớ này như sau:
TYPE ByteArr = Array[0..10] of Byte;
VAR A: ByteArr;
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
...
A[0]:=5; A[1]:=84; A[2]:=7;
A[4]:=114; A[5]:=98; A[6]:=111;
Vùng nhớ biến A sẽ là:
0 1 2 3 4 5 6 7 8 9 10
05 85 117 114 98 111
Nếu ta xem vùng nhớ trên là một chuối thì nó sẽ trở thành chuỗi ‘Turbo’, ngược lại với
vùng nhớ của St ta có thể xem đó là một mảng các số kiểu Byte. Cách xem xét như vậy
gọi là chuyển đổi kiểu (Type Casting), mà thực chất là tái định nghĩa lại kiểu dữ liệu của
một vùng nhớ.
Hạn chế của việc đổi kiểu mà không thể không nhắc đến là nó sẽ làm khái niệm về khả

năng kiểm soát kiểu dữ liệu trong chương trình và đôi lúc xảy ra những điều đáng tiếc.
3. CÚ PHÁP ĐỔI KIỂU
Cú pháp:
<Kiểu> ( <Giá_trị> )
Ví dụ 1: ch := CHAR(65);
Thanhtien:= (Tieuthu – 100)*LongInt(500) + 100*250;
Ví dụ 2:
CONST
A: Array[0..10] of Byte =
(05, 84, 117, 114, 98, 111, 0, 0, 0, 0, 0);
TYPE
St10 = STRING[10];
BEGIN
WriteLn(St10(A));
ReadLn;
END.
4. RECORD HÓA MỘT VÙNG NHỚ
Một ví dụ thực tế: Khi muốn tạo ra một cửa sổ trong chế độ văn bản bằng thủ tục
Window(x2, y1, x2, y2) tọa độ đỉnh trái trên và phải dưới phải được lưu giữ trong hai
biến kiểu Word là:
WindMin Tọa độ đỉnh trái trên
Phần 4, Đồ hoạ trong Pascal
Turbo
y1 x1
y2 x2
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
WindMax Tọa độ đỉnh phải dưới
Byte cao Byte thấp
Để lấy các giá trị x1, y1, x2, y2 từ hai biến WindMin và WindMax, chúng ta cũng có thể
dùnh hai hàm Lo và Hi của DOS, nhưng ở đây chúng ta thực hiện kỹ thuật Record hóa

vùng nhớ 2 byte này bằng một kiểu Record, chẳng hạn:
TYPE
Toado = RECORD
x, y: Byte;
END;
Thứ tự x, y trong record phải theo thứ tứ, trường nào đứng trước sẽ có địa chỉ thấp hơn
trường đứng sau.
Sau đó ta thực hiện record hóa, thực ra đó là một dạng khác của Type Casting, hai biến
WindMin và WindMax và lấy các giá trị như sau:
x1 := Toado(WindMin).x; y1 := Toado(WindMin).y;
x2 := Toado(WindMax).x; y2 := Toado(WindMax).y;
Cú pháp Record hóa vùng nhớ này có thể mở rộng cho vùng nhớ lớn hơn, các trường của
Record có thể cũng là mảng.
5. ĐỐI SỐ CTC KHÔNG KIỂU
Trong việc sử dụng các CTC khi viết chương trình, chúng ta đã sử dụng các đối số với
các kiểu xác định. Khi gọi thực hiện các chương trình con chúng ta phải truyền các đối
số thực tế đủ và đúng kiểu vào cho chúng, điều này đôi khi lại bất tiện.
Turbo Pascal 5.0 trở lên cung cấp một khả năng nữa đó là có thể khai báo tham biến
không kiểu, điều này thực sự là hữu ích. Ví dụ, để viết chương trình con nhập một số
nguyên có kiểm tra lỗi, nhưng số nguyên thì kiểu cụ thể là Byte? hay Integer? hay
Word?, ... Lúc này ta phải viết nhiều CTC để nhập cho một kiểu cụ thể nếu không dùng
đối sô không kiểu.
Ví dụ: Chương trình con nhập số nguyên.
PROCEDURE ReadInt( x, y: Byte; VAR N );
Var Temp: STRING[80]; Result: Integer;
Begin
Temp := #32;
repeat
GotoXY(x,y); Write(#32: Length(Temp));
GotoXY(x,y); ReadLn(Temp);

Val(Temp, LongInt(N), Result);
until Result = 0;
End;
Thủ tục này có sử dụng kỹ thuật Type Casting với tham biến N để sao cho nó làm việc
OK với mọi trường hợp, điều này là không bắt buộc trong thủ tục này.
Bây giờ chúng ta hãy thử viết chương trình để nhập các biến kiểu nguyên ShortInt,
Integer, LongInt, Byte, Word sử dụng thủ tục ReadInt xem thế nào?
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
V. UNIT NGƯỜI DÙNG
6. Ý NGHĨA
UNIT là một thư viện chứa các chương trình con đã được cài sẵn. Trong Pascal có hai
loại unit: một là unit chuẩn (cho sẵn) như SYSTEM.TPU, CRT.TPU, GRAPH.TPU, ...;
và một loại unit tạo ra bởi NSD.
Một lý do để ta tạo các Unit của NSD là: khi chương trình quá lớn, có những nhóm
chương trình con và các dữ liệu hoàn chỉnh, có thể được sử dụng bởi nhiều chương trình
khác nhau. Vì vậy ta có thể nhóm những chương trình con các cấu trúc dữ liệu trên thành
các Unit. Làm như thế sẽ gia tăng tối đa tốc độ chương trình, và các chương trình con đó
có thể được sử dụng bởi những chương trình khác, bằng cách “USES” unit đó ra.
Để sử dụng Unit trong chương trình con thì ta khai báo các Unit đó sau từ khóa USES.
Ví dụ: USES Crt, Dos, Printer, NewUnit;
Tóm lại, ý nghĩa khi tạo unit là như sau:
 Ghi lại các CTC thường dùng vào một module tạo thư viện chương trình
 Phân chương trình lớn thành các module nhỏ hơn.
 Tính có thể sử dụng lại của unit
7. CÁC THÀNH PHẦN CỦA MỘT UNIT
Một unit bao gồm các thành phần sau:
i.Phần Khai báo (UNIT ...)
ii. Phần Giao tiếp (INTERFACE)
iii. Phần Cài đặt (IMPLEMENTATION)

iv. Phần Khởi tạo (INITIALIATION)
Các phần được sắp xếp như sau trong một file nguồn:
UNIT <Tên_Unit>; {Tên Unit phải đặt giống với tên file }
USES <DOS_Các Unit cần dùng>;
{$F+}
INTERFACE
(* Khai báo tên các thủ tục và hàm, tên biến, kiểu dữ liệu được viết đầy đủ
trong phần Implementation sau. Tên các thủ tục: khai báo hàm trong phần
này là tên các chương trình con, biến và kiểu dữ liệu mà các Unit, trong
chương trình gọi Unit này cần dùng đến *).
........; {khai báo tên hàm của Unit }
{$F-}
IMPLEMENTATION
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
(* khai báo các kiểu dữ liệu, biến,... cũng đầy đủ thủ tục, hàm của Unit
này *)
(*Trong phần này có thể có các hàm, thủ tục mà ta không khai báo ở phần
Interface, các chương trình con này gọi là chương trình con nội bộ, tức là
các chương trình con chỉ sử dụng trong phạm vi Unit đó mà thôi. *)
[BEGIN ]
END.
 Phần Khai báo
Gồm tên unit viết sau từ khóa UNIT và phải trùng trên với tên file nguồn. Đây là tên
mà sau này sẽ sử dụng.
Ví dụ: UNIT UEXAM;
 Phần Giao tiếp
Còn được gọi là phần Public, là phần giao diện của unit với bên ngoài. Những gì khai
báo trong phần này thì được các chương trình sử dụng unit này có thể gọi đến. Phần
này bắt đầu bằng từ khóa INTERFACE

Ví dụ:
INTERFACE {Phần Giao tiếp }
{$F+} {chỉ thị gọi xa }
VAR Ini: String;
PROCEDURE ThiDu1 (Var x, y: Real);
PROCEDURE ThiDu2 (S: String);
 Phần Cài đăt
Dùng để chứa các mục riêng (private) cho các câu lệnh công cụ nằm trong unit, là
phần cài đặt cụ thể các CTC đã được khai báo trong INTERFACE. Phần này bắt đầu
bằng từ khóa IMPLEMENTATION sau đó là các khai báo unit sử dụng, hằng, kiểu,
biến,... Phần này là “tài sản riêng” của unit, các nơi sử dụng unit này không thể dùng
chúng.
Ví dụ:
IMPLEMENTATION {Phần Cài đặt }
Var x, y: real; {các biến chỉ dụng trong Unit này }
PROCEDURE ThiDu1 (Var x, y: real);
Begin
x:= x + y;
y:= y * z + x;
End;
 Phần Khởi tạo
Phần này như thân chương trình chính Pascal thông thường, thông thường gồm các
câu lệnh gán các giá trị khởi động cho các biến public.
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
 Thư mục chứa UNIT
Pascal thông thường sẽ tìm kiếm các unit trong thư mục mặc định được chỉ bởi NSD. Để
làm điều này chúng ta thực hiện lệnh sau để chỉ rõ vị trí của unit
Options - Directories, trong mục Unit Directories đưa vào các đường dẫn tìm
kiếm. Nếu không tìm thấy Pascal sẽ tìm trong TM hiện thời.

8. VÍ DỤ ÁP DỤNG
Chúng ta thử tạo Unit UEXAM được lưu dưới file UEXAM.PAS. Nội dung:
UNIT UEXAM; {Phần Khai báo }
USES CRT;
INTERFACE {Phần Giao tiếp }
{$F+} {chỉ thị gọi xa }
VAR
Ini: String;
PROCEDURE ThiDu1 (Var x, y: Real);
PROCEDURE ThiDu2 (S: String);
FUNCTION TenF (i, j: integer):string;
{$F-}
IMPLEMENTATION {Phần Cài đặt }
Var x, y: real; {các biến chỉ dụng trong Unit này }
PROCEDURE ThiDu1 (Var x, y: real);
Begin
x:= x + y;
y:= y * z + x;
End;
PROCEDURE ThiDu2 (S: String);
Begin
GotoXY (1, 40 - length(S) div 2);
Write (S);
End;
FUNCTION TenF (i, j: integer): string;
Var S: string;
Begin
GotoXY (i,j);
Readln (S);
TenF:= S;

End;
BEGIN {Phần Khởi tạo }
Phần 4, Đồ hoạ trong Pascal
Pascal Nâng cao (Advanced Pascal) Hoàng Hữu Hạnh
Ini:= 'Hello, World!';
END.
Chữ BEGIN ở dòng 29 có thể có hoặc không, nếu không có dòng 29 thì dòng 30 sẽ phải
không có.
Các khai báo tên từ dòng 5 đến dòng 8 là các tên biến và chương trình con có thể được
dùng đến của Unit khi dịch file trên (Chế độ ghi đĩa), Turbo pascal sẽ tạo file
UEXAM.TPU
 Biên dịch UNIT
 Chọn chế độ biên dịch ghi đĩa: Compile - Destination → Disk.
 Biên dịch: Bấm tổ hợp phím Alt - F9 hoặc F9.
Tập tin biên dịch được sẽ có phần mở rộng là .TPU
9. CÁC UNIT CÓ DÙNG UNIT KHÁC
Bất kỳ một unit nào cũng có thể sử dụng các unit khác bằng cách đưa vào khai báo với
USES. Có hai cách sử dụng unit khác:
i.Đưa sau từ khóa INTERFACE
Ví dụ:
UNIT Chuoi;
INTERFACE
Uses Crt;
Function Upper( ... ): STRING;
Function Lower( ... ): STRING;
. . . .
ii. Đưa sau từ khóa IMPLEMENTATION
Ví dụ:
UNIT Chuoi;
INTERFACE

Function Upper( ... ): STRING;
Function Lower( ... ): STRING;
IMPLAMENTATION
Uses Crt;
. . . .
Lưu ý:
 Không nên tổ chức các unit tham chiếu vòng
Ví dụ: unit A tham chiếu unit B
unit B tham chiếu unit A ...
 Khi nhiều unit tham chiếu cùng một unit thì có một bản sao cảu unit được tham chiếu
đó được nạp vào bộ nhớ
Ví dụ: unit A tham chiếu unit C
unit B tham chiếu unit C ...
Phần 4, Đồ hoạ trong Pascal