Помощь - Поиск - Пользователи - Календарь
Полная версия: Ошибки при копировании из файла в файл
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Natalia
Доброго времени суток! Помогите найти ошибку в коде, пожалуйста. Вот задание: Создать текстовой файл А, содержащий не менее 10 строк. Написать программу копирования файла А в файл В с добавлением в начало каждой строки её номера.
Вроде понимаю задачу и написала её, но почему-то файл А не копируется в В (У меня вместо А и В Input и Output).

Код
var Input,Output:text;
     s:string;
     k:integer;
  begin
   assign(Input,'Input.txt');
   assign(Output,'Output.txt');
   reset(Input);
   rewrite(Output);
   k:=0;
    while not eof(Input) do
     begin
      read(Input,s);
      if eoln(Input,s) then
       k:=k+1;
       while not eoln(Input) do          
        begin
         write(k);
         write(Output,s);
        end;
     end;
   close(Input);
   close(Output);
  end.


volvo
blink.gif Эта программа вообще не компилируется... А смысла производимых действий я уловить не смог... Вот так должно работать:

var
Input,Output:text;
s:string;
k:integer;
begin
assign(Input,'input.txt');
assign(Output,'output.txt');
reset(Input);
rewrite(Output);

k:=0;
while not eof(Input) do begin
readln(Input,s);
k:=k+1;
writeln(output, k, ' ' + s);
end;
close(Input);
close(Output);
end.
Natalia
Спасибо большое. Это было последнее задание из серии, по-идее оно должно было быть самым сложным, поэтому что-то перемудрила))
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.