Đang tải... (xem toàn văn)
Thư viện này chứa các hàm, thủ tục liên quan đến chế độ đồ họa của các loại màn hình khác nhau và cho phép thực hiện các thao tác đồ họa cơ bản như vẽ điểm, đường, tô màu….. a) Các thiết[r]
(1)Giải tập Tin học 11 19
Mỗi ngơn ngữ lập trình có số lượng phong phú chương trình chuẩn thư viện Dưới giới thiệu sơ lược nội dung số thư viện chương trình chuẩn Pascal
1 CRT
Thư viện crt chứa thủ tục liên quan đến việc quản lí khai thác hình, bàn phím máy tính Dùng thủ tục thư viện này, người lập trình điều khiển việc đưa liệu hình
Một số thủ tục thư viện crt:
+ Thủ tục clrscr: Xóa hình
+ Thủ tục TextColor(color) để đặt màu cho chữ hình, color biến xác định màu
+ Thủ tục TextBackgorundcolor(color) đặt màu cho hình
+ Thủ tục GotoXY(x,y) đưa trỏ tới vị trí cột x, dịng y hình văn 25 dịng 80 cột
Ví dụ sử dụng hàm crt
uses crt; var
(2)clrscr;
textcolor(12); textbackground(7); for i:=1 to 10
writeln('hay viet gi do'); readkey;end
2 Graph
Thư viện chứa hàm, thủ tục liên quan đến chế độ đồ họa loại hình khác cho phép thực thao tác đồ họa vẽ điểm, đường, tô màu…
a) Các thiết bị chương trình hỗ trợ đồ họa
Màn hình làm việc hai chế độ: chế độ văn chế độ đồ họa
Có thể hình dung bảng điểm sáng
Tọa độ hình đồ họa đánh số từ 0, cột tính từ trái sang phải dịng tính từ xuống Độ phân giải hình VGA thường đặt 640*480
b) Khởi tạo chế độ đồ họa
Một chương trinh đồ họa mở đầu việc khởi tạo chế độ đồ họa
Thủ tục để thiết lập chế độ đồ họa:
Procefure InitGraph(var driver,mode:integer;path:string)
- driver số hiệu trình điều khiển BGI;
- mode số hiệu độ phân giải;
(3)Thông thường, ta nên sử dụng cách thiết lập chế độ đồ họa tự động với biến driver gán giá trị 0;
Giả sử hình làm việc VGA tệp BGI để thư mục C:\TP\BGI, lệnh sau thiết lập đồ họa với chế độ VGAHi
Driver:=0;
InitGraph(driver,mode.’C:\TP\BGI’);
Sau kết thúc làm việc với chế độ đồ họa, để trở chế độ văn ta gọi thủ tục CloseGraph;
c) Các thủ tục vẽ điểm, đoạn thằng
Trước vẽ, ta đặt màu cho nét vẽ thủ tục
Procedure Setcolor(color:word);
- Vẽ điểm thực thủ tục:
Procedure PutPixel(x,y:integer;color:word);
Trong đó:
X y tọa độ điểm
Color màu điểm
- Vẽ đoạn thẳng nối điểm đầu với điểm cuối
Procedure Line(x1,y1,x2,y2:integer);
- Vẽ đoạn thẳng nối điểm với điểm có tọa độ x,y
Procedure LineTo(x,y:integer);
- Vẽ đoạn thẳng nối điểm với điểm có tọa độ tọa độ cộng với gia số (dx,dy):
Procedure LineRel(dx,dy:integer);
d) Các thủ tục hàm liên quan đến vị tri trỏ
- Các hàm xác định giá trị lớn tọa độ hình X Y
(4)- Thủ tục chuyển trỏ tới tọa độ (x,y):
Procedure MoveTo(x,y:integer);
e) Một số thủ tục vẽ hình đơn giản
- Vẽ đường trịn có tâm (x,y), bán kính r:
Procedure Circle(x,y:integer;r:word);
- Vẽ cung elip có tâm điểm (x,y) với bán kính trục Xr, Yr từ góc khởi đầu StAngel đến góc kết luận EndAngle:
Procedure Ellipse(x,y:integer; StAngle,EndAngle,Xr,Yr:word);
3 Một số thư viện khác
System: Trong thư viện chuẩn chứa hàm sơ cấp thủ tục vào/ra mà chương trình dùng tới
Dos: Thư viện chứa thủ tục cho phép thực trực tiếp lệnh tạo thư mục, thiết lập hệ thống
Printer: Thư viện cung cấp thủ tục làm việc với máy in
4 Sử dụng thư viện.
Muốn sử dụng thủ tục hàm chuẩn thư viện (Trừ system) ta phải dùng lệnh khai báo:
uses Unit1,Unit2,…;
Trong Unit1,Unit2,… tên thư viện
Ví dụ:
Uses crt,dos,graph;
