VBA. Процедура находящая решение

[Winterskrim]

VBA. Процедура находящая решение

По информатике дали задание написать процедуру, находящую решение: y=5 если x<0; y=20 если x=0; y=1 если x>5. Написать то я написал, но надо еще изобразить графически в виде блок схем, а тут я полный ноль:tehnari_ru_281: Помогиииите.

Private Sub yravnenie()
x = InputBox("x=", x)
If x < 0 Then
y1 = 5
MsgBox (y1)
ElseIf x = 0 Then
y2 = 20
MsgBox (y2)
ElseIf x > 5 Then
y3 = 1
MsgBox (y3)
End If
End Sub

И еще может кто знает как сделать вот это задание: Написать программу решения уравнения a*x^3+b*x=0 для любых a и b

тема перенесена - Модератор.

 

[AlexZir]

Написать программу решения уравнения a*x^3+b*x=0 для любых a и b

В данном уравнении будет 3 корня. Нужно заметить, что любые значения a,b могут привести к появлению комплексных корней, вычисление которых связано с некоторыми трудностями. Для исключения этой ситуации нужно наложить ограничения на коэффициенты, такие как а не равно 0, оба коэффициента различны по знаку.
Тогда решение может быть следующим (для уровня средней школы):
Приведем уравнение к произведению. x*(a*x^2+b)=0. Отсюда x1=0 или a*x^2+b=0, значит, x2=sqrt(-b/a), x3=-sqrt(-b/a). Вам остается только прописать диалог для ввода значений переменных a и b и проверить, чтобы введенные значения были различными по знаку и чтобы a было ненулевым.