координаты точек на экране
Uses Graph; var
x,dx: real;
xl,x2: real;
y: real;
mx,my: integer;
{ аргумент и его приращение } ( диапазон изменения аргумента } { значение функции } { масштаб по X и Y - кол-во точек
экрана, соответствующее единице
по осям координат } { начало осей координат } { координаты точек на экране }
хО,уО: integer; рх,ру: integer;
grDriver:integer; grMode:integer; grPath:string; ErrCode:integer;
i: integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:='e:\tp\bgi';
InitGraph (grDriver,grMode,grPath);
ErrCode:=GraphResult;
if ErrCode <> grOK then
begin
writeln ('Ошибка инициализации графического режима.'); writeln ('Для завершения работы нажмите <Enter>'); readln; Halt (1);
end;
:=320; у0:=240;
тх:=20; ту:=20;
{ оси координат }
Line(10,y0,630,y0);
Line(xO,10,xO,470);
{ график }
xl:=-15;
х2:=5;
dx:=0 Л;
х:=xl;
while (x<x2) do
begin
у:= 0.5*х*х+х*4-3;
рх:=xO+Round(x*mx);
py:=yO-Round(y*my) ;
PutPixel(px,py,White);
x:=x+dx; end; readln;
end.
