| (, ) | ||||
| EGA | EGA | OEgalo | 640200 | |
| 1 Egahi | 640350 | |||
| VGA | VGA | OVgalo | 640200 | |
| IVgalo | 640350 | |||
| 2Vgalo | 640480 |
- :
Initgraph(<ep>, <>, '< >').
:
uses graph;
var gd, gm: integer; { gd gm }
begin
gd:=vga; gm:=vgahi;
initgraph(gd,gm.'d:\tp551);
:
gd:=detect
detect=0 Graph .
closegraph , .
graphresult grapherrormsg ( ). , . :
uses graph; var gd, gm, errorcod: integer;
begin
gd:=detect; initgraph(gd,gm,");
errorcod'=graphresult;
if errorcod <>grok then
Begin
writeln(' ');
writeln(grapherrormsg(errorcod));
halt
end;
Halt .
, . 0.. 15.
s11(<>) setbkcolor(<>) . .
. 3.2 Graph, .
, - , , -. (. . 3.1).
setlinestyle(a,b,t) - b - - 4, =4, b=0; t - - 1 ( ) 3 ( ).
3.2
Graph
| putpixel(x,y,c) | (,) |
| setlinestyle(a,b,t) | , |
| line(xl,yl,x2,y2) | |
| rectangle(xl,yl.x2.y2) | |
| , | |
| circle(x,y,r) | (,) |
| arc(x,y,a,b,r) | : a,b - |
| ellipse(x,y,a,b,rx,ry) | : rx, r - |
| setfillstyle(t,c) | |
| fillellipse(x,y,rx,ry) | , |
| floodfill(x,y,cg) | cg; (x,y) - |
| bar(xl,yl,x2,y2) | , |
| pieslice(x,y,a,b.r) | |
| sector(x,y.a,b,rx,ry) | |
| settextsiyle(f,n,d) | , ' |
| outtextxy(x,y,st) | st, (,) |
| outtext(st) | , |
|
|
|
setfillstyle(t,c) - t - 0..12. t = 1 - .
settextstyle(f,n,d), f, ( d). f = 0 , -. . 0 ( ) 1 ( ).
d, 1..10. d = 1 f = 0, 8*8 , d > 1 d.
, outtextxy(x,y,st) st , (,).
:
settextstyle(0,0,2); uttt(100,200,' ');
uttt(100,230,' ');
