Работа с файлами(Pascal)

[AndrewAlexandrov]

Здравсвуйте, у меня возникла небольшая проблема в работе с файлами. И вот я решил спросить у вас помощи или какой-либо совет.

Вот собственно задание:
Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые являются четными.

А вот код к этому заданию:

program PR8_Alexandrov;
var f,g:text;
    c:integer;
    n,i:integer;
begin
cls;
randomize;
assign(f,'f.txt');
rewrite(f);
assign(g,'g.txt');
rewrite(g);
write('Количество чисел n=');
readln(n);
for i:=1 to n do
 begin
  c:=random(100);
  write(f,c,' ');
 end;
reset(f);
while not eof(f) do //eof Возращает True если достигнут конец файла
 begin
  read(f,c);
  if c mod 2=0 then write(g,c,' ');
 end;
close(f);
close(g);
write('Файлы записаны!');
readln
end.

А проблема заключается в том, что когда я запускаю программу, задаю кол-во чисел n, Pascal выдает такую ошибку: Program1.pas(19) : Ошибка времени выполнения: Процесс не может получить доступ к файлу "D:\Pascal\f.txt", так как этот файл используется другим процессом.

Хотя этот файл нигде не может быть использован. Помоги пожалуйста разобраться с этой небольшой по сути проблемой. Заранее благодарен

[OlegPrograming5]

Конечно не может получить доступ, ведь вы открыли файл для записи (rewrite(f)), а после записи не закрыли его, но теперь снова открываете для чтения (reset(f)).
Добавьте перед reset(f) команду close(f) (закрытие файла).

[Malriser]

У меня все работает.

При n = 6 в файле f.txt остается "79 7 86 64 15 52 " а в g.txt "86 64 52 0 " при этом файлы были пустые.


Видимо это у тебя на компьютере проблема.

Попробуй перезагрузи компьютер ( стандартный совет ).


Но! Я твой код тестировал в Borland Delphi 7 ( чуть чуть подредактировал под Delphi синтаксис ).


Учитывая, то что Delphi более оптимизирован осмелюсь предположить, что дело в том, что когда ты делаешь reset(f); ты еще не закрыл сам файл f;

Попробуй такой код

program PR8_Alexandrov;
var f,g:text;
    c:integer;
    n,i:integer;
begin
cls;
randomize;
assign(f,'f.txt');
rewrite(f);
assign(g,'g.txt');
rewrite(g);
write('Количество чисел n=');
readln(n);
for i:=1 to n do
 begin
  c:=random(100);
  write(f,c,' ');
 end;
close(f);
assign(f, 'f.txt');
reset(f);
while not eof(f) do //eof Возращает True если достигнут конец файла
 begin
  read(f,c);
  if c mod 2=0 then write(g,c,' ');
 end;
close(f);
close(g);
write('Файлы записаны!');
readln
end.

Вот блин! опоздал, тогда извините за дабл ответ. Я когда заходил в тему ответа еще не было

[AndrewAlexandrov]

OlegPrograming5 и Malriser спасибо вам за помощь!