5
.
.
3.1 . , . , . 1 .
3.2 , (. 2 ).
3.3 , (. 3 ).
- ;
- ;
- .3.1 .3.2. 3.3;
- ;
- 7 .
.
, .. . , .
, , ..
7.0 , , GRAPH. , , , . () . .
GRAPH . , .
|
|
GRAPH InitGraph, . :
InitGraph(var Driver, Mode:integer; Path:string),
Driver Mode . Driver=0 . Path .
() . : (0,0) ; , Y . VGA ( 640480) (639, 479), - (319, 239).
CloseGraph.
1
program pr1;
uses Graph; { Graph}
var d, m: Integer;
begin
d:=0;
m:=0;
InitGraph(d, m,'d:\bp\bgi'); { . d:\bp\bgi Graph.tpu , }
circle(319, 239, 100); { 100 }
readln; { , Enter}
CloseGraph; { }
end.
1 100 (319, 239). .. , .
7.0 16 , 0 15 (. 1).
1
0 (Black) | 8 (DarkGray) | ||
1 (Blue) | 9 (LightBlue) | ||
2 (Green) | 10 (LightGreen) | ||
3 (Cyan) | 11 (LightCyan) | ||
4 (Red) | 12 (LightRed) | ||
5 (Magenta) | 13 (LightMagenta) | ||
6 (Brown) | 14 (Yellow) | ||
7 (LightGray) | 15 (White) |
GRAPH SetBkColor ( ) SetColor ( ).
:
SetBkColor (Color: word);
SetColor (Color: word),
Color, word, .
, SetBkColor (1); SetColor (14) .
|
|