Основы программирования. Файлы. Рекурсия - 10 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

12
Close(f);
end;
В данном примере следует обратить внимание на команду
Seek(f,FileSize(f)), перемещающую файловый указатель за последний
элемент, то есть на маркер конца файла.
Пример 2. Дан файл вещественных чисел. Возвести все его элементы в квад-
рат.
Решение 1. Всякий раз после считывания элемента будем возводить его в
квадрат, возвращаться назад и записывать
на старое место.
const name='b.dat';
var f: file of real;
x: real;
begin
Assign(f,name);
Reset(f);
for i:=0 to FileSize(f)-1 do
begin
read(f,x);
x:=x*x;
Seek(f,FilePos(f)-1);
write(f,x);
end;
Close(f);
end;
В данном примере следует обратить внимание на команду
Seek(f,FilePos(f)-1), перемещающую файловый указатель на предыдущий
элемент.
Решение 2. Создадим второй файл и будем записывать в него квадраты чи-
сел из первого файла, после чего
удалим первый файл и переименуем второй, дав
ему имя исходного файла.
const name='b.dat';
var f,f1: file of real;
x: real;
begin
Assign(f,name);
Reset(f);
Assign(f1,'temp.dat');
Rewrite(f1);
for i:=0 to FileSize(f)-1 do
begin

Страницы