Идентичность слов в процентном соотношении

@arsen1101995 · Регистрация: 07.03.2013

Как можно проверить два слова на идентичность?? на совпадение их символов, процентов на 60..?

Dragokas · 22.05.2013, 17:52

Visual Basic

option compare text
 
sub main()
  dim sl1 as string, sl2 as string, t as string
  sl1 = inputbox("Введите первое слово")
  sl2 = inputbox("Введите первое слово")
  t = sl2
  dim n as long, count as long
  for n = 1 to len (sl1)
    if instr(t, mid(sl1,n,1)) <> 0 then
      t = replace(t,mid(sl1,n,1),"",,1)
      count = count + 1
    end if
  next
  msgbox "Совпадение на " & count / len(sl1) * 100 & " %."
end sub

@arsen1101995 · 22.05.2013, 22:07 **[ТС]**

Спасибо, то что нужно)

@Pro_grammer · 22.05.2013, 22:49

Результат с начале озадачил, а потом дошло - слишком много цифр после запятой.

Думаю так будет лучше:

Visual Basic

1	MsgBox "Совпадение на " & Round(count / Len(sl1) * 100, 2) & " %."

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
		1
	Идентичность слов в процентном соотношении 22.05.2013, 14:58. Просмотров 1100. Ответов 3 Метки нет (Все метки) Как можно проверить два слова на идентичность?? на совпадение их символов, процентов на 60..? 0

@arsen1101995 0 / 0 / 0 Регистрация: 07.03.2013 Сообщений: 327
	22.05.2013, 22:07 [ТС]	3
	Спасибо, то что нужно) 0

Опции темы

Идентичность слов в процентном соотношении

Решение