Bài 19 - Thư viện chương trình con chuẩn (t1)

Kiểm tra Kiến thức củHãy cho biết thủ tục CLRSCR dùng để thực hiện công việc nào d ới đây?. Xuất kết quả ra màn hình Xóa màn hình Xóa bộ nhớ tạm Nhận giá trị từ bàn phím Hoan hô bạn đã

Bµi 19.

KiÕn thøc cñ

Unit crt

Unit graph

Kiểm tra Kiến thức củ

Hãy cho biết thủ tục CLRSCR dùng để thực hiện công việc nào

d ới đây?

Xuất kết quả ra màn hình Xóa màn hình

Xóa bộ nhớ tạm Nhận giá trị từ bàn phím

Hoan hô bạn đã trã lời đúng ! Rất tiết bạn đã trã lời sai !

Program Vidu1;

Var a: integer;

Begin

Clrscr;

a:= 7 + 5;

Writeln(‘5 + 7 = ‘, a:3);

Readln;

End

Kiểm tra Kiến thức củ

Hãy quan sát đoạn ch ơng trình sau và cho biết khi cho ch ơng trình chạy điều sẽ gì xảy ra?

Xuất ra màn hình: 5 + 7 = a Xuất ra màn hình: 5 + 7 = 12 Xuất ra màn hình: 5 + 7 = 4

Ch ơng trình báo lỗi

Hoan hô bạn đã trã lời đúng ! Rất tiết bạn đã trã lời sai ! Nghiên cứu SGK cho biết th viện CRT liên quan đến những công việc nào trong lập trình Pascal ?

1 Unit crt

CRT: là th viện chứa các thủ tục liên quan đến việc

quản lý màn hình, bàn phím và âm thanh.

Một số thủ tục trong th viện CRT :

- Thủ tục CLRSCR;

- Thủ tục TextColor(color);

- Thủ tục TextBackGround(color);

- Thủ tục GotoXY(x,y);

- Xóa màn hình.

- Chọn màu cho chữ.

- Chọn màu nền cho chữ.

- Đ a con trỏ đến tọa độ (x,y).

Program mauVB;

Uses CRT;

Begin

Clrscr;

GotoXY(50,15);

TextColor(15);

TextBackGround(green);

Writeln(‘THPT Giong Rieng’);

Readln;

End

THPT Giong Rieng

x = 50

y = 15

GotoXY(50,15);

TextColor(15);

TextBackGround(green);

Writeln(‘THPT Giong Rieng’);

(50,15)

2 Unit graph

GRAPH : là th viện chứa các thủ tục, hàm liên quan đến

chế độ đồ họa của các loại màn hình khác nhau, cho phép thực hiện các thao tác đồ họa cơ bản.

2 Unit graph

Màn hình có thể làm viêc ở hai chế độ :

- Chế độ văn bản:

- Chế độ đồ họa :

a Các thiết bị và ch ơng trình hổ trợ đồ họa

Đơn vị cơ sở là ký tự.

Đơn vị cơ sở là điểm ảnh (Pixel)

(640,480) (0,480)

x

y

PIXEL

Độ phân giải VGA: 640x480

(x, y)

2 Unit graph

a Các thiết bị và ch ơng trình hổ trợ đồ họa

tác giữa bộ xử lý và màn hình để thực hiện chế độ phân giải và màu sắc.

- Tên của bảng mạch điều khiển màn hình th ờng trùng với loại màn hình: VGA, SVGA, …

- Ch ơng trình điều khiển đồ hoạ nằm trong các tệp *.BGI, ngầm định để trong th mục BGI.

2 Unit graph

b Khởi tạo đồ họa

Thủ tục khởi tạo đồ họa:

Procedure InitGraph( driver, mode: Integer; path: string ) ;

Thủ tục kết thúc chế độ đồ họa:

CloseGraph;

Ví dụ: Driver := 0;

InitGraph(driver, mode, C:\TP\BGI ); ’C:\TP\BGI”); ”);

c Các thủ tục vẽ điểm, đoạn thẳng:

- Thủ tục đặc màu nét vẽ:

Procedure SetColor( Color: word);

- Thủ tục vẽ điểm:

Procedure PutPixel( x, y: integer; Color: word);

- Vẽ đoạn thẳng qua hai điểm (x1, y1) và (x2, y2):

Procedure line( x1, y1, x2, y2: integer);

- Vẽ đoạn thẳng nối điểm hiện tại với điểm có tọa độ (x, y):

Procedure lineTo( x, y : integer);

- Vẽ đoạn thẳng nối điểm hiện tại với điểm có tọa độ bằng tọa độ hiện tại cộng với số gia (dx, dy)

2 Unit Graph

x1

y 1

(0,480)

x2

y 2

d y

d x

2 Unit graph

d Các thủ tục và hàm liên quan đến vị trí con trỏ:

Các hàm xác định tọa độ lớn nhất của X, Y:

Function GetMaxX: integer ;

Function GetMaxY: integer ;

Thủ tục chuyển con trỏ đến tọa độ (x, y):

Procedure MoveTo(x, y: integer);

BàI TậP CủNG Cố

Thảo luận nhóm trong 2 phút để thực hiện yêu cầu :

Viết các câu lệnh cơ bản để vẽ đọan thẳng nối hai điểm

có tọa độ (20, 10) và (90, 60) bằng nhiều cách khác nhau?