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

Практическая работа № 31 Построение графика

Рис. 58.

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

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);
PaintBoxl.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.

Практическая работа № 30 Рисунок || Оглавление || Практическая работа № 32 "Градусник"


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



Новости за месяц

  • Сентябрь
    2021
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс