Pascal? .
vb，vc？ PascalTp 7.0？ Help?
,? ,?
. ?
? Pascal?
Turbo Pascal CRT？ Graphic crt
chart
Turbo Pascal? With cathoderay tube
Graphic CRT? Chart use
United States Employment Service (United States Employment Service)
United States Employment Service (United States Employment Service)
*.TPW？ Windows*。 TPU？ disc operating system (DOS)
defined variable
procedure
Function?
kilobyte
Pascal?
crt？ Graphic dos? system
handkerchief
1.
Pascal?
initgraph(GraphDriver，GraphMode，PathToDriver)
GraphDriver，GraphMode？ ，PathToDriver？ ，GraphDriver？ ,
GraphMode？ ，PathToDriver(？ . BGI)？ initgraph？
：
Program t00 1 (input, output);
Adopt crt, graphics;
defined variable
Gd:gm: integer; {? GraphDriver，GraphMode？ }
begin
GD:= detect；
initgraph(gd，gm，' ')； {? initgraph？ ，PathToDriver？
initgraph(gd，gm，' c:\ TP \ bgi ')； ?
}
Right (100,100,200); {( 100, 100),(200,200)
bar3d？ }
Delay (1000); {? 10000? 10? }
End.
2.？
Closegraph？
:? .
Write?
Chart?
crtcrt
200 !
180?
?
：
1. line?
: program line (x 1, y 1, x2, y2: integer); . !
2. Lento?
: process lineato (x, y: integer); (x，y)。
：
1. Circle?
(x, y) radius?
Program circle (x, y: integer; Radius: word);
Circle (100,100,200) {? 100? 100? 200? }
：
1. ellipse?
(X，Y)XRadius？ YRadiusStAngle？ EndAngle
Program ellipse (x, y: integer; StAngle，EndAngle:Word； XRadius，YRadius:Word)；
0?
：
1. arc?
: ? x？ y？ RadiusStAngle？ EndAngle？
: program arc (x, y: integer; StAngle，EndAngle，Radius:Word)；
: ? 0?
:Arc( 100， 100，0，90，50) {？ 1/450, 100? 100? }
：
1. Bar?
x 1，y 1)，(x2，y2)
Program bar (x 1, y 1, x2, y2: integer);
Bar( 100， 100，200，200) {？ 100? 100200? 200? }
2.Bar3d？
:? .
: process Bar3d(x 1, y 1, x2, y2: integer, depth: word, top: boolean); {x 1，x2，y 1，y2？ , top. }
,? ,?
：
1.setlinestyle？
:,.
: process setlinestyle (linestyle: word; Pattern: characters; Thickness: word);
: line style (? )? . ? 0, 1,2; ? ：
Thickness (? ).？ 1,3. 1.3.
2.GetLineSettings？
:? .
: procedure getlinesettings (var lineinfo: linesettingstylpe); {? LineSettingsType？ }
3.LineSettingsType？
:LineSettingsType = record
line style:Word； {? }
Pattern: characters; {? }
Thickness: word; {? }
End;
.
,
：
pascal 16。
1.setcolor？
:procedure set Color(Color:Word)；
..
2.GetColor？
:?
: function GetColor:word
:color:= GetColor； {color:word}
3.GetMaxColor？
:.
:num:= GetMaxColor； {num}
：
1.SetFillStyle？
Process SetFillStyle (mode: Word color: word);
Bar, bar three-dimensional
SetFillStyle
GraphResultgrError，
:& lt！ [endif]& gt；
2.FillSettingsType？
:FillSettingsType = record
Pattern: characters;
Color: word
End;
.
f 1
www.cpascal.com？