Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
adizer
0 / 0 / 0
Регистрация: 28.12.2016
Сообщений: 1
#1

Проверить истинность высказывания: "Все цифры данного числа различны" - Visual Basic

28.12.2016, 19:02. Просмотров 193. Ответов 3
Метки нет (Все метки)

Дано трехзначное число. Проверить истинность высказывания: "Все цифры данного числа различны"
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 19:02     Проверить истинность высказывания: "Все цифры данного числа различны"
Посмотрите здесь:

Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом" - Visual Basic
Проверить истинность высказывания: «Данное целое число является нечетным трехзначным числом».

Проверить истинность высказывания: «Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти» - Visual Basic
Проверить истинность высказывания: «Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти». ...

Преобразовать все прописные латинские буквы в строчные, а цифры заменить символом "?" - Visual Basic
1. Создать проект, который позволяет преобразовать все прописные латинские буквы в строчные, а цифры заменить символом ?. 2. Дана строка,...

Дано натуральное число п. Проверить, будут ли все цифры числа различными. - Visual Basic
Дано натуральное число п. Проверить, будут ли все цифры числа различными.

Нужно заменить цифры на рисунок в игре "Пятнашки" - Visual Basic
У меня чтото с Basic'ом!!!Нужно заменить в игре "Пятнашки" цифры на рисунок но у меня все время какието ошибки!!!Кто нибуть сможет сделать...

Написать логическую функцию "Имеется ли в целом числе одинаковые цифры" - Visual Basic
Написать логическую функцию, отвечающую на вопрос: "Имеется ли в целом числе одинаковые цифры?". это должно быть в электроном...

Есть Range("A:Z"). Как проверить, пустой ли он? ... Чегой-то не получается.... - Visual Basic
Есть Range("A:Z") к примеру. Как проверить, все ли ячейки в нем пустые. Чегой-то не получается.... Спасибо.

Игра "Змейка": как проверить если она врезалась - Visual Basic
пишу игру типа змейка. она передвигается при наждатии на клавиши, нужно сделать проверку (если на ее пути стоит камень и она в него...

Проверить, верно ли утверждение: "Каждое из чисел А, В, С положительное" - Visual Basic
Даны три целых числа: А, В, С. Проверить, верно ли утверждение: " Каждое из чисел А, В, С положительное ".

Найти наибольшую и наименьшую цифры в записи данного натурального числа. - Visual Basic
Найти наибольшую и наименьшую цифры в записи данного натурального числа.

Создаю текстовый редактор не получается сделать "Выделить все" - Visual Basic
visual basic 6.0, подскажите как сделать в правке "Выделить все"

"Сожмите" массив, выбросив из него все определенные элементы - Visual Basic
Дан массив Color с количеством элементов 14, его значениями являются 8 цветов (синий, зелёный, голубой, красный, сиреневый, жёлтый,белый...


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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
891 / 1086 / 348
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
30.12.2016, 16:00     Проверить истинность высказывания: "Все цифры данного числа различны" #2
adizer
Это очень простая задача. Пусть дано число abc
тогда
a = abc \ 100
b = abc \ 10 MOD 10
c = abc MOD 10
вам остается только попарно сравнить эти цифры.
либо сравнить с нулем выражение (a-b)*(b-c)*(c-a)
Казанский
13144 / 5038 / 1209
Регистрация: 24.09.2011
Сообщений: 7,784
30.12.2016, 22:07     Проверить истинность высказывания: "Все цифры данного числа различны" #3
adizer, для произвольного числа в диапазоне Long (-2 млрд...+2 млрд)
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Sub Ad()
Dim i&, j&, d&, b(-9 To 9) As Boolean
  i = InputBox("Введите число", , Int(-1000000 + Rnd * 2000000))
  j = i
  Do While j
    d = j Mod 10
    If b(d) Then Exit Do Else b(d) = True
    j = j \ 10
  Loop
  MsgBox "В числе " & i & IIf(j, " есть", " нет") & " повт. цифр."
End Sub
Catstail
Модератор
22448 / 10853 / 1768
Регистрация: 12.02.2012
Сообщений: 17,971
31.12.2016, 10:24     Проверить истинность высказывания: "Все цифры данного числа различны" #4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function ChkNum(n as long) As boolean
   S$=Cstr(n)
   L%=len(S$)
   if L%>9 then '::: Принцип Дирихле
      ChkNum=False  
   else
      ChkNum=True
      for i%=1 to L%-1
          if Instr(mid$(S$,2),left$(S,1)) <> 0 then
            ChkNum=False
            Exit For
          Else
            S$=mid$(S$,2)
          End if
      Next i%
End Function
Yandex
Объявления
31.12.2016, 10:24     Проверить истинность высказывания: "Все цифры данного числа различны"
Ответ Создать тему
Опции темы

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