Работа с текстовыми файлами в языке Паскаль - 23 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

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

Рубрика: 

23
{ Копирование исходного файла во временный с изменениями }
{ В этой части нет никаких отличий от процедуры s41 }
WriteLn(FTemp);
while not EOF(FT) do
begin
ReadLn(FT, S);
WriteLn(FTemp, S)
end;
{ Закрытие основного файла }
Close(FT);
{ Удаление основного файла }
Erase(FT);
{ Закрытие временного файла }
Close(FTemp);
{ Переименование временного файла в имя основного }
Rename(FTemp, ST)
end;
1.4 Ввод/вывод числовой информации в текстовые файлы
Точно так же, как и в случае с файлами Input и Output, можно
организовать ввод/вывод числовых данных из/в любых других текстовых файлов.
Пример 10. Дан текстовый файл, содержащий последовательность
вещественных чисел. Необходимо записать в другой текстовый файл все числа из
него,
бóльшие их среднего арифметического.
Входные данные:
Последовательность вещественных чисел в текстовом файле с именем
“input.txt”.
Выходные денные:
Последовательность вещественных чисел в текстовом файле с именем
“output.txt”.
Оба файла расположены в каталоге программы.
Текст программы:

Страницы