17 / 17 / 1
Регистрация: 20.03.2013
Сообщений: 66
1

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

26.03.2013, 14:04. Показов 686. Ответов 1
Метки нет (Все метки)

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

Вот код задачи, но он выводит повторяющиеся буквы первого слова.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var
   first, second: string;
   chars: set of char;
   i: integer;
 
begin
   write('Input first word: ');
   readln(first);
   write('Input second word: ');
   readln(second);
 
   for i:= 1 to length(second) do
      chars := chars + [second[i]];
 
   for i:= 1 to length(first) do
      if (first[i] in chars) then
         write('yes ')
      else
         write('no ');
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.03.2013, 14:04
Ответы с готовыми решениями:

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

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

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

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

1
142 / 148 / 116
Регистрация: 15.11.2012
Сообщений: 537
Записей в блоге: 2
26.03.2013, 16:53 2
навроде бы так
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
   first, second: string;
   chars,chars2: set of char;
   i: integer;
 
begin
   write('Input first word: ');
   readln(first);
   write('Input second word: ');
   readln(second);
 
   for i:= 1 to length(second) do
      chars := chars + [second[i]];
 
   for i:= 1 to length(first) do
      if (first[i] in chars)and(Not(first[i] in chars2)) then Begin
    write('yes ');
    chars2:=chars2+[first[i]];
      end else if (Not(first[i] in chars))and(Not(first[i] in chars2)) Then write('no ')
      else continue;
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.03.2013, 16:53
Помогаю со студенческими работами здесь

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

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

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

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


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

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

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