Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 20.03.2011, 17:12   #1 (permalink)
RadMan
Member
 
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Файлы

Дано целое число N и текстовый файл с именем Name1, содержащий один абзац текста, выровненный по левому краю. Отформатировать текст так, чтобы его ширина не превосходила N позиций, и выровнять текст по левому краю. Пробелы в конце строк удалить. Сохранить отформатированный текст в новом текстовом файле с именем Name2.
помогите(
RadMan вне форума   Ответить с цитированием

Старый 20.03.2011, 17:12
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

В каком то из этих постов проблема возможно решена

Не открываются PDF файлы
Файлы
Blu ray файлы
файлы

Старый 20.03.2011, 18:12   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Эх, знать бы язык программирования, на котором нужно выполнить задание! Как бы здорово...
Но это всё пустые мечты, понимаю.
Ну что же, лет через пять-восемь к нам обещали заглянуть экстрасенсы, тогда и узнаем.
А пока - увы...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 20.03.2011, 18:12   #3 (permalink)
RadMan
Member
 
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

О простите, Паскаль.............
RadMan вне форума   Ответить с цитированием
Старый 20.03.2011, 19:27   #4 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от RadMan Посмотреть сообщение
О простите, Паскаль.............
Тогда - пожалуйста. Не уверен, правда, что Вашему преподавателю понравится такой способ (через вспомогательный файл), но задачу эта программа решает. Естественно, пути к файлам можете прописать свои:
Код:
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.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 20.03.2011, 19:33   #5 (permalink)
RadMan
Member
 
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

а зачем вспомогательный наме3?
RadMan вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.03.2011, 19:48   #6 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от RadMan Посмотреть сообщение
а зачем вспомогательный наме3?
А вот зачем.
Программа работает так:
Все слова из файла Name1 переписываются во вспомогательный файл Name3, в котором каждое слово располагается на своей отдельной строке. Затем считываются слова из Name3 и в Name2 из них формируются строки нужной длины. В конце программы файл с именем Name3 уничтожается.
Вы можете посмотреть на него, закомментарив строку Erase(f3). Тогда он не уничтожится.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 20.03.2011, 19:52   #7 (permalink)
RadMan
Member
 
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

я не совсем понимаю как правильно вписываю..абзац..это значит текст примерно так вписывать

555555555555555555555
5555555555555555555555
555555555555555555555
а потом если ввожу например н=10 то он должен сделать
5555555555
55555555555
55555555555
.........



так??
RadMan вне форума   Ответить с цитированием
Старый 20.03.2011, 20:03   #8 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от RadMan Посмотреть сообщение
я не совсем понимаю как правильно вписываю..абзац..это значит текст примерно так вписывать

555555555555555555555
5555555555555555555555
555555555555555555555
а потом если ввожу например н=10 то он должен сделать
5555555555
55555555555
55555555555
.........



так??
Так, да не совсем. Всё-таки речь идет о тексте, состоящем из отдельных слов, разделенных пробелами. Т.е. пусть исходный текст такой:
Код:
Гнев, богиня, воспой Ахиллеса, Пелеева сына,
Грозный, который ахеянам тысячи бедствий соделал:
Многие души могучие славных героев низринул
В мрачный Аид и самих распростер их в корысть плотоядным
Птицам окрестным и псам (совершалася Зевсова воля),
С оного дня, как, воздвигшие спор, воспылали враждою
Пастырь народов Атрид и герой Ахиллес благородный.
Кто ж от богов бессмертных подвиг их к враждебному спору?
При форматировании все слова должны сохраниться, только строки изменить длину. Например, после ограничения в 20 символов должно получиться:
Код:
Гнев, богиня,
воспой Ахиллеса,
Пелеева сына,
Грозный, который
ахеянам тысячи 
бедствий соделал:
Многие души могучие
славных героев низринул
В мрачный Аид и самих
распростер их в корысть
плотоядным Птицам 
окрестным и псам
(совершалася Зевсова 
воля), С оного дня,
как, воздвигшие спор,
воспылали враждою
Пастырь народов Атрид
и герой Ахиллес
благородный. Кто ж от 
богов бессмертных
подвиг их к 
враждебному спору?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Старый 20.03.2011, 20:10   #9 (permalink)
RadMan
Member
 
Регистрация: 20.03.2011
Сообщений: 13
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

ага сделалось, а как если выровнить после форматировния по правому краю
RadMan вне форума   Ответить с цитированием
Старый 20.03.2011, 20:11   #10 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,357
Сказал(а) спасибо: 289
Поблагодарили 507 раз(а) в 165 сообщениях
Репутация: 91953
По умолчанию

Цитата:
Сообщение от RadMan Посмотреть сообщение
ага сделалось, а как если выровнить после форматировния по правому краю
А надо?
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S на форуме   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

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

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

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




Часовой пояс GMT +4, время: 14:55.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.