th viện chơng trình con chuẩn
I. Mục tiêu
1. Kiến thức:
- Biết đợc một số th viện chơng trình con.
2. Kĩ năng:
- Bớc đầu sử dụng các th viện đó trong lập trình.
- Khởi động đợc chế độ đồ họa.
- Sử dụng đợc các thủ tục vẽ điểm, đờng, hình tròn, hình ellipse, hình
chữ nhật.
II. Đồ dùng dạy học
1. Chuẩn bị của giáo viên:
- Máy chiếu Projector để giới thiệu ví dụ.
2. Chuẩn bị của học sinh:
- Sách giáo khoa.
III. Hoạt động dạy - học
1. ổn định tổ chức:
2. Kiểm tra bài cũ:
3. Bài mới:
Hoạt động 1: Tìm hiểu th viện CRT.
a. Mục tiêu:
- Học sinh biết đợc một số chơng trình con chuẩn trong th viện.
b. Nội dung:
- Th viện CRT chứa các thủ tục liên quan đến việc quản lí và khai thác
màn hình và bàn phím.
- Thủ tục Clrscr; xóa màn hình.
- Thủ tục Textcolor(c): Đặt màu cho chữ trên màn hình, trong đó c là
hằng hoặc biến có giá trị nguyên không âm để xác định màu.
- Thủ tục Textbackground(c); đặt màu nền cho màn hình.
- Thủ tục gotoxy(xy): Đa con trỏ đến vị trí cột x dòng y của màn hình
văn bản.
c. Các bớc tiến hành:

kết quả.
- Hỏi: Chức năng của lệnh textcolor(4);
3. Tìm hiểu thủ tục Textbackground.
- Chiếu chơng trình ví dụ:
Uses CRT;
begin
Textbackground(1);
Writeln('da dat lai mau nen') ;
Readln;
End.
Thực hiện chơng trình để học sinh thây
kết quả.
- Hỏi: Chức năng của lệnh
Textbackground(1);
4. Tìm hiểu thủ tục gotoxy.
- Chiếu chơng trình ví dụ:
Uses CRT;
Begin
Writeln('Con tro dang dung o cot 10
dong 20') ;
- Vì sử dụng thủ tục nhng cha sử dụng th
viện CRT.
- Thêm lệnh USES CRT;
- Quan sát giáo viên thực hiện chơng trình.
- Xóa màn hình.
- Quan sát chơng trình.
- Quan sát kết quả chơng trình.
- Đặt màu chữ thành màu đỏ.
- Quan sát chơng trình.
- Quan sát kết quả chơng trình.

- Khởi động chế độ đồ họa: Initgraph(dr,md:integer; pth:string);
dr: là số hiệu của trình điều khiển BGI.
md: là số hiệu của độ phân giải.
pth: đờng dẫn đến các tệp BGI.
- Kết thúc chế độ đồ họa trở về chế độ văn bản: Closegraph;
c. Các bớc tiến hành:
Hoạt động của giáo viên Hoạt động của học sinh
1. Yêu cầu học sinh nghiên cứu sách giáo
khoa để trả lời các câu hỏi:
- Hỏi: Các dạng dữ liệu nào có thể đợc
hiển thị trên màn hình?
- Hỏi: Nhiệm vụ chính của Card màn hình?
1. Tham khảo sách giáo khoa để trả lời.
- Văn bản và hình ảnh.
- Làm cầu nối giữa CPU và màn hình khi
- Hỏi: Khi nói màn hình có độ phân giải
640 x 480 là nói đến điều gì?
2. Đa ra cấu trúc chung của thủ tục khởi
động đồ họa.
Initgraph(dr,md:integer; pth:string);
- Giải thích các thông số trong thủ tục cho
học sinh.
- Cho học sinh thấy một ví dụ khởi động
đồ họa.
3. Giới thiệu thủ tục trở về chế độ văn bản
Closegraph;
- Yêu cầu học sinh khởi động chế độ đồ
họa và chuyển về chế độ văn bản.
thể hiện thông tin.
- Là nói đến màn hình có 640 dòng và 480

initgraph(drive, mode,'c:\tp\BGI');
Putpixel(12,40,15);
readln;
1. Quan sát cấu trúc chung và suy nghĩ
để trả lời câu hỏi.
- Quan sát chơng trình.
End.
- Thực hiện chơng trình để học sinh thấy kết
quả.
- Chức năng của thủ tục Putpixel?
2. Tìm hiểu thủ tục Line.
- Chiếu cấu trúc của thủ tục:
Line(x1,y1,x2,y2:integer);
- Chiếu chơng trình ví dụ trên nhng thay lệnh
Putpixel(12,40,15); bằng lệnh
Line(1,1,20,20);
- Thực hiện chơng trình để học sinh thấy kết
quả.
- Chức năng của thủ tục Line?
3. Tìm hiểu thủ tục Lineto.
- Chiếu cấu trúc của thủ tục:
Lineto(x,y:integer);
- Chiếu chơng trình ví dụ trên nhng thay lệnh
Putpixel(12,40,15); bằng lệnh Lineto(20,20);
- Thực hiện chơng trình để học sinh thấy kết
quả.
- Chức năng của thủ tục Line?
4. Tìm hiểu thủ tục Linerel
- Chiếu cấu trúc của thủ tục:
Linerel(dx,dy:integer);

để trả lời câu hỏi.
- Quan sát chơng trình.