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

@wuwoo · Регистрация: 25.06.2015

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

даны два слова.найдите только те символы слов, которые встречаются в обоих словах только один раз

@Catstail · 27.06.2015, 18:52

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Cmp(S1 As String, S2 As String) As String
  L1% = Len(S1)
  If L1% = 0 Then
     Cmp = ""
  Else
     a1$ = Left$(S1, 1)
     If L1% - Len(Replace$(S1, a1$, "")) = 1 And _
        Len(S2) - Len(Replace$(S2, a1$, "")) = 1 Then
        Cmp = a1$ & Cmp(Mid$(S1, 2), S2)
     Else
        Cmp = Cmp(Mid$(S1, 2), S2)
     End If
  End If
End Function
 
Sub Tets()
    Debug.Print Cmp("Пробка", "Роба")  ' печать "оба"
End Sub

Добавлено через 1 час 8 минут
Пардон, но это код для VB/VBA. Для QBasic его придется чуть подрихтовать. Но работать должен.

@Quiet Snow · 28.06.2015, 16:25

Для QBasic его придется чуть подрихтовать.

Да в QB\QBasic нету Replace$(), конкатенацию & меняем на +,
7-8 строку делаем в одну, т.к. нет поддержки разложения строки на несколько через _,
а также в первой строке убираем AS STRING в конце и ставим везде Cmp$ заместо Cmp.
Ещё убираем Debug. оставляя только PRINT.

echs · 19.05.2016, 11:29

Программа проверена

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
DECLARE FUNCTION Col! (a AS STRING, b AS STRING)
CLS
DIM a AS STRING
DIM b AS STRING
DIM c AS STRING
 
a = "CLOVO"
b = "SLAVA"
 
FOR i = 1 TO LEN(a)
   c = MID$(a, i, 1)
   IF Col(a, c) = 1 THEN
      IF Col(b, c) = 1 THEN PRINT c
   END IF
NEXT i
END
 
FUNCTION Col (a AS STRING, b AS STRING)
   FOR i = 1 TO LEN(a)
      IF b = MID$(a, i, 1) THEN k = k + 1
   NEXT i
   Col = k
END FUNCTION

Новые блоги и статьи Все статьи Все блоги /
Вопросы на собеседованиях по микросервисам ArchitectMsa 27.03.2025 Работодатели ищут не просто разработчиков, знающих базовые концепции, а специалистов, разбирающихся в тонкостях масштабирования, отказоустойчивости и производительности. Сейчас на первый план выходят. . .	Взаимодействие Python с REST API py-thonny 27.03.2025 REST API - это архитектурный стиль взаимодействия компонентов распределённого приложения в сети. Python располагает функциональным набором инструментов для работы с REST API и основная библиотека для. . .	sshd restrictions, ssh access limitations jigi33 26.03.2025 sshd restrictions \| ssh access limitations рестрикции доступа на сервер sshd статья: https:/ / www. golinuxcloud. com/ restrict-allow-ssh-certain-users-groups-rhel	Компиляция C++ с Clang API NullReferenced 24.03.2025 Компиляторы обычно воспринимаются как черные ящики, которые превращают исходный код в исполняемые файлы. Мы запускаем компилятор командой в терминале, и вуаля — получаем бинарник. Но что если нужно. . .	Многопоточное программирование в C#: Класс Thread UnmanagedCoder 24.03.2025 Когда запускается приложение на компьютере, операционная система создаёт для него процесс - виртуальное адресное пространство. В C# этот процесс изначально получает один поток выполнения — главный. . .
SwiftUI Data Flow: Передача данных между представлениями mobDevWorks 23.03.2025 При первом знакомстве со SwiftUI кажется, что фреймворк предлагает избыточное количество механизмов для передачи данных: @State, @Binding, @StateObject, @ObservedObject, @EnvironmentObject и другие. . . .	Моки в Java: Сравниваем Mockito, EasyMock, JMockit Javaican 23.03.2025 Как протестировать класс, который зависит от других сложных компонентов, таких как базы данных, веб-сервисы или другие классы, с которыми и так непросто работать в тестовом окружении? Для этого и. . .	Архитектурные паттерны микросервисов: ТОП-10 шаблонов ArchitectMsa 22.03.2025 Популярность микросервисной архитектуры объясняется множеством важных преимуществ. К примеру, она позволяет командам разработчиков работать независимо друг от друга, используя различные технологии и. . .	Оптимизация рендеринга в Unity: Сортировка миллиона спрайтов GameUnited 22.03.2025 Помните, когда наличие сотни спрайтов в игре приводило к существенному падению производительности? Время таких ограничений уходит в прошлое. Сегодня геймдев сталкивается с задачами совершенно иного. . .	Образование и практика Igor3D 21.03.2025 Добрый день А вот каково качество/ эффективность ВУЗовского образования? Аналитическая геометрия изучается в первом семестре и считается довольно легким курсом, что вполне справедливо. Ну хорошо,. . .

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

	Даны два слова. Найдите только те символы слов, которые встречаются в обоих словах только один раз 25.06.2015, 22:41. Показов 2178. Ответов 3 Метки нет (Все метки) даны два слова.найдите только те символы слов, которые встречаются в обоих словах только один раз 0

@Quiet Snow Кормпилятор 5039 / 1713 / 409 Регистрация: 25.04.2010 Сообщений: 4,820 Записей в блоге: 2
	28.06.2015, 16:25
	Для QBasic его придется чуть подрихтовать. Да в QB\QBasic нету Replace$(), конкатенацию & меняем на +, 7-8 строку делаем в одну, т.к. нет поддержки разложения строки на несколько через _, а также в первой строке убираем AS STRING в конце и ставим везде Cmp$ заместо Cmp. Ещё убираем Debug. оставляя только PRINT. 1

Опции темы

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

Решение