Замена условного оператора одной большой формулой - VB
Формулировка задачи:
На вход подаётся число и четыре вида преобразования, выглядит это так:
Если введено 0 - умножить число на 1.5
Если введено 1 - умножить на 1
На вывод программа должна выдать сумму всех четырёх преобразований входного числа.
Пример работы:
Ввод:
2
1
1
0
1
Вывод: 9
А теперь самое интересное, нельзя использовать условные операторы, никаких. Только линейный алгоритм.
Есть какие-нибудь идеи?
Решение задачи: «Замена условного оператора одной большой формулой»
textual
Листинг программы
- Private Sub Command1_Click()
- Dim a As Long, b() As Variant, x As Long, i as Long
- a = 2
- b = Array(1, 1, 0, 1)
- For i = 0 To UBound(b)
- x = x + a * (1.5 - 0.5 * b(i))
- Next i
- Debug.Print x
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
