Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 07.03.2013
Сообщений: 327
1

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

22.05.2013, 14:58. Просмотров 1100. Ответов 3
Метки нет (Все метки)

Как можно проверить два слова на идентичность?? на совпадение их символов, процентов на 60..?
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.05.2013, 14:58
Ответы с готовыми решениями:

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

Инициализация массива 0 и 1 в процентном соотношении
Доброго времени суток! Прошу помощи, самому ничего в голову не приходит, нагуглить ничего не...

Как отобразить в процентном соотношении
как подсчитать количество оценок определённого балла в процентном соотношении как на рисунке ? ...

Заполнить массив числами в процентном соотношении
Привет! Есть 3 числа: 1, 2 и 3. Они попадаются с разным шансом. 1 - 52.463% 2 - 31.417% 3 -...

3
Эксперт WindowsАвтор FAQ
17589 / 7432 / 884
Регистрация: 25.12.2011
Сообщений: 11,227
Записей в блоге: 16
22.05.2013, 17:52 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
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
2
0 / 0 / 0
Регистрация: 07.03.2013
Сообщений: 327
22.05.2013, 22:07  [ТС] 3
Спасибо, то что нужно)
0
Модератор
6660 / 2655 / 514
Регистрация: 24.04.2011
Сообщений: 4,933
Записей в блоге: 10
22.05.2013, 22:49 4
Результат с начале озадачил, а потом дошло - слишком много цифр после запятой.

Думаю так будет лучше:
Visual Basic
1
MsgBox "Совпадение на " & Round(count / Len(sl1) * 100, 2) & " %."
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.05.2013, 22:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как отразить результат выполнения плана по договору в процентном соотношении?
Ребята, доброго времени суток. Помогите, пожалуйста вспомнить: &quot;как отразить результат выполнения...

Найти ожидаемое количество серий (по признаку повтора одного цвета) в процентном соотношении
В урне белый шар и чёрный шар. Происходит опыт, заключающийся в вытаскивание одного из шаров наугад...

Сделать так, чтобы атомы в этой программе перемешивались в определённом процентном соотношении?
Доброе утро! Как сделать так, чтобы атомы в этой программе перемешивались в определённом...

Система тестирования качества образования в ВУЗе, с последующим выводом результатов в процентном соотношении
Добрый день! Нужна помощь. Нужно сделать что-бы после прохождения тестов результаты ответов...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.