0 / 0 / 0
Регистрация: 11.02.2016
Сообщений: 2
1

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

18.02.2016, 16:10. Показов 1703. Ответов 2
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
здравствуйте уважаемые прогеры! можно этот же код только на делфи?
PS:желательно на форме! заранее спасибо.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
18.02.2016, 16:10
Ответы с готовыми решениями:

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

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

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

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

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

Затем переключится на вторую букву и делать тоже самое.
Вернее тебе тогда двойной цикл уже нужен.
1
57 / 57 / 37
Регистрация: 11.05.2015
Сообщений: 196
19.02.2016, 07:16 3
Лучший ответ Сообщение было отмечено Askhat009 как решение

Решение

ну два цикла многовато, достаточно одного. Примерно так:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
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;
1
19.02.2016, 07:16
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.02.2016, 07:16
Помогаю со студенческими работами здесь

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

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

Для каждой буквы первого слова определить, входит ли она во второе слово
Даны два слова. Для каждой буквы первого слова (в том числе и для повторяющихся в этом слове букв)...

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


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru