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 тема перенесена - Модератор. |
Цитата:
Тогда решение может быть следующим (для уровня средней школы): Приведем уравнение к произведению. x*(a*x^2+b)=0. Отсюда x1=0 или a*x^2+b=0, значит, x2=sqrt(-b/a), x3=-sqrt(-b/a). Вам остается только прописать диалог для ввода значений переменных a и b и проверить, чтобы введенные значения были различными по знаку и чтобы a было ненулевым. |
Часовой пояс GMT +4, время: 18:39. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.