Практикум по Delphi для решения прикладных задач


         

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


Цель работы - 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.




Содержание раздела