Файлы

[юра 3]

Файлы

Помогите исправьте задачу плиз,а то она работает не правильно.

Вот она:Даны два текстовых файла с именами Name1 и Name2. Добавить в конец файла Name1 содержимое файла Name2.

Program q1;
var
f,s:text;
w:integer;
begin
assign (f,'1.txt');
assign (s,'2.txt');
reset (f);
append (s);
read(f,w);
write(s,w,' ');
close(f);
close(s);
end.

 

[ummasha]

Возможно, вам поможет ссылка на тему:
http://www.tehnari.ru/showthread.php?t=21744
И мне кажется, неверно указан путь к файлу.

 

[Vladimir_S]

Помогите исправьте задачу плиз,а то она работает не правильно.

Вот она:Даны два текстовых файла с именами Name1 и Name2. Добавить в конец файла Name1 содержимое файла Name2.

Program q1;
var
f,s:text;
w:integer;
begin
assign (f,'1.txt');
assign (s,'2.txt');
reset (f);
append (s);
read(f,w);
write(s,w,' ');
close(f);
close(s);
end.

Если ВСЁ содержимое файла 1.txt представляет собой одно-единственное целое число, то тогда правильно. А вот если файл произвольный, то не пойдёт. Надо, например, так:

Program q1;
var
f,s:text;
w:STRING;
begin
assign (f,'1.txt');
assign (s,'2.txt');
reset (f);
append (s);
REPEAT
readLn(f,w);
writeLn(s,w);
UNTIL EoF(f);
close(f);
close(s);
end.

При этом имени Name1 в программе соответствует 2.txt, а Name2 - 1.txt. Несколько путано, ну да это мелочь.

 

[Vladimir_S]

И мне кажется, неверно указан путь к файлу.

Имеете в виду, что нет указания на Диск:\папка\? Вроде если файлы расположены в той же папке, что и exe-файл программы, то можно и так. Впрочем, я всегда указываю полный путь.

 

[ummasha]

Проверено: работает)))
Program q1;
var f,s:text;
w:STRING;
begin
assign (f,'C:\1.txt');
assign (s,'C:\2.txt');
reset (f);
append(s);
REPEAT
readLn(f,w);
writeLn(s,w);
UNTIL EoF(f);
close(f);close(s);end.

Но сначала нужно создать на диске С файлы 1.txt и 2.txt и что-нибудь в них написать)))