Удаление пробелов

@федор михалыч · Регистрация: 24.02.2013

Студворк — интернет-сервис помощи студентам

Удалить все лишние пробелы в предложения. (сделать предложение идеальным ) Заранее спасибо!

@Jener · 14.10.2013, 17:25

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  crt;
var
  x, x1 : string;
begin
  clrscr;
  write('Введите строку : ');
  readln(x);
  x1 := '';
  while pos(' ',x) <> 0 do begin
    x1 := x1 + copy(x,1,pos(' ',x)-1) + ' ';
    delete(x,1,pos(' ',x));
    while x[1]=' ' do delete(x,1,1);
  end;
  x1 := x1 + x;
  writeln(x1);
  readln; 
end.

@федор михалыч · 14.10.2013, 18:08 **[ТС]**

СПАСИБО!!

@Puporev · 14.10.2013, 18:15

Pascal
1
2
3
while x[1]=' ' do delete(x,1,1);//èç íà÷àëà
while x[length(x)]=' ' do delete(x,length(x),1);//èç êîíöà
while pos('  ',x)>0 do delete(x,pos('  ',x),1);//èç ñåðåäèíû(â àïîñòðîôàõ ïî 2 ïðîáåëà)

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29

	Удаление пробелов 14.10.2013, 15:42. Показов 1186. Ответов 3 Метки нет (Все метки) Удалить все лишние пробелы в предложения. (сделать предложение идеальным ) Заранее спасибо! 0

@федор михалыч 0 / 0 / 0 Регистрация: 24.02.2013 Сообщений: 29
	14.10.2013, 18:08 [ТС]
	СПАСИБО!! 0