Версия для печати темы

Автор: Совсем новичок 2.11.2007 1:29

Здрасти. Не могу решить задачку (яп Паскаль) форматирования строки текста (до 80 символов) по ширине экрана, путем вставки пробелов между словами с использованием цикла while и функции insert. Помогите. Заранее благодарен.

Автор: Lapp 2.11.2007 9:25

Можно примерно так:

i:=1;
while Length(s)<80 do if (i>1) then begin
  if (s[i]=' ') and (s[i+1]<>' ') then Insert(' ',s,i);
  Dec(i)
end
else i:=Length(i)-1;

(не тестировано)

Но только учти, что должны быть выполнены некоторые условия:

1. изначальная строка начинается и заканчивается НЕ пробелами;
2. в изначальной строке есть хотя бы один пробел.

Если эти условия не выполнены, то следует определить, что значит форматирование строки с пробелами в начале и в конце, а также строки, состоящей из одного слова.

Автор: Совсем новичок 2.11.2007 15:55

Спасибо! Премного благодарен.