|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.01.2013, 10:30 | #1 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 4
|
кто сможет составить программу вычисления значения функции
составить программу вычисления значения функции z=(x1+x2)/(x2+y2), где x1,x2 - корни уравнения ax^2+bx+c=0 , y1, y2 - корни уравнения dy^2+ey+f=0
|
11.01.2013, 11:01 | #2 |
Старожил
Регистрация: 25.10.2011
Сообщений: 3,178
|
Для нахождения x2+y2 надо как-то уметь отличать x1 от x2, лично я не умею.
|
11.01.2013, 11:47 | #3 |
Форумчанин
Регистрация: 14.03.2012
Сообщений: 139
|
Если что-то просите, то просите подробнее
f это что? |
11.01.2013, 12:11 | #4 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 4
|
нужно код в visual basic прописать)
если бы понимал то конечно бы по подробней расписал.. |
11.01.2013, 12:42 | #5 |
Новичок
Джуниор
Регистрация: 10.01.2013
Сообщений: 4
|
Private Sub CommandButton1_Click()
Dim a, b, c, d, exp1, f As Single А = Cells(2, 1) b = Cells(2, 2) c = Cells(2, 3) d = Cells(2, 4) exp1 = Cells(2, 5) f = Cells(2, 6) m1 = b ^ 2 - 4 * a * c m2 = e ^ 2 - 4 * d * f If m1 < 0 Or (a = 0 And b = 0) Then ElseIf m2 < 0 Or (d = 0 And e = 0) Then ElseIf m1 + m2 >= 0 Then If a = 0 Then x1 = -c / b x2 = -c / b Else x1 = (-b + Sqr(m1)) / (2 * a) x2 = (-b - Sqr(m1)) / (2 * a) End If If d = 0 Then x1 = -f / exp1 x2 = -f / exp1 Else y1 = (-exp1 + Sqr(m2)) / (2 * d) y2 = (-exp1 - Sqr(m2)) / (2 * d) End If End If z = (x1 + y1) / (x2 + y2) MsgBox (z) End Sub |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Составить программу для вычисления значения функции. | марина9999 | Помощь студентам | 0 | 12.11.2012 20:01 |
Составить алгоритм и программу вычисления значения функции f(x) по ее разложению в ряд | megasvo | Помощь студентам | 12 | 16.06.2012 19:24 |
Составить программу для вычисления значения функции!!!! QBASIC | ната22 | Помощь студентам | 2 | 06.12.2011 17:06 |
паскаль - Составить программу вычисления функции y зависимости от значения t. | masha.m | Помощь студентам | 3 | 18.05.2010 16:03 |
2. Составить программу вычисления значения функции на Delphi | QuadroX | Помощь студентам | 4 | 22.09.2009 21:42 |