Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово

@Askhat009 · Регистрация: 11.02.2016

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

здравствуйте уважаемые прогеры! можно этот же код только на делфи?
PS:желательно на форме! заранее спасибо.

@NIKOLAYY · 19.02.2016, 01:36

Askhat009,
Тебе нужно взять первую букву и запустить цикл.
Гонять ее в цикле столько раз сколько букв во втором слове одновременно сравнивая значение этого символа.
Выводить куда нить результат.

Затем переключится на вторую букву и делать тоже самое.
Вернее тебе тогда двойной цикл уже нужен.

@Rasomaha · 19.02.2016, 07:16

ну два цикла многовато, достаточно одного. Примерно так:

Delphi

Function GetResult(First,Second: String): String;
var i: Byte;
  BufStr: String;
begin
Result:='';
For i:=1 to Length(First) do
  If Pos(First[i],BufStr)=0 then 
  begin
    If Pos(First[i],Second)<>0 then Result:=Result+'Yes ' else Result:=Result+'No ';
    BufStr:=BufStr+First[i];
  end;   
end;

@Askhat009 0 / 0 / 0 Регистрация: 11.02.2016 Сообщений: 2
		1
	Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово 18.02.2016, 16:10. Показов 1646. Ответов 2 Метки нет (Все метки) здравствуйте уважаемые прогеры! можно этот же код только на делфи? PS:желательно на форме! заранее спасибо. 0

@NIKOLAYY 841 / 736 / 342 Регистрация: 22.09.2012 Сообщений: 5,034
	19.02.2016, 01:36	2
	Askhat009, Тебе нужно взять первую букву и запустить цикл. Гонять ее в цикле столько раз сколько букв во втором слове одновременно сравнивая значение этого символа. Выводить куда нить результат. Затем переключится на вторую букву и делать тоже самое. Вернее тебе тогда двойной цикл уже нужен. 1

Опции темы

Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово

Решение