Убрать лишние пробелы в заданном предложении.

@$yuliya$ · Регистрация: 04.05.2011

@Высокий · 05.05.2011, 12:02

Pascal

Function OneSpace(S:string;B:boolean):string;
{Функция удаления лишних пробелов.
OneScpace(Строка,true/false - удалять
или нет пробелы в начале и в конце строки);
Результатом функции является строка с удаленными
лишними пробелами.}
var
 T: string;
Begin
 T:=S;
 while pos('  ',T)>0 do
  delete(T,pos('  ',T),1);
 if B then
  Begin
   if T[1]=' ' then delete(T,1,1);
   if T[length(T)]=' ' then delete(T,length(T),1);
  End;
 OneSpace:=T;
End;

Автор -TAVulator

@$yuliya$ · 13.05.2011, 10:36 **[ТС]**

Убрать лишние пробелы в заданном предложении.

@mamedovvms · 13.05.2011, 10:39

Pascal

1 2	while(pos('<два пробела>',s)<>0) do delete(s,pos(('<два пробела>',s)),1);

@$yuliya$ 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 7
		1
	Убрать лишние пробелы в заданном предложении. 05.05.2011, 11:50. Показов 1570. Ответов 3 Метки заданном, лишние, предложении, пробелы, Убрать (Все метки) Убрать лишние пробелы в заданном предложении. __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@$yuliya$ 0 / 0 / 0 Регистрация: 04.05.2011 Сообщений: 7
	13.05.2011, 10:36 [ТС]	3
	Убрать лишние пробелы в заданном предложении. 0

Опции темы