Статья: Обработка последовательных файлов в программе

Формат: INPUT #номер канала, список переменных

Пример:

Input #1, fam$(i), kol(i)

Функция EOF позволяет определить конец файла.

Формат: EOF(номер канала)

Оператор CLOSE # "закрывает" файл, т.е. отсоединяет его от программы и освобождает в ней канал ввода - вывода.

Формат: CLOSE #номер канала

Задача: Рассчитать зарплату на каждого члена бригады и записать в файл File2.dat данные фамилию члена бригады и его зарплату с учетом подоходного налога. Данные по каждому члену бригады (фамилия и количество сделанных изделий) содержатся в файле File1.dat. Примечание: количество членов бригады, стоимость изделия и процент на зарплату от прибыли ввести с клавиатуры.

Input " количество членов бригады ";n

Input " стоимость изделия";r

Input " процент на зарплату от прибыли ";p

p = p/100

Dim fam(n), kol(n), sum(n)

Open "File1.dat" for input as #1

for i = 1 to n

Input #1, fam$(i), kol(i)

sum(i) = kol(i)*r*p*0.13

next i

Close #1

Open "File2.dat" for output as #1

for i = 1 to n

Print #1, fam$(i), sum(i)

next i :Close #1

На языке программирования Паскаль.

В Турбо Паскале различают текстовые файлы, типизированные файлы и нетипизированные файлы. При работе с файлами ключевым понятием является понятие переменной файлового типа или файловой переменной и описывается она в разделе переменных в зависимости от класса файла. Для текстовых файлов файловая переменная принадлежит стандартному типу Text. Файловая переменная (ф.п.) связывается с именем файла с помощью оператора ASSIGN.

Формат:

Assign (<ф.п.>,'<путь к файлу>\ <имя файла>');

Он должен быть первым среди операторов, работающих с файлом. Прежде, чем начать работать с файлом его нужно "открыть". Оператор RESET открывает уже существующий файл, а оператор REWRITE открывает новый файл или файл, содержимое которого полностью заменяется.

Форматы: