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

Visual Basic

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

Проверка сумммы чисел на равенство 10 - Visual Basic

22.12.2016, 20:12. Просмотров 263. Ответов 5
Метки нет (Все метки)

Помогите доделать программу.
Надо чтобы проверяло сумму 3 соседних чисел, если их сумма будет ровна 10, чтоб выбивало на экран "Есть", а если нету, то чтоб выбивало "Нету"
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
Dim mas(1 To 10) As Byte
Dim i, sum As Byte
Randomize
 
 
mas(1) = InputBox("Введите первое число: ", , 0)
mas(2) = InputBox("Введите второе число: ", , 0)
Print mas(1); mas(2);
 
For i = 3 To 10
mas(i) = Int((6 * Rnd) + 1)
Print mas(i);
Next i
 
End Sub
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.12.2016, 20:12
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Проверка сумммы чисел на равенство 10 (Visual Basic):

Проверка чисел на равенство - Turbo Pascal
Как в данной программе сделать так, чтобы при проверке на одинаковые цифры выводилось не тру и flase, а например, одинаковые или не...

Вычисление сумммы и среднего арифметичесского чисел - Pascal
Нужно написать программу которая будет вычислять сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с...

Проверка треугольников на равенство - VBA
Задание: два треугольника заданы своими сторонами a1, b1, c1 и a2, b2, c2. Написать программу, осуществляющую проверку этих треугольников...

Проверка на равенство с точностью Е - Turbo Pascal
Задача: Заданы координаты 2 точек. Определить, расположены ли они на одной окружности с центром в начале координат. Результат присвоить...

Проверка векторов на равенство - C#
Даны 2 вектора. Например (1 2 3) и (1 2 3).. Нужен код который проверяет их на равенство,если равны то хорошо,а если нет то...

Очереди, проверка на равенство - Free Pascal
Проверить на равенство две очередиuses crt; type exo = ^ o; o = record data: string; next: exo; ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
SoftIce
9982 / 3514 / 902
Регистрация: 27.07.2011
Сообщений: 8,376
Завершенные тесты: 1
22.12.2016, 20:27 #2
А зачем запрашивать первое и второе число?

Добавлено через 5 минут
Такой вариант
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Command1_Click()
    Dim mas(1 To 10) As Byte, i As Integer, j As Integer, sum As Byte
    AutoRedraw = True
    Randomize
    Cls
    For i = 1 To 10
         mas(i) = Int((6 * Rnd) + 1)
         Print mas(i);
    Next i
    Print
    For i = 2 To 9
         sum = 0
         For j = 1 To 3
             sum = sum + mas(i + j - 2)
         Next j
         If sum = 10 Then Print "Есть", mas(i - 1), mas(i), mas(i + 1): Exit Sub
    Next i
    Print "Нету"
End Sub
maximuus
0 / 0 / 0
Регистрация: 08.06.2016
Сообщений: 10
22.12.2016, 21:02  [ТС] #3
SoftIce, получается там 2 числа надо ввести самому, а остальные 7 должно зарандомить и должна проверить есть ли 3 соседних равные 10. Только там надо ещё сделать так, чтоб числа которые вводятся с клавиатуры в разные места вставали, а ни подряд и не были больше 6

Добавлено через 10 минут
SoftIce, получается там 2 числа надо ввести самому, а остальные 7 должно зарандомить и должна проверить есть ли 3 соседних равные 10. ВоотSoftIce,
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click()
    Dim mas(1 To 10) As Byte, i As Integer, j As Integer, sum As Byte
    AutoRedraw = True
    Randomize
    Cls
    mas(1) = InputBox("Введите первое число: ", , 3)
    mas(2) = InputBox("Введите второе число: ", , 2)
    Print mas(1); mas(2);
    For i = 3 To 10
         mas(i) = Int((6 * Rnd) + 1)
         Print mas(i);
    Next i
    Print
    For i = 2 To 9
         sum = 0
         For j = 1 To 3
             sum = sum + mas(i + j - 2)
         Next j
         If sum = 10 Then Print "Есть", mas(i - 1), mas(i), mas(i + 1): Exit Sub
    Next i
    Print "Нету"
End Sub
Как сделать чтоб 2 этих числа, вводимые с клавиатуры, становились в разных места, а ни в первый и второй номер

Добавлено через 17 минут
ой, там не 7, а 8 должно зарандомить
SoftIce
9982 / 3514 / 902
Регистрация: 27.07.2011
Сообщений: 8,376
Завершенные тесты: 1
23.12.2016, 07:10 #4
Цитата Сообщение от maximuus Посмотреть сообщение
получается там 2 числа надо ввести самому
Откуда это получается? Из задания? Тогда почему сразу задание нормально не написать, и не морочить людям голову?


Цитата Сообщение от maximuus Посмотреть сообщение
чтоб числа которые вводятся с клавиатуры в разные места встава
В какие "разные" ? Тоже случайные? Или их места должен задавать пользователь?
Казанский
23.12.2016, 14:23
  #5

Не по теме:

Может тема на самом деле "Проверка сумммы чисел на равенство IQ"

maximuus
0 / 0 / 0
Регистрация: 08.06.2016
Сообщений: 10
03.01.2017, 23:27  [ТС] #6
SoftIce, числа вводимые с клавиатуры должны вставать в рандомное место
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.01.2017, 23:27
Привет! Вот еще темы с ответами:

Проверка на равенство строк - C++
Всем привет! Есть абстрактный класс Transport и классы наследники: Train, Plane, Ship. есть метод. принимает параметр type(Значения: all,...

Проверка на равенство значений - Prolog
Извините, спрошу: А почему в Прологе 2+2=2*2 ответ нет, а 2+2=:=2*2 ответ верно? Правильно ли я рассуждаю, что оператор = в первом случае...

Проверка тождества на равенство - Логика и множества
Здравствуйте. Прошу помощи нужно проверить правильность тождества, НЕ используя круги Эйлера. Задание такое: Исходя из определений...

Проверка множеств на равенство - Turbo Pascal
Опишите множества M1(1,2) и M2(2,1). Сравните их на равенство. program zadacha1; uses crt; const M1=; M2=; begin clrscr; if...


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

Или воспользуйтесь поиском по форуму:
Yandex
Объявления
03.01.2017, 23:27
Ответ Создать тему
Опции темы

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