VI. UNIT Tự TạO
1.Một số bớc để tạo ra Unit
Để tạo ra một Unit của mình cần đi qua các bớc sau:
Bớc 1: Tạo ra một file Unit có phần mở rộng là.PAS với bố cục sau:
UNIT <Tên Unit>; (* Chú ý: Tên Unit phải trùng với tên File *)
INTERFACE (* Chú ý: Phần giao diện với bên ngoài, không có dấu; ở đây *)
[Uses <danh sách các unit>]; {Khai báo các unit dùng trong chơng trình} [Khai báo các hằng, kiểu, biến dùng chung];
[Khai báo các thủ tục, hàm (tên, danh sách tham số của thủ tục và hàm];
IMPLEMENTATION (* Cài đặt các hàm, thủ tục của Unit, không có dấu; ở đây *)
[Các khai báo kiểu, hằng, biến cục bộ]; [Nội dung cài đặt các thủ tục, hàm của unit];
[BEGIN] (* Phần khởi tạo: Initialization Part *) [Các lệnh khởi tạo];
END. (* Dù có BEGIN để khởi tạo hay không, ở đây vẫn có END. *)
Bớc 2: Dịch file này lên đĩa theo trình tự sau:
i). Gõ Alt - C để vào Menu COMPILE
ii). i đến mục Destination và nhấn Enter để chơng trình tự động đổi
Memory thành Disk
iv). Khi dịch xong gõ một phím bất kỳ. Sau đó ta có thể lập lại bớc a và b để chuyển Destination từ Disk sang Memory.
2. Ví dụ '
Ví dụ 7.11: Tạo một UNIT tính Cộng, Trừ, Nhân, Chia cho học sinh tiểu học. Tên file Unit là TTIEUHOC.PAS với nội dung sau:
UNIT TTieuHoc; {Phần đầu: Chơng trình Toán Tiểu học}
INTERFACE {Phần giao diện}
PROCEDURE Cong (Var So1, So2, So3: Real); PROCEDURE Tru (Var So1, So2, So3: Real); PROCEDURE Nhan (Var So1, So2, So3: Real); PROCEDURE Chia (Var So1, So2, So3: Real);
INPLEMENTATION {Phần cài đặt}
PROCEDURE Cong; BEGIN
IF So1 + So2 = So3 THEN Writeln ('Giỏi lắm ! Em đã làm đúng! ') ELSE Writeln (' Rất tiếc, em đã làm sai ! ');
END;
PROCEDURE Tru; BEGIN
IF So1 - So2 = So3 THEN Writeln (' Giỏi lắm ! Em đã làm đúng!') ELSE Writeln (' Rất tiếc, em đã làm sai ! ');
END;
PROCEDURE Nhan; BEGIN
IF So1 * So2 = So3 THEN Writeln ('Giỏi lắm ! Em đã làm đúng !') ELSE Writeln (' Rất tiếc, em đã làm sai ! ');
END;
PROCEDURE Chia; BEGIN (adsbygoogle = window.adsbygoogle || []).push({});
IF So2 = 0 THEN Writeln ('Số chia phải khác 0') ELSE
IF So1 / So2 = So3 THEN Writeln ('Giỏi lắm! Em đã làm đúng! ') ELSE Writeln (' Rất tiếc, em đã làm sai ! ');
END;
END. {Chấm dứt UNIT}
Sau khi gõ chơng trình Unit trên, đổi Compile Destination thành Disk, biên dịch và tạo tập tin TTIEUHOC.TPU trên đĩa.
Chơng trình Pascal cho bài toán Cộng, trừ, Nhân, Chia dùng Unit TTIEUHOC:
PROGRAM Toan_Tieu_Hoc; USES CRT, TTieuHoc;
chon: Integer;
So1, So2, So3: Real;
PROCEDURE Menu (Var chon: integer); BEGIN
ClrScr;