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