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

Visual Basic

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

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

22.12.2016, 20:12. Просмотров 227. Ответов 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 Вводится последовательность чисел. Найти среднее арифметическое чисел, номера которых кратны 3.
Напечатать N первых чисел одномерного массива длиной М по 5 чисел в строке Visual Basic
Дана последовательность чисел А(20) в диапазоне от -10 до 10. Найти произведение всех нечетных чисел Visual Basic
Для двух последовательностей чисел определить множество чисел, которое встречается в обоих Visual Basic
Ввести одномерный массив из 12 чисел, в диапазоне от -50 до 50. Из них найти произведение чисел от 5-10 Visual Basic
Найдите количество натуральных чисел, не превосходящих n и не делящихся ни на одно из чисел 2, 3, 5 Visual Basic
Visual Basic Дана последовательность из 70 целых чисел. Определить, со скольких отрицательных чисел она начинается
Как в последовательности из m чисел найти наименьшее из всех положительных чисел Visual Basic
Visual Basic Определить сумму чисел, кратных 4, количество двузначных чисел, произведение отрицательных чисел
Расставить арифметические знаки между цифрами, чтобы выполнялось равенство Visual Basic
Возможно ли проверить равенство размерности массивов Visual Basic
Visual Basic Найти сумму всех отрицательных чисел в массиве случайных чисел

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
SoftIce
9782 / 3314 / 830
Регистрация: 27.07.2011
Сообщений: 7,880
Завершенные тесты: 1
22.12.2016, 20:27     Проверка сумммы чисел на равенство 10 #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
Сообщений: 7
22.12.2016, 21:02  [ТС]     Проверка сумммы чисел на равенство 10 #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
9782 / 3314 / 830
Регистрация: 27.07.2011
Сообщений: 7,880
Завершенные тесты: 1
23.12.2016, 07:10     Проверка сумммы чисел на равенство 10 #4
Цитата Сообщение от maximuus Посмотреть сообщение
получается там 2 числа надо ввести самому
Откуда это получается? Из задания? Тогда почему сразу задание нормально не написать, и не морочить людям голову?


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

Не по теме:

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

maximuus
0 / 0 / 0
Регистрация: 08.06.2016
Сообщений: 7
03.01.2017, 23:27  [ТС]     Проверка сумммы чисел на равенство 10 #6
SoftIce, числа вводимые с клавиатуры должны вставать в рандомное место
Yandex
Объявления
03.01.2017, 23:27     Проверка сумммы чисел на равенство 10
Ответ Создать тему
Опции темы

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