Возвести числа в некоторую степень - VB
Формулировка задачи:
Даны три действительные числа. Возвести в квадрат те из них, значения которых неотрицательны, и в четвертую степень — отрицательные.
Буду очень признателен вам за помощь.Решение задачи: «Возвести числа в некоторую степень»
textual
Листинг программы
- 'Public a, b, c, x, y
- Private Sub Form_activate()
- Dim a#, b#, c# ', x, y
- a = InputBox("Введите a", "Ввод")
- Print "result#(" & a & ")=" & result#(a)
- b = InputBox("Введите b", "Ввод")
- Print "result#(" & b & ")=" & result#(b)
- c = InputBox("Введите c", "Ввод")
- Print "result#(" & c & ")=" & result#(c)
- End Sub
- Private Function result#(x#)
- result# = x# * x#
- If x <= 0 Then result# = result# * result#
- 'If x > 0 Then
- ' x = x ^ 2
- 'Else
- ' x = x ^ 4
- 'End If
- 'Print y; "="; x
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
