Основы применения вычислительной техники и программирование. Беспалов В.В. - 87 стр.

UptoLike

Составители:

Рубрика:

mx:= x}

my:= y}

h:=1 шаг по x}

x0:=

gd:=detect; { режим}

ние}

ой цикл}

}

+dy,3);

640/(maxx-minx); {масштаб по

480/(maxy-miny); {масштаб по

/mx; {определяем

minx;

инициализируем графический

Initgraph(gd,gm,'c:\tp7\bgi');

SetColor(5);

Rectangle(0,0,639,479); {чертим обрамле

dx:=round(x0*mx); {определяем смещение по x}

dy:=round(miny*my); {определяем смещение по y}

While x0<=maxx do {основн

begin

y0:=f1(x0,m);

{выводим точку аппроксимирующей функции}

PutPixel(round(x0*mx)- x,480-round(y0*my)+dy,14); d

x0:=x0+h; {делаем шаг}

end;

for i:=0 to n do {выводим исходные точки

Circle(round(x[i]*mx)-dx,480-round(y[i]*my)

end;