Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов
Перезагрузить страницу Файлы
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
юра 3 юра 3 вне форума
Новичок
 
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.12.2008
По умолчанию Файлы - 17.02.2009, 21:14

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

Вот она:Даны два текстовых файла с именами 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.
Ответить с цитированием
  (#2 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.02.2009, 21:54

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

Последний раз редактировалось ummasha; 17.02.2009 в 22:00
Ответить с цитированием
  (#3 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.02.2009, 22:12

Цитата:
Сообщение от юра 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.
Если ВСЁ содержимое файла 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. Несколько путано, ну да это мелочь.
Ответить с цитированием
  (#4 (permalink)) Старый
Vladimir_S Vladimir_S вне форума
Member
 
Сообщений: 423
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
По умолчанию 17.02.2009, 22:17

Цитата:
Сообщение от ummasha Посмотреть сообщение
И мне кажется, неверно указан путь к файлу.
Имеете в виду, что нет указания на Диск:\папка\? Вроде если файлы расположены в той же папке, что и exe-файл программы, то можно и так. Впрочем, я всегда указываю полный путь.
Ответить с цитированием
  (#5 (permalink)) Старый
ummasha ummasha вне форума
Member
 
Аватар для ummasha
 
Сообщений: 288
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 24.12.2008
Адрес: Брянск - город партизанской славы
По умолчанию 17.02.2009, 22:22

Проверено: работает)))
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.
  (#6 (permalink)) Старый
KsenkaFMF KsenkaFMF вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 30.05.2011
По умолчанию 30.05.2011, 02:07

помогите пожалуйста решить, очень нужно и срочно. заранее спасибо
1. Даны два текстовых файла. Добавить в конец первого файла содержимое второго файла.
2. Дано целое число К и текстовый файл. Создать строковый файл и записать в него все слова длины К из исходного файла. Словом считать набор символов, не содержащий пробелов, знаков препинания и ограниченный пробелами, знаками препинания или началом/концом строки. Если исходный файл не содержит слов длины К, то оставить результирующий файл пустым.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Файлы Katty Maniako Pascal 0 31.01.2012 12:57
файлы LNK AnsweR_89 Любые вопросы от новичков 0 03.08.2011 20:13
ФАЙЛЫ (текстовые файлы) dianochka Pascal 0 25.04.2011 23:31
lst - файлы Free Антивирусы 1 06.12.2010 21:41
QLF файлы Morlock Prolog 1 09.01.2009 16:18
Файлы imported_W_M Prolog 12 12.11.2008 23:12
Файлы imported_W_M Prolog 3 08.11.2008 13:19
Файлы OksanaIST Prolog 3 18.12.2007 22:51
файлы {{CaspeR}} Prolog 3 29.05.2007 22:52
Файлы strertkjh Pascal 1 28.05.2007 17:16
Можно ли создавать php-файлы, в которые вшиты другие файлы? feedbee PHP 6 04.12.2005 01:59



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов