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

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

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

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

@Catstail · 27.06.2015, 18:52

Visual Basic

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

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

@wuwoo 0 / 0 / 0 Регистрация: 25.06.2015 Сообщений: 1
		1
	Даны два слова. Найдите только те символы слов, которые встречаются в обоих словах только один раз 25.06.2015, 22:41. Показов 2006. Ответов 3 Метки нет (Все метки) даны два слова.найдите только те символы слов, которые встречаются в обоих словах только один раз 0

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

Опции темы

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

Решение