20.05.2010, 20:16 | #1 (permalink) |
Экономист
Регистрация: 22.05.2009
Сообщений: 1,812
Сказал(а) спасибо: 1
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 2936
|
VBA. Процедура находящая решение
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 тема перенесена - Модератор. Последний раз редактировалось Eli; 20.05.2010 в 20:19 |
20.05.2010, 20:16 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Решение проблемы может скрываться в одной из этих тем Процедура удаления пробелов в строке Процедура, Паскаль Решение задачи. Паскаль Решение задания по С#, исправьте, что не так. |
21.05.2010, 15:56 | #2 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
Тогда решение может быть следующим (для уровня средней школы): Приведем уравнение к произведению. x*(a*x^2+b)=0. Отсюда x1=0 или a*x^2+b=0, значит, x2=sqrt(-b/a), x3=-sqrt(-b/a). Вам остается только прописать диалог для ввода значений переменных a и b и проверить, чтобы введенные значения были различными по знаку и чтобы a было ненулевым.
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|