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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

i : Integer;
begin
AssignFile(F, 'prog.dat');
Reset(F);
i := 1;
while not EOF(F) and (i <= N) do
begin
Read(F, M[i]);
inc (i) end;
CloseFile(F) ;
end.
Пример записи информации в текстовый файл приведен ниже:
var
F : TextFile;
X : array [1..N] of Real;
i : Integer;
egin
AssignFile(F,’MyDat.txt’);
Rewrite(F);//Перезапись файла
For i:=0 to N do
begin
Writeln(F,Floattostr(X[i])
end;
CloseFile(F);//Закрыть файл
Полное описание работы с файлами представлено в [8].
2.9. Пример программной реализации метода интерполяции функ-
ций сплайном третьего порядка на Delphi-6
Пусть в нашем случае задана исходная функция , где
2
QZ =
22
YXQ += .
Число узловых точек и интервалов интерполяции равно 5.
Разместим на рабочей форме необходимые для проведения иссле-
дования кубического сплайна компоненты:
1. Компонент StringGrid «
» (закладка палитры компонентов
Additional) представляет собой таблицу с данными, посредст-
вом которой будут вводиться значения функции в узловых точ-
ках. Используя инспектор объектов Object Inspector, установим
количество столбцов RowCount и строк ColCount таблицы
равное 5.
83

Страницы