20.03.2011, 17:12 | #1 (permalink) |
Member
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Файлы
помогите( |
20.03.2011, 17:12 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
В каком то из этих постов проблема возможно решена Не открываются PDF файлы Файлы Blu ray файлы файлы |
20.03.2011, 18:12 | #2 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Эх, знать бы язык программирования, на котором нужно выполнить задание! Как бы здорово...
Но это всё пустые мечты, понимаю. Ну что же, лет через пять-восемь к нам обещали заглянуть экстрасенсы, тогда и узнаем. А пока - увы... |
20.03.2011, 19:27 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Тогда - пожалуйста. Не уверен, правда, что Вашему преподавателю понравится такой способ (через вспомогательный файл), но задачу эта программа решает. Естественно, пути к файлам можете прописать свои:
Код:
VAR f1,f2,f3:TEXT; N,L:Byte; S:String; C:Char; BEGIN Assign(f1,'D:\Name1'); ReSet(f1); Assign(f3,'D:\Name3'); ReWrite(f3); Repeat Repeat Read(f1,C); If C<>' ' then Write(f3,C) else WriteLn(f3); Until (C=' ') or (EoLn(f1)) or Eof(f1); Until Eof(f1); Close(f1); Close(f3); Write('N= '); ReadLn(N); Assign(f2,'D:\Name2'); ReWrite(f2); ReSet(f3); ReadLn(f3,S); Write(f2,S); Repeat L:=Length(S); Repeat ReadLn(f3,S); L:=L+Length(S)+1; If L<=N then Write(f2,' '+S); Until (L>N) or (EoF(f3)); If (not EoF(f3)) then begin WriteLn(f2); Write(f2,S); end; Until EoF(f3); Close(f3); Erase(f3); Close(f2); END. |
20.03.2011, 19:33 | #5 (permalink) |
Member
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
а зачем вспомогательный наме3?
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
20.03.2011, 19:48 | #6 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
А вот зачем.
Программа работает так: Все слова из файла Name1 переписываются во вспомогательный файл Name3, в котором каждое слово располагается на своей отдельной строке. Затем считываются слова из Name3 и в Name2 из них формируются строки нужной длины. В конце программы файл с именем Name3 уничтожается. Вы можете посмотреть на него, закомментарив строку Erase(f3). Тогда он не уничтожится. |
20.03.2011, 19:52 | #7 (permalink) |
Member
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я не совсем понимаю как правильно вписываю..абзац..это значит текст примерно так вписывать
555555555555555555555 5555555555555555555555 555555555555555555555 а потом если ввожу например н=10 то он должен сделать 5555555555 55555555555 55555555555 ......... так?? |
20.03.2011, 20:03 | #8 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Код:
Гнев, богиня, воспой Ахиллеса, Пелеева сына, Грозный, который ахеянам тысячи бедствий соделал: Многие души могучие славных героев низринул В мрачный Аид и самих распростер их в корысть плотоядным Птицам окрестным и псам (совершалася Зевсова воля), С оного дня, как, воздвигшие спор, воспылали враждою Пастырь народов Атрид и герой Ахиллес благородный. Кто ж от богов бессмертных подвиг их к враждебному спору? Код:
Гнев, богиня, воспой Ахиллеса, Пелеева сына, Грозный, который ахеянам тысячи бедствий соделал: Многие души могучие славных героев низринул В мрачный Аид и самих распростер их в корысть плотоядным Птицам окрестным и псам (совершалася Зевсова воля), С оного дня, как, воздвигшие спор, воспылали враждою Пастырь народов Атрид и герой Ахиллес благородный. Кто ж от богов бессмертных подвиг их к враждебному спору? |
|
20.03.2011, 20:11 | #10 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|