Bài tập thực hành 8
Trường THPT Chương Mĩ A
Program ve_duong_gap_khuc;
Uses crt,graph;
Var stop: boolean;
Function Detecinit (path: string): integer;
var drive, mode: integer;
Begin
drive:=0;
initgraph(drive,mode,path);
DetecInit:= GraphResult;
End;
Begin
If DetectInit(‘c:TPBGI’)<> 0 then
Begin
Write(‘ loi do hoa! Nhan phim enter de ket thuc…’);
Readln;
End
Else
Begin
Randomize;
Moveto (Getmaxx div 2, Gettmaxy div 2);
Stop:=false;
While not(stop) do
Begin
Setcolor(Random(Getmaxcolor));
{Thiet lap mau mot cach ngau nhien}
Lineto(random(Getmaxx),random(getmaxy));
Delay(200);{Tam dung}
Stop:=keypressed;
End;
End;
Closegraph;
End.

Hãy cho biết tên của chương trình chinh này là gì?
Phần khai báo của chương trình chính có gì đặc biêt?
Chương trình này dã dùng những thủ tục, hàm nào của thư viện Graph?
Các hàm, thủ tục nào liên quan đến vị trí của con trỏ?
Các hàm, thủ tục nào vẽ điểm, doạn thẳng?
Ý nghĩa của các hàm, thủ tục đó là gì?

Program Graphdemo;
Uses graph;
Var
Gd, gm: integer;
Xm, ym, xmaxD4, ymaxD4: word;
Begin
Gd:=detect;
Initgraph(gd, gm, ‘C:TPBGI’);
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 tron mau xanh la cay,tam(450;100) ban kinh 50}
Setcolor(LightGreen);
Circle(450,100,50);
Readln;
{ve ellip mau do}
Setcolor(red);
Ellipse(100,200,0,360,50,120);
Readln;
Closegraph;
End.

Hãy giải thích ý nghĩa của từng lệnh trong chương trình này?
Hãy chạy chương trình ?
Hãy thay đổi các tham số về màu vẽ, toạ độ rồi chạy chương trình và quan sát kết quả.