Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
NiSTeR
0 / 0 / 0
Регистрация: 21.04.2015
Сообщений: 5
#1

Определить, имеется ли среди трех заданных хотя бы одна пара равных между собой чисел - VB

20.01.2016, 21:20. Просмотров 290. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачи
Даны три вещественных числа. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел.
http://www.cyberforum.ru/visual-basic/thread1203747.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
20.01.2016, 21:20
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, имеется ли среди трех заданных хотя бы одна пара равных между собой чисел (VB):

Определить, имеется ли среди них хотя бы одна пара равных между собой чисел
Вообще не поняла..:( Даны три вещественных числа a, b, c . Определить, имеется...

Даны три вещественных числа a,b,c. Определить, имеется ли среди них хотя бы одна пара равных между собой чисел
если надо какие то формулы: напишу

Данны три вещественных числа a,b,c.Определить имеется ли среди них хотя бы одна пара равных между собой чисел.
братцы составте программу полность:)

Есть ли среди трех чисел хотя бы одна пара равных между собой
Даны три действительных числа a, b з. Определить, есть ли среди них хотя бы...

Определить, имеется ли хотя бы одна пара равных между собой чисел
даны три вещественных числа а,в,с. Определить, имеется ли среди них хотя бы...

2
Shersh
Заблокирован
21.01.2016, 09:51 #2
Visual Basic
1
2
3
4
a=3'inputbox("a=?")
b=5
c=3
msgbox a=b or a=c or b=c
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
21.01.2016, 11:13 #3
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Вещественные числа вообще говоря напрямую не сравнивают
Но можно задать некоторое число epsilon (погрешность при сравнении)
И сравнивать не сами числа а модуль их разности. То есть ваш код будет выглядеть как-то так
Visual Basic
1
   If Abs(a-b) < epsilon Or Abs(b-c) < epsilon Or Abs(c-a) < epsilon Then Print "YES" Else Print "NO"
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.01.2016, 11:13
Привет! Вот еще темы с решениями:

Определить, имеется ли среди чисел хотя бы пара равных между собой
Помогите решить, Пожалуйста) 3.Даны 3 вещественных числа a,b,c. Определить,...

Определить, есть ли хотя бы одна пара равных между собой чисел
Даны три действительных числа a, b з. Определить, есть ли среди них хотя бы...

Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно противоположных чисел
2)Определить, имеется ли среди чисел а, b, с хотя бы одна пара взаимно...

Определить, имеется ли среди чисел a, b, c хотя бы одна пара взаимно противоположных чисел
Напишите пожалуйста вкратце хотя бы программу. Благодарю заранее


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

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

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