Graph, 90 , , . Graph , turbo.tpl Graph.tpu. , Graph bqi. chr.
( CGA, EGA, VGA . . x y, , ).
VGA 0 640 480 16 .
.
:
Uses Crt,Graph;
Var Gd, Gm: integer;
Begin
Gd:=detect;
InitGraph(Gd, Gm, '');
End.
InitGraph , :
1- (Gd) . , Graph Detect. Detect=0 .
2- (Gm) 0,1,2,3,..
3- , : C:\TP70\BGI
'' .
, :
Repeat Until Keypressed;
CloseGraph;
³ CloseGraph .
CloseGraph . RestorCrtMode SetGraphMode, , .
Uses Crt,Graph;
Var Gd, Gm: integer;
Begin
Gd:=detect;
InitGraph(Gd, Gm, '');
Outtext(' Enter');
Readln;
RestorCrtMode;
Clrscr;
Writeln(' ');
Write(' Enter ');
Readln;
SetGraphMode(GetGraphMode);
OuttextXY(0,0,' ');
Readln;
CloseGraph
End.
RestorCrtMode - , , .
SetGraphMode (<>) - .
GetGraphMode - , InitGraph.
|
|
(0,0); .
OutText OutTextXY.
SetTextStyle.
- , , , , , , ,..
SetlineStyle.
Menu Help.
{ }
Uses Crt,Graph;
Var Gd, Gm: integer;
Begin
Gd:=detect;
InitGraph(Gd, Gm, '');
Randomize;
Repeat
Line(random(640),random(200),random(640),random(200));
Until Keypressed;
Delay(1000);
CloseGraph
End.
{ }
Uses Crt,Graph;
Var Gd, Gm, x, y, i,c: integer;
Begin
Gd:=detect;
InitGraph(Gd, Gm, '');
For i:=0 to 39 do
Begin
y:=(i div 8)*40+20;
x:=(i mod 8)*40+20;
For c:=0 to 5 do
Begin
Setcolor(c);
Circle(x,y,(c+1)*5)
End
End;
ReadKey;
CloseGraph
End.
{SetColor - .
Circle(x,y,r) - }
{ '' }
Uses Crt,Graph;
Var Gd, Gm, x, y, i,c: integer;
Begin
Gd:=detect;
InitGraph(Gd, Gm, '');
SetLineStyle(0, 0,3);
Rectangle(0,0,GetmaxX,GetmaxY);
SetLineStyle(0, 0,1);
OutTextXY(GetmaxX div 2, GetmaxY div 2,'');
Readkey;
Closegraph
End.
SetLineStyle(< >, <>, <>) - .
Rectangle(x1, y1, x2, y2) - .
x1,y1;x2,y2- , .
SetTextStyle(< >, <>, <>) - , .
: 0-64.
: 0- ; 1- .
: 0-10
y=f(x) , x A u,v.
, :
D={(x,y): x1<=x<=x2, y1<=y<=y2}
, D , ; , .
³ (u,v) y=f(x) :
X=x1+ (x2-x1)(u-umin)/(umax- umin);
y=y1+ (y2-y1)(v- vmin)/(vmax- vmin),
umax umin, vmax vmin - y=f(x) .
u umin umax - x x1 x2.
v vmin vmax - y y1 y2, 1>2, .
v=0 u=0 :
X=x1- (x2-x1)* umin/(umax - umin); | line(x1,y,x2,y)| -
Y=y1- (y2-y1)* vmin/(vmax - vmin); | line(x1,y,x2,y)| - x.
y=f(x)
1. a,b.
2. n.
|
|
3. : h=(b-a)/n.
4. :
For i:=1 to n do
Begin
X[i]:=a+h*(i-1);
Y[i]:=< >
End;
5. .
deltax:= round(640/(x[n]- x[1]));
6. y:
- ymax, ymin
- deltay=round(350/(ymax-ymin));
7. :
- (1,y[1]) (MoveTo).
- lineto(x[i],y[i]) .