Задание 1 к лабораторной работе. Вывести график функции у=20+х2 на форму

Вывести график функции у=20+х² на форму. Необходимо прорисовать сетку, оси координат.

План разработки приложения:

1) Поместить на форму компонент PaintBox (палитра компонентов System).

2) Центр системы координат в задании будет перемещен в точку с координатами (50, 200).

3) Для удобства работы в новой системе координат будут написаны специальные функции сх и су, которые предназначены для перевода координат точек из данной системы в систему, принятую в Делфи.

function cx(X:integer):integer; begin

cx:=50+x;

end;

function cy(Y:integer):integer;

begin

cy:=200-y;

end;

4) Прорисовка осей системы координат:

with Form1.Canvas do

begin

//1. прорисовка осей системы координат

pen.Width:=2;

moveTo(cx(0),cy(0));

Lineto(cx(0),cy(160)); //ось х

moveTo(cx(0),cy(0));

Lineto(cx(300),cy(0)); //ось у

5) Прорисовка координатной сетки.

//2.Прорисовка координатной сетки с шагом 20 пикселей

pen.Width:=1;

pen.Style:=psDot;

for i:=1 to 8 do

begin

moveTo(cx(0),cy(i*20));

Lineto(cx(300),cy(i*20));

end;

for i:=1 to 15 do

begin

moveTo(cx(i*20),cy(0));

Lineto(cx(i*20),cy(160));

end;

6) Вывод заголовков осей.

//3.Вывод заголовков осей

font.Size:=15;

TextOut(cx(290),cy(-5),'x');

TextOut(cx(-20),cy(160),'y');

7) Отображение графика.

for i:=0 to 300 do

pixels[cx(i),cy(20+round(i*i/1000))]:=clRed;

8) Сохранить и выполнить запуск проекта (см. рисунок 6.1)

Рисунок 6.1