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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

Writeln(F,Floattostr(InputXY.X[i])+'
'+Floattostr(InputXY.Y[i])+'
'+Floattostr(InputQZ.Y[i])+'
'+Floattostr(InputQZ.X[i]));
end;
// Добавить строку с именем выходного списка точек.
WriteLn(F,'OutputPoints');
WriteLn(F,'X'+' '+'Y'+' '+'Z'+'
'+'Q'+' '+'Delta');
// В цикле добавляем в файл все точки интерполированной
// траектории, а также ошибку интерполяции.
For i:=0 to Length(OutputQZ.X)-1 do
begin
Writeln(F,Floattostr(OutputXY.X[i])+'
'+Floattostr(OutputXY.Y[i])+'
'+Floattostr(OutputQZ.Y[i])+'
'+Floattostr(OutputQZ.X[i])+'
'+Floattostr(ErrorValue.Y[i]));
end;
CloseFile(F);//Закрываем открытый на запись файл.
{$I+}
end;
end;
Пункт меню Файл | Выход:
procedure TForm1.N5Click(Sender: TObject);
// Процедура выхода из программы.
begin
Close; //Закрыть программу.
end;
Пункт меню Расчеты | Рассчитать файл:
procedure TForm1.N7Click(Sender: TObject);
// Вызов процедуры расчета сплайна и построения графиков
// на компонентах Chart1 и Chart2.
Var FullTime, Timer,k:Integer;
MaxFuncVal:Real;
begin
// Устанавливаем длину динамических массивов (поля X и Y)
// записей InputXY и InputQZ.
SetLength(InputXY.X,SpinEdit1.Value);
SetLength(InputXY.Y,SpinEdit1.Value);
SetLength(InputQZ.X,SpinEdit1.Value);
SetLength(InputQZ.Y,SpinEdit1.Value);
// Очищаем список точек компонентов Chart1 и Chart2
// т.е. очистка графиков.
89

Страницы