Главная Случайная страница Контакты | Мы поможем в написании вашей работы! | ||
|
Процедура или функция | Описание |
Процедура Assign (F,<Имя>) | Назначает имя файла файловой переменной F |
Процедура Reset (F) | Открывает файл для чтения. Если файла с назначенным именем нет, возникает ошибка ввода-вывода |
Процедура Rewrite (F) | Создает файл и открывает его для записи. Если файл уже есть, он перезаписывается |
Процедура Close (F) | Закрывает файл, открытый ранее процедурами Reset или Rewrite |
Процедура Read [ Ln ](F,<Список переменных>) | Читает из файла значения указанных переменных. ReadLn после чтения значений пропускает все оставшиеся данные до конца текущей строки и переходит на следующую |
Процедура Write [ Ln ](F,<Список значений>) | Работает, как и обычный оператор вывода, но данные записываются в текстовый файл, задаваемый переменной F |
Функция Eof (F) | Возвращает истину, если достигнут конец файла при чтении |
Для примера рассмотрим следующую задачу: на входе дан текстовый файл, в котором в каждой строке записано по 3 вещественных числа. Необходимо считать информацию из файла и создать новый файл, в каждую строку которого записать сумму чисел в соответствующей строке входного файла, как показано на следующем рисунке.
Входной файл (Test. txt) | → | Двумерный массив (A) | → | Выходной файл (Out. txt) | |
1.2 5 7.3 3.3 9 4 8 6 1.1 ... | 13.5 16.3 15.1 ... | ||||
1.2 | 7.3 | ||||
3.3 | |||||
1.1 | |||||
… | … |
Текст программы
VAR
F:Text;
n,i:Integer;
A:ARRAY [1..100,1..3] OF Real;
BEGIN
Assign(F,'Test.txt');
Reset(F);
n:=0;
WHILE NOT Eof(F) DO
BEGIN
Inc(n);
Readln(F,A[n][1],A[n][2],A[n][3]);
END;
Close(F);
Assign(F,'Out.txt');
Rewrite(F);
FOR i:=1 to n DO
Writeln(F,A[n][1]+A[n][2]+A[n][3]);
Close(F);
END.
Дата публикования: 2014-11-26; Прочитано: 267 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!