phần mềm tính tiền karaoke vietbill ⇔ kèo nhà cái hôm nay ⇔ Fun88
Trang nhất
Tin học
Đơn vị (unit) của Turbo Pascal 2020-08-01T21:17:26+07:002020-08-01T21:17:26+07:00https://sachgiai.com/Tin-hoc/don-vi-unit-cua-turbo-pascal-13448.htmlhttps://sachgiai.com/uploads/news/2020_07/lap-trinh-pascal.jpgSách Giảihttps://sachgiai.com/uploads/sach-giai-com-logo.pngThứ bảy - 01/08/2020 21:16 Như đã nói sơ lược ở trên, trong Turbo Pascal, Unit là một tập hợp gồm các hằng, kiểu dữ liệu, biến, thủ tục và hàm. Nó giống như một thư viện gồm các khai báo mà ta có thể đưa vào sử dụng trong chương trình của mình. 1. GIỚI THIỆUNhư đã nói sơ lược ở trên, trong Turbo Pascal, Unit là một tập hợp gồm các hằng, kiểu dữ liệu, biến, thủ tục và hàm. Nó giống như một thư viện gồm các khai báo mà ta có thể đưa vào sử dụng trong chương trình của mình. Thông thường một đơn vị chứa các khai báo có liên quan nhau và mỗi đơn vị có thể được dịch riêng rẽ, kết quả sau khi dịch là một File có tên là tên của đơn vị và có phần mở rộng là TPU. Và khi chương trình chính của chúng ta có khai báo sử dụng đơn vị có tên đó thì ta có thể dùng tất cả các khai báo trong Unit ấy, điều này tránh cho chúng ta khỏi phải xây dựng từ đầu tất cả các chỉ thị cần thiết và khiến cho chương trình này có thể sử dụng các khai báo của chương trình khác.2. HỆ THỐNG UNIT TRÊN TURBO PASCAL 5.5Trên Turbo Pascal 5.5, công ty Borland đã thiết kế sẵn các unit sau đây:• Unit System: Gồm các hàm, thủ tục, hằng, biến và từ khóa trong Pascal chuẩn. Unit System coi như được sử dụng một cách tự động cho mọi chương trình hay đơn vị. Nghĩa là không cần khai báo uses system.• Unit Graph: Gồm các hàm, thủ tục, hằng, biến liên quan đến chế độ đồ thị của các loại màn hình khác nhau.• Unit Crt: Cung cấp những khả năng làm việc với chế độ test (bàn phím, con trỏ, màn hình).• Unit Dos: Cung cấp những chức năng làm việc với hệ điều hành Dos.• Unit Printer: Cung cấp các khả năng về in ấn.Các Unit System, Crt, Dos, Printer được lưu trong TURBO.TPL. Khi nạp TURBO các Unit trong TURBO.TPL được tự động nạp vào nếu ta muôn dùng một lệnh trong CRT thì sau từ khóa Program...; ta phái có câu lệnh USES CRT;Ta có thể dùng nhiều hơn một UNIT.■ Ví dụ: USES CRT, GRAPH.3. UNIT TỰ TẠOa) Cấu trúc của một UNITMột Unit thông thường gồm:• Phần tên của đan vị gồm có: Từ khóa Unit, tên đơn vị và dấu;■ Ví dụ: UNIT MYFUNC;• Phần giao tiếp với bên ngoài gồm có:Từ khóa INTERFACE, sau đó là (không bắt buộc) các khai báo USES, CONST, TYPE, VAR và các Hàm, Thủ tục (chỉ khai báo tên, các tham biến, kiểu kết quả). Các hằng, kiểu biến chương trình con khai báo trong phần giao tiếp của một đơn vị sẽ dùng được cho nơi sử dụng đơn vị đó.■ Ví dụ: INTERFACEFUNCTION Giai_thừa (n: interger): longint;• Phần cài đặt bên trong UNIT gồm có:Từ khóa IMPLEMENTATION, sau đó là (không bắt buộc) các khai báo USES, LABEL, CONST, TYPE, VAR, chương trình con. Các chương trình con khai báo trong phần hiện thực gồm có các chương trình con đã khai báo ở phần giao tiếp và các chương trình con riêng của phần cài đặt bên trong UNIT (Do đó không dùng được cho nơi sử dụng đơn vị đó, nơi sử dụng không biết gì về chúng).■ Ví dụ:IMPLEMENTATIONFUNCTION Giaithua;VAR Tam thoi: Longint;K: 1..30;BEGINTamthoi := 1;FOR K := 1 To i DoTamthoi:= Tamthoi *K;Giaithua:= Tamthoi;END;• Phần kết thúc UNIT với từ khóa END.Sau đây là toàn bộ một UNIT đơn giản gồm bốn phần trên ráp lại:UNIT MYFUNC;INTERFACE Function Giai thua (n: integer): longint;IMPLEMENTATION Function Giaithua; VAR Tamthoi: Longint; K: 1..30; BEGIN Tam thoi:= 1; FOR K:= 1 To n Do Tamthoi := Tamthoi *K; Giaithua := Tamthoi; END;END.b) Cách tạo ra một UNITTa có thể tạo ra một Unit theo trình tự sau:• BƯỚC 1: Tạo ra một File.PAS có cấu trúc như đã nói ở trên.■ Ví dụ:MYFUNC.PAS(Chú ý: Tên File phải trùng với tên đơn vị).■ Ví dụ:Tên File đã là MYFUNC.PAS thì tên đơn vị phải là: UNIT MYFUNC.• BƯỚC 2: Dịch sẵn File này lên đĩa theo trình tự sau:- Chọn Alt-C vào menu Compile.- Đổi menu con Destination từ Memory sang Disk bằng cách gõ Enter.- Trên đĩa ta đã có File MYFUNC.TPU• BƯỚC 3: UNIT MYFUNC ta chỉ cần khai báo USES MYFUNC thì các hàm và thủ tục đó sẽ được coi như các hàm và thủ tục chuẩn.4. VÍ DỤ VỀ UNITUNIT HTRON;INTERFACE CONST PI = 3,14159; FUNCTION Dientich (R: Real): Real;IMPLEMENTATION FUNCTION Dientich; BEGIN Dientich:= Pi * sqr(R); END;END. {UNIT}Bây giờ ta viết một chương trình làm nhiều lần công việc in ra diện tích hình tròn với bán kính nhập từ bàn phím cho đến khi bán kính nhập vào là -1 thì kết thúc.PROGRAM Dien_tich_tron;USES HTRON;VAR Bankinh: Real;BEGIN Writeln ('Sử dụng số Pi có giá trị là : ‘, Pi); {Hàm số Pi đã khai báo trong UNIT HTRON} REPEAT Write ('Xin cho biết bán kính :') Readln (Bankinh); IF bankinh >= 0 then Writeln (('Diện tích ='), Dientich (Ban kinh)); UNTIL Bankinh = -1END. Bản quyền bài viết thuộc về Sachgiai.com. Ghi nguồn Sách giải.com khi đăng lại bài viết này.
Ý kiến bạn đọc
Sắp xếp theo bình luận mới Sắp xếp theo bình luận cũ Sắp xếp theo số lượt thích
Những tin mới hơn
Màu sắc và âm thanh trong Pascal
Vẽ hình trong Pascal
Những tin cũ hơn
Giới thiệu lập trình có cấu trúc trong Pascal
Kiểu tệp (file) trong Pascal
Lớp 1
Kết nối tri thức
Tiếng Việt 1
Toán 1
Giáo dục thể chất 1
Mỹ thuật 1
Chân trời sáng tạo
Tiếng Việt 1
Toán 1
Cánh diều
Âm nhạc 1
Giáo dục thể chất 1
Hoạt động trải nghiệm 1
Toán 1
Tự nhiên và xã hội 1
Lớp 2
Kết nối tri thức
Toán 2
Tiếng Việt 2
Chân trời sáng tạo
Tiếng Việt 2
Toán 2
Cánh diều
Toán 2
Tiếng Việt 2
Lớp 3
Kết nối tri thức
Tiếng Việt 3
Toán 3
Cánh diều
Tiếng Việt 3
Toán 3
Chân trời sáng tạo
Tiếng Việt 3
Toán 3
Lớp 4
Kết nối tri thức
Tiếng Việt 4
Toán 4
Chân trời sáng tạo
Tiếng Việt 4
Toán 4
Cánh diều
Tiếng Việt 4
Toán 4
Lớp 5
Kết nối tri thức
Tiếng Việt 5
Toán 5
Cánh diều
Tiếng Việt 5
Toán 5
Chân trời sáng tạo
Tiếng Việt 5
Toán 5
Lớp 6
Kết nối tri thức
Ngữ Văn 6
Toán 6
Tiếng Anh 6 Global Success
Lịch sử và Địa lí 6
Giáo dục công dân 6
Tin học 6
Cánh diều
Giáo dục công dân 6
Ngữ Văn 6
Toán 6
Chân trời sáng tạo
Ngữ Văn 6
Toán 6
Giáo dục công dân 6
Lớp 7
Kết nối tri thức
Ngữ Văn 7
Toán 7
Tiếng Anh 7 Global Success
Giáo dục công dân 7
Lịch sử và Địa lí 7
Khoa học tự nhiên 7
Tin học 7
Công nghệ 7
Cánh Diều
Ngữ Văn 7
Toán 7
Khoa học tự nhiên 7
Chân trời sáng tạo
Ngữ Văn 7
Toán 7
Mĩ thuật 7
Âm nhạc 7
Lớp 8
Kết nối tri thức
Ngữ Văn 8
Toán 8
Khoa học tự nhiên 8
Giáo dục công dân 8
Tin học 8
Lịch sử và Địa lí 8
Công nghệ 8
Tiếng Anh 8 Global Success
Cánh Diều
Ngữ Văn 8
Toán 8
Công Dân 8
Chân trời sáng tạo
Ngữ Văn 8
Toán 8
Lớp 9
Kết nối tri thức
Ngữ Văn 9
Toán 9
Khoa học tự nhiên 9
Giáo dục công dân 9
Tin học 9
Lịch sử và Địa lí 9
Tiếng Anh 9 Global Success
Công nghệ 9
Cánh Diều
Ngữ Văn 9
Toán 9
Chân trời sáng tạo
Ngữ Văn 9
Toán 9
Lớp 10
Kết nối tri thức
Ngữ Văn 10
Toán 10
Kinh tế và Pháp luật 10
Tiếng Anh 10 Global Success
Lịch Sử 10
Địa Lí 10
Vật Lí 10
Hoá học 10
Sinh học 10
Công nghệ trồng trọt 10
Công nghệ thiết kế 10
Quốc Phòng và An Ninh 10
Tin học 10
Cánh Diều
Ngữ Văn 10
Toán 10
Kinh tế và Pháp luật 10
Tin học 10
Hoá học 10
Lịch sử 10
Địa Lí 10
Sinh học 10
Vật lí 10
Tiếng Anh 10 Explore New Worlds
Công nghệ trồng trọt 10
Công nghệ thiết kế 10
Chân trời sáng tạo
Ngữ Văn 10
Toán 10
Lịch Sử 10
Địa Lí 10
Sinh học 10
Vật Lí 10
Hoá học 10
Quốc Phòng và An Ninh 10
Kinh tế và Pháp luật 10
Tiếng Anh 10 Friends plus
Lớp 11
Kết nối tri thức
Ngữ Văn 11
Toán 11
Hoá học 11
Sinh học 11
Địa Lí 11
Lịch Sử 11
Vật Lí 11
Kinh tế và Pháp luật 11
Công nghệ 11 Chăn nuôi
Công nghệ 11 Cơ khí
Tin học 11 Ứng dụng
Tin học 11 Khoa học máy tính
Tiếng Anh 11 Global Success
Cánh Diều
Ngữ Văn 11
Toán 11
Hoá học 11
Lịch Sử 11
Địa Lí 11
Sinh học 11
Vật Lí 11
Tin học 11 Ứng dụng
Tin học 11 Khoa học máy tính
Tiếng Anh 11 Explore New Worlds
Quốc phòng và An ninh 11
Kinh tế và Pháp luật 11
Công nghệ 11 Chăn nuôi
Công nghệ 11 Cơ khí
Chân trời sáng tạo
Ngữ Văn 11
Toán 11
Địa Lí 11
Hoá học 11
Sinh học 11
Lịch Sử 11
Kinh tế và Pháp luật 11
Tiếng Anh 11 Friends plus
Vật Lí 11
Lớp 12
Kết nối tri thức
Ngữ Văn 12
Toán 12
Địa Lí 12
Hoá học 12
Lịch Sử 12
Sinh học 12
Vật Lí 12
Tiếng Anh 12 Global Success
Tin học 12 Ứng dụng
Tin học 12 Khoa học máy tính
Kinh tế và Pháp luật 12
Công nghệ 12 Chăn nuôi
Công nghệ 12 Cơ khí
Cánh Diều
Ngữ Văn 12
Toán 12
Chân trời sáng tạo
Ngữ Văn 12
Toán 12
THÀNH VIÊN
Hãy đăng nhập thành viên để trải nghiệm đầy đủ các tiện ích trên site Nhập mã do ứng dụng xác thực cung cấp Thử cách khác Nhập một trong các mã dự phòng bạn đã nhận được. Thử cách khác Đăng nhập Đăng ký