Delphi-6 - среда разработки программного обеспечения для систем промышленной автоматизации. Букреев В.Г - 87 стр.

UptoLike

Составители:

Рубрика:

ствующие значения координат X и Y в зависимости от координаты Q по

формуле (2.8.1).

implementation

{$R *.dfm}

Function MyFunction(Q:Real):Real;

// Находим значение реальной функции в точке Q

begin

Result:=Sqr(Q);

end;

Function DefineXY(Q:Real):Real;

// Находим значение координат X=Y

begin

Result:=sqrt(sqr(Q)/2);

end;

Установим значение числа узловых точек по умолчанию равное 5 в ком-

понент SpinEdit3. Для этого, выделив его левой кнопкой мыши, устано-

вим в инспекторе объектов (см. рис. 2.9.4) значение Value=5.

Рис. 2.9.4. Инспектор объектов

Аналогично установим значение компонента SpinEdit2, отвечаю-

щего за значение количества циклов прокрутки равное 10000.

Как и в предыдущем случае, установим по умолчанию значение

числа узловых точек компонента SpinEdit1 равное 5. Однако помимо