Решения (задачи 198-216)
repeat
{ засечка }
SetLineStyle(SolidLn, 0, NormWidth);
Line(x,yO-3,x,yO+3);
{ оцифровка }
Str(lx:0:l,st);
OutTextXY(x-8,yO+5,st);
lx: = lx+dlx;
{ линия сетки }
SetLineStyle(DottedLn, 0, NormWidth);
Line(x,yO-3,x,yO-h);
x: = x+dx; until (x>x0+w);
{ засечки, сетка и оцифровка по оси Y }
у: = у0;
repeat
{ засечка }
SetLineStyle(SolidLn, 0, NormWidth);
Line(xO-3,y,xO+3,y);
(оцифровка }
Str(ly:0:l,st);
OutTextXY(xO-40,y,st);
ly: = ly+dly;
{ линия сетки }
SetLineStyle(DottedLn, 0, NormWidth);
Line(x0+3,y,xO+w,y);
SetLineStyle(SolidLn, 0, NormWidth); y: = y-dy; until (y<yO-h);
Readln; CloseGraph;
end.
Задача 216
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);
{ график }
x1: = -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.