Построение графика
Цель работы -cоздать программу построения графика, в которой устанавливается масштаб, в цикле осуществляется построение графика функции, рисуются оси координат и печатаются на них числовые шкалы.
|
Описание плана разработки программы
1. Открыть новый проект.
2. Разместить на форме экземпляры компонентов: кнопка Button, область рисования PaintBox.
3. Выполнить следующие действия:
Таблица 26. Свойства проекта 31
| Выделенный объект | Вкладка окна 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.
Дата добавления: 2014-12-02; просмотров: 1006;