Bai giai 1 so bai tap do hoa pascal

Bài 7. Bắt đầu với đồ hoạ: Toạ độ màn hình, các hình vẽ đơn giản


1. Muốn chạy được một chương trình đồ hoạ Pascal, ngoài các files TURBO.* ra chúng ta phải cần thêm các files:
GRAPH.*
EGAVGA.BGI
*.CHR

2. Program P100702; {Khoi tao che do do hoa}

Uses Crt,Graph;
Var GrDriver,GrMode,ErrCode: Integer;
X,Y,S: string;

BEGIN
GrDriver:=Detect;
InitGraph(GrDriver,GrMode,` `);
ErrCode:=GraphResult;
If ErrCode=GrOk then
begin { Do graphics }
str(GrDriver,X);
S:=`Graph Driver: `+X;
OutTextXY(100,100,S);
str(GrMode,Y);
S:=`Graph Mode: `+Y;
OutTextXY(100,110,S);
str(GetMaxX,X);
str(GetMaxY,Y);
S:=`Do phan giai: `+X+`*`+Y;
OutTextXY(100,120,S);
Readln;
CloseGraph;
end
Else Writeln(`Graphics error:`, GraphErrorMsg(ErrCode));
END.

3. Program P100703; {Ve doan thang}
Uses Crt,Graph;
Var Gd,Gm,i: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
Line(100,150,100,350); {cach 1}
SetColor(2);
MoveTo(200,150); LineTo(200,350); {cach 2}
For i:=150 to 350 do PutPixel(300,i,4); {cach 3}
Readln;
CloseGraph;
END.

4. Program P100704; {Ve tam giac}
Uses Crt,Graph;
Var Gd,Gm: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
Line(100,150,100,100);
Line(100,100,80,170);
Line(80,170,100,150);
Readln;
CloseGraph;
END.

5. Program P100705; {Ve hinh tron}
Uses Crt,Graph;
Var Gd,Gm: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
Circle(GetMaxX div 2,GetMaxY div 2,100);

Readln;
CloseGraph;
END.

6. Program P100706; {Ve oto}
Uses Crt,Graph;
Var Gd,Gm: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
OutTextXY(120,20,`Ve oto:`);
Rectangle(120,180,300,90);
Rectangle(60,60,105,105);
Rectangle(40,40,120,180);
Circle(75,205,20);
Circle(250,205,20);
Readln;
CloseGraph;
END.

7. Program P100707; {Ve hinh chu nhat}
Uses Crt,Graph;
Var Gd,Gm: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
Rectangle(80,90,300,200);
Readln;
CloseGraph;
END.

8. Program P100708; {Ve hinh Da giac}
Uses Crt,Graph;
Const Triangle: array[1..6] of PointType = ((X: 100; Y: 100),
(X: 150; Y: 100),
(X: 170; Y: 200),
(X: 150; Y: 140),
(X: 100; Y: 140),
(X: 100; Y: 100));
Var Gd,Gm: Integer;

BEGIN
Gd:=Detect;
InitGraph(Gd,Gm,` `);
OutTextXY(122,50,`Ve hinh Ngu giac:`);
DrawPoly(6,Triangle);
Readln;
CloseGraph;
END.

9.