Построение графика

Цель работы -cоздать программу построения графика, в которой устанавливается масштаб, в цикле осуществляется построение графика функции, рисуются оси координат и печатаются на них числовые шкалы.

Описание плана разработки программы

1. Открыть новый проект.

2. Разместить на форме экземпляры компонентов: кнопка Button, область рисования PaintBox.

3. Выполнить следующие действия:

Таблица 26.

Выделенный объект	Вкладка окна Object Inspector	Имя свойства/ имя события	Действие
Form1	Properties	Caption	Установка имени формы «График функции»
Button1	Properties	Caption	Введите название «График»
Events	Onclick	Написать процедуру, рисующую график по точкам
PaintBox1	Properties	Canvas	Соединение линиями получаемых точек
Button2	Properties	Caption	Введите название «Выход»
Events	Onclick	Close;

4. Сохраните проект, запустите и протестируйте его.

Листинг программы

procedure TForm1.Button1Click(Sender: Tobject);

function f(x:integer):integer;

var c:integer;

Begin

c:=round(10*sin(0.1*x));

f:=c;

end;

var x:integer;

Begin

PaintBox1.Canvas.LineTo(0,150);

PaintBox1.Canvas.LineTo(410,150);

x:=0;

for x:=0 to 350 do

Begin

PaintBox1.Canvas.LineTo(x, f(x)+150);

end;

end;

procedure Tform1.Button2Click(Sender: Tobject);

Begin

Close;

end;

end.