Возвести числа в некоторую степень - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.214 из 5
Похожие ответы