Создать копию файла

@kunkka1 · Регистрация: 24.09.2013

Author24 — интернет-сервис помощи студентам

При разработке программы не использовать функции и процедуры, которые расширяют файл в структуру прямого доступа. Файл можно создавать в Notepad, он должен иметь несколько строк.

Создать текстовый файл F. Создать его копию в файле A.

Чего нехватает в моей программе?

Pascal

Var
f,a:text;
s:real;
     begin
Assign(f,'Имя файла');
Assign(a,'Имя файла');
Reset(f); rewrite(a);
While not eof (f) do
Begin
Readln(f,s);
Writeln(a,s);
End;
end.

@Mawrat · 06.11.2013, 11:16

Переменная S должна быть строкового типа. Кроме этого надо добавить команды закрытия файлов в конце программы. И если требуется точное копирование последней строки, то должно быть так:

Pascal

var
  f, a : Text;
  s : String;
begin
  Assign(f,'Имя исходного файла');
  Assign(a,'Имя целевого файла');
  Reset(f);
  Rewrite(a);
  while not eof (f) do
  begin
    Read(f,s);
    Write(a,s);
    if Eoln(f) and not Eof(f) do
    begin
      Readln(f);
      Writeln(a);
    end;
  end;
  Close(f);
  Close(a);
end.

	06.11.2013, 11:16