Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Форум «Всё о Паскале» _ Задачи _ Ошибки при копировании из файла в файл
Автор: Natalia 28.11.2006 5:30
Доброго времени суток! Помогите найти ошибку в коде, пожалуйста. Вот задание: Создать текстовой файл А, содержащий не менее 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.
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 28.11.2006 5:49
Эта программа вообще не компилируется... А смысла производимых действий я уловить не смог... Вот так должно работать:
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 28.11.2006 23:51
Спасибо большое. Это было последнее задание из серии, по-идее оно должно было быть самым сложным, поэтому что-то перемудрила))