17.02.2009, 21:14 | #1 (permalink) |
Новичок
Регистрация: 30.12.2008
Сообщений: 9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Файлы
Вот она:Даны два текстовых файла с именами 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. |
17.02.2009, 21:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Проблемы часто повторяются и ваша не исключение, вот схожие темы Не открываются PDF файлы Файлы Файлы Blu ray файлы файлы |
17.02.2009, 21:54 | #2 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Возможно, вам поможет ссылка на тему:
Найти количество цифр в числе в паскале и еще 3 задачи. И мне кажется, неверно указан путь к файлу. Последний раз редактировалось ummasha; 17.02.2009 в 22:00 |
17.02.2009, 22:12 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
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. Несколько путано, ну да это мелочь. |
|
17.02.2009, 22:22 | #5 (permalink) |
Member
Регистрация: 24.12.2008
Сообщений: 419
Записей в дневнике: 4
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 1311
|
Проверено: работает)))
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 и что-нибудь в них написать))) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|