Версия для печати темы Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Строки

Автор: deadlegolas 9.11.2008, 23:50

Помогите решить задачу на строки,спасибо! "Текст записан одной длинной строкой Признаком красной строки есть символ $ . Переформатировать текст в 60-символьные строки,формируя абзацы." Заранее благодарю!

Автор: deadlegolas 11.11.2008, 14:56

срочно надо... помогите..

Автор: THandle 11.11.2008, 16:06

deadlegolas, создай массив этих самых строк длиной по 60 символов, а дальше делай следующее: 1. Заводишь переменную-счетчик, которая будет отвечать за позицию с которой мы будем копировать символы из основной строки в массив. 2. Берем кусок строки в 60 символов, начиная с позиции хранящейся в нашей переменной(см. пункт 1).  3. Если в нем нет символа $, то переносишь эти 60 символ полностью в соответственный элемент массива(это если не учитывать возможность переносов). Переменную соответственно увеличиваем на 60. 4. Если присутствует этот знак, то переносим все символы до него, а переменную увеличиваем на количество перенесенных символов. Все это делаем в цикле. Ну вот такой примерно алгоритм

Автор: deadlegolas 13.11.2008, 23:25

Цитата(THandle @ 11.11.2008,  16:06) deadlegolas, создай массив этих самых строк длиной по 60 символов, а дальше делай следующее: 1. Заводишь переменную-счетчик, которая будет отвечать за позицию с которой мы будем копировать символы из основной строки в массив. 2. Берем кусок строки в 60 символов, начиная с позиции хранящейся в нашей переменной(см. пункт 1).  3. Если в нем нет символа $, то переносишь эти 60 символ полностью в соответственный элемент массива(это если не учитывать возможность переносов). Переменную соответственно увеличиваем на 60. 4. Если присутствует этот знак, то переносим все символы до него, а переменную увеличиваем на количество перенесенных символов. Все это делаем в цикле. Ну вот такой примерно алгоритм  я извиняюсь,но можно сразу код,а то завтра нужно сдать программу.. времени совсем нету..( спасибо..

Автор: deadlegolas 18.11.2008, 21:22

Спасибо,решил.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)