Напечатать те слова последовательности, которые отличны от последнего слова, и где нет повторяющихся букв

@Андрюша666 · Регистрация: 13.10.2017

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

Последняя попытка сдать задание.
Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв

@Joey · 13.10.2017, 22:56

А в чем конкретно заключаются трудности?

@Андрюша666 · 14.10.2017, 00:28 **[ТС]**

В понимании самой задачи в принцие. Написании ее в среде lazarus. Не понимаю как в принципе тут построить код

@Joey · 14.10.2017, 00:55

А строка содержит кириллицу?

Добавлено через 7 минут
В любом случае, подключаете в uses LazUTF8 для работы с юникод-строками.
Вот код, который разделит строку на слова

Delphi

procedure TForm1.Button1Click(Sender: TObject);
vаr
    s: string;
bеgin
  s := Еdit1.Text;
  while UTF8Pos('  ', s) > 0
  do s := UTF8StringReplace(s, '  ', ' ', [rfReplaceAll]);
  // сначала избавляемся от лишних пробелов
 
  while UTF8Pos(' ', s) > 0
  do bеgin
    Memo1.Lines.Add(UTF8Copy(s, 1, UTF8Pos(' ', s) - 1));
    s := UTF8Copy(s, UTF8Pos(' ', s) + 1, UTF8Length(s) -
      UTF8Pos(' ', s));
  еnd;
end;

@Андрюша666 · 14.10.2017, 12:16 **[ТС]**

Я думаю, что нужно, чтобы в начале выскакивало 2 формы - куда вводишь слова, а второе поле, то где выводится слово без повторяющихся букв

Добавлено через 1 час 6 минут
Этот код делит строку на слова, уже неплохо. Правда куда его вставлять я не имею понятия. Мне кажется это часть кода полной задачи

@Joey · 14.10.2017, 12:25

Все эти строки будут теперь содержатся в Memo1.Lines

Сообщение от Андрюша666

Мне кажется это часть кода полной задачи

Ну конечно, не за Вас же весь код писать

@Андрюша666 · 14.10.2017, 18:27 **[ТС]**

Спасибо, Джоуи. Но врядли я сумею написать весь код целиком

@D1973 · 14.10.2017, 18:33

Не по теме:

Сообщение от Андрюша666

врядли я сумею написать весь код целиком

Андрюша666, а Вы хоть попробуйте сначала...

@Joey · 14.10.2017, 18:40

Андрюша666, зачем Вам тогда решать эту задачу? Бросьте

@Андрюша666 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 18
		1
	Напечатать те слова последовательности, которые отличны от последнего слова, и где нет повторяющихся букв 13.10.2017, 19:16. Показов 752. Ответов 8 Метки нет (Все метки) Последняя попытка сдать задание. Дана последовательность слов. Напечатать те слова последовательности, которые отличны от последнего слова и удовлетворяют следующему свойству: в слове нет повторяющихся букв 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	13.10.2017, 22:56	2
	А в чем конкретно заключаются трудности? 0

@Андрюша666 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 18
	14.10.2017, 00:28 [ТС]	3
	В понимании самой задачи в принцие. Написании ее в среде lazarus. Не понимаю как в принципе тут построить код 0

@Андрюша666 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 18
	14.10.2017, 12:16 [ТС]	5
	Я думаю, что нужно, чтобы в начале выскакивало 2 формы - куда вводишь слова, а второе поле, то где выводится слово без повторяющихся букв Добавлено через 1 час 6 минут Этот код делит строку на слова, уже неплохо. Правда куда его вставлять я не имею понятия. Мне кажется это часть кода полной задачи 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	14.10.2017, 12:25	6
	Все эти строки будут теперь содержатся в Memo1.Lines Сообщение от Андрюша666 Мне кажется это часть кода полной задачи Ну конечно, не за Вас же весь код писать 1

@Андрюша666 0 / 0 / 0 Регистрация: 13.10.2017 Сообщений: 18
	14.10.2017, 18:27 [ТС]	7
	Спасибо, Джоуи. Но врядли я сумею написать весь код целиком 0

@D1973
	14.10.2017, 18:33 #8
	Не по теме: Сообщение от Андрюша666 врядли я сумею написать весь код целиком Андрюша666, а Вы хоть попробуйте сначала... 0

@Joey Джоуи 1081 / 643 / 240 Регистрация: 05.05.2015 Сообщений: 3,559 Записей в блоге: 2
	14.10.2017, 18:40	9
	Андрюша666, зачем Вам тогда решать эту задачу? Бросьте 0