TRƯỜNG ĐẠI HỌC SƯ PHẠM HÀ NỘI
KHOA CÔNG NGHỆ THÔNG TIN
********************
Bài tập và thực hành số 8

Giảng viên hướng dẫn: Thầy Trần Doãn Vinh.
Sinh viên thực hiện: Nguyễn Thùy Linh - K56A CNTT
Tiết: ……………………………………………………………………………………
Lớp: ……………………………………………………………………………………

Hà Nội 4 – 2008

Bài tập và thực hành 8 – Lớp 11

Nguyễn Thùy Linh – 56A CNTT

A. Mục đích,yêu cầu:
 Tiếp tục củng cố cho học sinh những kinh nghiệm về chương trình con,thư viện
chương trình con.
 Minh họa cho khả năng đồ họa của ngôn ngữ lập trình nói chung,Passcal nói
riêng.
 Tổ chức những hoạt động trong phòng máy để học sinh có thể chủ động tìm
hiểu cách sử dụng 1 số chương trình con chuẩn trong thư viện Graph của
Passcal.
B. Phương pháp- phương tiện:


N
ộ
i dung

Ho
ạ
t đ
ộ
ng gi
ữ
a th
ầ
y và trò

Th
ờ
i
gian

 Giới thiệu về ứng dụng đồ họa của
Pascal:
 Một số thủ tục, câu lệnh được sử dụng
trong đồ họa (sử dụng trong bài):
 InitGraph(drive,mode,path): thiết
lập môi trường đồ họa.
 SetColor(n): Đặt màu theo chỉ số
màu n.
 SetColor(color): Đặt màu theo tên
màu.

các điểm sáng. Mỗi điểm sáng là
một điểm ảnh (pixel) và điểm ảnh
là đơn vị cơ sở của màn hình đồ
họa.
 Nhắc lại một số câu lệnh và thủ
tục trong bài. Kết hợp kiểm tra bài
cũ.
 GV: Em nào có thể nhắc lại
một số thủ tục và câu lệnh trong
đồ họa?
 HS: Thủ tục InitGraph(driver,
mode,path) dùng để thiết lập môi
trường đồ họa, thủ tục SetColor(n)
dùng để đặt màu theo chỉ số n, thủ
tục Line(x1.y1,x2,y2) dùng để vẽ
đoạn thẳng nối 2 điểm có tọa độ
(x1,y1) và (x2,y2), thủ tục
LineTo(x,y) dùng để vẽ đoạn thẳng
từ vị trí hiện thời của con trỏ tới
điểm có tọa độ (x,y), thủ tục
CloseGraph: khôi phục kiểu màn
hình trước khi khởi tạo đồ họa…
 GV: Ngoài ra còn một số thủ
tục khác như: SetColor(color) để
đặt màu theo tên màu.

2’


Nguyễn Thùy Linh – 56A CNTT


GetMaxx:
cho hoành độ lớn nhất của
kiểu đồ họa hiện thời
 GetMaxy: cho tung độ lớn nhất của
kiểu đồ họa hiện thời
 Delay(T): tạo thời gian trễ T tính theo
đơn vị mili giây, trong đó T là một biểu
thức nhận giá trị nguyên. Deplay thường
được sử dụng để làm chậm chương trình
lại cho quan sát trạng thái ở thời điểm đó.
 Các chương trình ứng dụng đồ họa
của Pascal:
 Ví dụ: Thảm nhiều màu:
Chương trình:
Progam ThamNhieumau;
Uses Graph;
Const X=300; Y=200; N=25;
Var drive,mode,A,C,k:integer;
Procedure VeTham(a:integer);
Begin
MoveTo(X+a,Y);
LineTo(X,Y+a);LineTo(X-a,Y);
LineTo(X,Y+a);LineTo(X-a,Y);
End;
BEGIN
Drive:=0;
 GV: đưa ra chương trình ví dụ
như “thảm nhiều màu” minh họa
cho khả năng đồ họa của Pascal.



Bài tập và thực hành 8 – Lớp 11

Nguyễn Thùy Linh – 56A CNTT

Làm ví dụ trong sách giáo khoa:
a) Vẽ đường gấp khúc “ngẫu nhiên”
nhờ thủ tục LineTo, mỗi đoạn có một
màu ngẫu nhiên.Vị trí bắt đầu là tâm
của màn hình. Kết thúc việc vẽ bằng
cách ấn một phím bất kì.
Chương trình:
uses crt,graph;
var stop: boolean;
function DetectInit(path:string):interger ;

var drive,mode:integer;
begin
drive:=0;
InitGraph(drive,mode,path);
DetectInit:= GraphReSult;
end;
begin
If DetectInit(‘C:\TP\BGI’)<>0 then

10’ Bài tập và thực hành 8 – Lớp 11

Nguyễn Thùy Linh – 56A CNTT

end;

end;
closeGraph
end.

b) Chương trình minh họa việc sử dụng
các thủ tục vẽ hình đơn giản
Progam GraphDemo;
uses Graph;
Var
gd,gm: integer;
xm,ym,xmaxD4,ymaxD4: word;
begin
gd:=detect;
Initgraph(gd,gm,’C:\TP\BGI’ );
Xm:=GetmaxX div 2 ; ym:=GetmaxY div
2;
{Ve hinh chu nhat voi net ve mau vang}
SetColor(Yellow);
Rectangle(10,10,xm,ym);
Readln;
{Ve duong tronmau xanh la cay,
tam(450;100) ban kinh 50}

10’ 5’

Bài tập và thực hành 8 – Lớp 11