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

Visual Basic

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

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

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

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

Visual Basic "имитатор сигнала","имитатор помехи", "фильтр" и программу "построитель графика"
Visual Basic Указать для каждого вопроса проценты ответов "да", "нет", "не знаю"
Visual Basic Указать для каждого вопроса проценты ответов "да", "нет", "не знаю"
Visual Basic Создать тип "Book" и в нём сделать пункты "автор" и "количество страниц"
Visual Basic Проверить истинность высказывания: "Данное целое число является нечетным трехзначным числом"
Проверить истинность высказывания: «Данные числа x, y являются координатами точки, лежащей в первой или третьей координатной четверти» Visual Basic
Visual Basic Преобразовать все прописные латинские буквы в строчные, а цифры заменить символом "?"
Visual Basic Нужно заменить цифры на рисунок в игре "Пятнашки"
Как преобразовать рисунок из "png" в "bmp" или в "jpg"? Visual Basic
Создать раздел меню "Правка" и продумать логику команд "копировать", "вставить" Visual Basic
Дано натуральное число п. Проверить, будут ли все цифры числа различными. Visual Basic
Как в массиве "B", по сравнению с массивом "A", максимальное и минимальное числа переставить местами Visual Basic

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
echs
820 / 1015 / 347
Регистрация: 23.10.2013
Сообщений: 4,761
Записей в блоге: 4
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)
Казанский
13140 / 5034 / 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
Модератор
22142 / 10616 / 1728
Регистрация: 12.02.2012
Сообщений: 17,664
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     Проверить истинность высказывания: "Все цифры данного числа различны"
Ответ Создать тему
Опции темы

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