Создадим приложение «Delphi график функции» на основе примера покажем вывод графика функции Y = 0.4*X + 20 в диапазоне значений аргумента от 0 до 330.
Откроем программу Delphi 7 и автоматически сгенерируется форма, где пропишем в свойство Caption название нашей программы Delphi график функции (см. рис).

 

Delphi график функции


Центер нашей системы координат у нашего приложения Delphi график функции будет перемещён в точку с координатами (50, 200). Для удобства работы были написаны специальные функции CX и СY, которые предназначены для перевода координат точек из данной системы в систему принятую в Delphi. Итогом работы данной программы Delphi график функции будет выводится график функции, который изображён ниже на рисунке.

Delphi график функции


Далее ниже Вы можете посмотреть и скачать исходный код приложения Delphi график функции:
unit Unit1;

 

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormPaint(Sender: TObject);
// функции преобразования координат точек
// в координаты на поверхности рисования
function cx(X:integer):integer;
begin
result:= 50 + X;
end;

function cy(Y:integer):integer;
begin
result:= 200 - Y;
end;
var
i:integer;
begin
with Form1.Canvas do
begin
//1.Прорисовка осей системы координат - delphi графика функции
Pen.Width:= 2;
MoveTo(cx(0),cy(0));
LineTo (cx(0),cy(160)); // ось X - в приложении delphi графика функции
MoveTo(cx(0),cy(0));
LineTo (cx(300),cy(0)); // ось Y - в приложении delphi графика функции
//2. Прорисовка координатной сетки
// с шагом 20 пикселей в программе delphi графика функции
Pen.Width:= 1;
Pen.Style:=psDot;
for i:=1 to 8 do
begin
MoveTo(cx(0),cy(i*20));
LineTo (cx(300),cy(i*20));
end;

for i:=1 to 15 do
begin
MoveTo(cx(i*20),cy(0));
LineTo (cx(i*20),cy(160));
end;
//3. Вывод заголовков осей для приложения "delphi графика функции"
Font.Size:= 15;
TextOut(cx(320),cy(-5),'X');
TextOut(cx(-20),cy(160),'Y');
//4. построение графика функции delphi
for i:=0 to 300 do
Pixels[(cx(i)), cy(20+round(0.4*i))]:=clRed;
end;
end;
end.

Скачать исxодник «Delphi график функции »:

 

Добавить комментарий


Защитный код
Обновить