Удалить все лишние пробелы, оставив по одному между словами

@Notoriously · Регистрация: 06.07.2016

Задание "Написать программу, в которой вводится строка из слов с некоторым количеством пробелов между ними. Удалить лишие пробелы, оставив по одному между словами".
Только начал работать со строками, поэтому прошу проверить мой код (Вроде бы все работает, но мало ли, опять что-то забыл) :

Кликните здесь для просмотра всего текста

Pascal

Program TryingToUseString;
var string1 : string;
counter,positionOfspace,counter1,falsepos,mono: integer;
space : char;
begin
    writeln('Input a string : ');
    readln(string1);
    space:=' ';
    positionOfspace:=1;
    while (positionOfspace<=length(string1))  do
        begin
                  falsepos:=positionOfspace;
                  mono:=0;
                  while (string1[falsepos]=space) do
                     begin
                        inc(mono);
                        inc(falsepos);
                     end;
           
           delete(string1,positionOfspace+1,mono-1);
           inc(positionOfspace);
        end;
   write(string1);
 
end.

@Puporev · 02.10.2016, 00:00

Pascal

1 2	While pos(' ',s)>0 do//в апострофах по 2 пробела delete(s,pos(' ',1));

@volvo · 02.10.2016, 11:36

Я просто оставлю это здесь:

Pascal

uses strutils;
var s : string;
begin
  write('s = '); readln(s);
  s := DelSpace1(s); // вот это - уже готовая функция, заменяющая несколько пробелов на один
  writeln(s);
end.

@Notoriously · 02.10.2016, 12:32 **[ТС]**

Сообщение от volvo

uses strutils

До этого я еще не дошел. Спасибо.

Сообщение от Puporev

delete(s,pos(' *',1))

Как в данном случае сработает

Pascal

delete

? Он же должен принять 3 параметра? (Строка,из которой он удаляет что-то, место, с которого он удаляет и , соответственно, количество удаляемых символов.) И

Pascal

- это же строка, с которой мы работаем?

@Puporev · 02.10.2016, 12:35

А у меня сколько параметров?

Pascal

1	delete(s,pos(' ',1));

s-строка из которой удаляем, pos(' ',1)-позиция первого вхождения 2х пробелов, 1-количество удаляемых символов.

@Notoriously · 02.10.2016, 12:55 **[ТС]**

Сообщение от Puporev

А у меня сколько параметров?

Разве не так должно быть

Pascal

1	delete(string1,pos(' ',string1),1);

?
Первоначальный вариант у меня не срабатывает.

@Puporev · 02.10.2016, 13:00

Да, я неправильно указал параметры в функции pos, а не в процедуре delete.

@Notoriously · 02.10.2016, 13:05 **[ТС]**

Puporev , спасибо, ваши 2 строчки в любом случае заменяют мои 14.

@bormant · 02.10.2016, 15:14

Pascal

1 2	for j:=Length(s)-1 downto 1 do if (s[j]=' ') and (s[j+1]=' ') then Delete(s,j,1);

@Puporev Модератор 62930 / 46950 / 32354 Регистрация: 18.05.2008 Сообщений: 113,763
	02.10.2016, 13:00	7
	Да, я неправильно указал параметры в функции pos, а не в процедуре delete. 1

@Notoriously 69 / 69 / 35 Регистрация: 06.07.2016 Сообщений: 415
	02.10.2016, 13:05 [ТС]	8
	Puporev , спасибо, ваши 2 строчки в любом случае заменяют мои 14. 0

Опции темы

Удалить все лишние пробелы, оставив по одному между словами

Решение