Методы оптимизации и расчеты на ЭВМ технико-экономических задач. Ромашова О.Ю. - 193 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

193
Ввод исходных данных и вывод результатов
с использованием файлов
Обозначим исходный файл как FI, файл результатов – FR, а их
имена – соответственно
IMFI и IMFR.
Файлы и их имена должны быть описаны в разделе описаний про-
граммы, как переменные типа
text и string соответственно.
Файл исходных данных надо
создать в своей папке (!) и записать
под каким-либо именем, например
’TEST.ish’. Значения переменных
в исходном файле набираются через пробел или запятую в том порядке,
в котором предполагается их вводить в программу.
Выводу результатов в файл предшествует объявление имени фай-
ла результатов в программе. Назовем файл результатов
’TEST.rez’.
После использования файлов FI и FR их надо закрыть оператором
Ciose.
Фрагмент программы с использованием файлов исходных данных
и результатов приведен ниже.
Program TEST; ; {Заголовок программы}
VAR FI, FR: text; {Описание файлов}
IMFI, IMFR: string [20]; {Описание имен файлов}
…
BEGIN {**********Начало программы *************** }
{ Ввод исходных данных из файла FI }
IMFI:=’TEST.ish’; { Файловой переменной IMFI}
{ присвоено имя ’TEST.ish’}
Assign(FI, IMFI); {Связывает имя файловой переменной FI }
{в программе с именем внешнего файла}
{на диске IMFI}
Reset(FI);
{Открывает файл FI для чтения}
Read(FI, x1, x2, x3, …); {Считывает в переменные x1, x2, x3,}
{элементы файла FI }
Ciose(FI); {Закрывает файл FI }
Y1:=x1+x2+x3;
{ Организация файла результатов FR }
IMFR:=’TEST.rez’; { Файловой переменной IMFR присвоено}
{ имя ’TEST.rez’ }
Assign(FR, IMFR); { Связывает имя файловой переменной FR }
{ в программе с именем внешнего файла}
{ на
диске IMFR }
Rewrite (FR); { Открывает файл FR для записи }
WRITELN(FR,‘Y1 = ’, Y1:5:1 ); { Записывает значение }
{ переменной Y1 в файл FR }
Ciose(FR); {Закрывает файл FR }
{ Вывод результатов в файл FR }
WRITELN(FR,‘Y1 = ’, Y1:5:1 );
Readln; END. { Конец программы }

Страницы