Удалить из строки лишние слова таким образом, чтобы оставшиеся слова были упорядочены по алфавиту

@dizzzel · Регистрация: 07.12.2013

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

Дан текст. Словом текста считается любая последовательность букв алфавита; между соседними словами - не менее одного пробела. Перед первым и за последним словом каждой строки произвольное число пробелов. Оставив первое слово без изменения, удалить из строки лишние слова таким образом, чтобы оставшиеся слова были упорядочены по алфавиту.

@Cyborg Drone · 04.04.2014, 13:04

Pascal

var s, p, w1, w2: string;
begin
  writeln('Enter string:');
  readln(s);
  while pos('  ', s) > 0 do delete(s, pos('  ', s), 1); //удаление двойных пробелов
  if s[1] = ' ' then delete(s, 1, 1); //удаление пробела в начале
  if s[length(s)] = ' ' then delete(s, length(s), 1); //удаление пробела в конце
  s := s + ' '; //пробел в конце для упрощения алгоритма
  w1 := copy(s, 1, pos(' ', s));
  delete(s, 1, pos(' ', s));
  p := w1;
  while length(s) > 0 do
    begin
      w2 := copy(s, 1, pos(' ', s));
      delete(s, 1, pos(' ', s));
      if w2 >= w1
        then begin
          w1 := w2;
          p := p + w2
        end
    end;
  writeln('Result:');
  writeln(p);
  readln
end.

@dizzzel 0 / 0 / 1 Регистрация: 07.12.2013 Сообщений: 38
		1
	Удалить из строки лишние слова таким образом, чтобы оставшиеся слова были упорядочены по алфавиту 02.04.2014, 01:53. Показов 1763. Ответов 1 Метки нет (Все метки) Дан текст. Словом текста считается любая последовательность букв алфавита; между соседними словами - не менее одного пробела. Перед первым и за последним словом каждой строки произвольное число пробелов. Оставив первое слово без изменения, удалить из строки лишние слова таким образом, чтобы оставшиеся слова были упорядочены по алфавиту. 0

	04.04.2014, 13:04

Удалить из строки лишние слова таким образом, чтобы оставшиеся слова были упорядочены по алфавиту

Решение