С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
ProDen
1 / 1 / 0
Регистрация: 02.12.2011
Сообщений: 30
1

Вычисление суммы и решение квадратного уравнения на VBA

08.10.2013, 14:10. Просмотров 1251. Ответов 1
Метки нет (Все метки)

Прошу помощи, чтобы сделали, или хотя бы начать помогли задания в прикреплении. Заранее спасибо.
0
Миниатюры
Вычисление суммы и решение квадратного уравнения на VBA  
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2013, 14:10
Ответы с готовыми решениями:

Вычисление квадратного уравнения
Можно ли упростить эту программу для вычеслени квадратного уравнения: Private Sub...

Решение квадратного уравнения
Составьте программу на языке VBA для решения квадратного уравнения a *x^2 +b*x + =0 Программа...

Решение квадратного уравнения
Нужно написать программу, которая решает квадратное уравнение. Вроде бы элементарно, но что-то не...

Решение квадратного уравнения
Здравствуйте у меня проблемма помогите если кто может... Мне нужно решить простенькую задачу по...

Решение квадратного уравнения Visual Basic в Microsoft Excel
Помогите написать программу для решения квадратного уравнения с проверкой дискриминанта в VB...

1
Аксима
5848 / 1268 / 189
Регистрация: 12.12.2012
Сообщений: 991
08.10.2013, 16:02 2
Здравствуйте, ProDen,
Вот решение первой задачи из прикрепленного рисунка (надеюсь, что верно понял задание).

Кликните здесь для просмотра всего текста
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
'ÏðîöåäóðГ*, êîòîðГ*Гї Г§Г*Г*îñèò Гў ïåðåìåГ*Г*ûå x1 ГЁ x2 êîðГ*ГЁ ГЄГўГ*äðГ*ГІГ*îãî ГіГ°Г*ГўГ*ГҐГ*ГЁГї,
'Г§Г*Г¤Г*Г*Г*îãî ñâîèìè êîýôôèöèåГ*ГІГ*ìè a, b ГЁ c.
Sub GetRoots(ByVal a As Double, ByVal b As Double, ByVal c As Double, _
    ByRef x1 As Double, ByRef x2 As Double)
    Dim D As Double
    D = b * b - 4 * a * c
    x1 = (-b - Sqr(D)) / 2 / a
    x2 = (-b + Sqr(D)) / 2 / a
End Sub
'ÏðîöåäóðГ* âûâîäГ* Г*Г* ëèñò êîðГ*ГҐГ© ГЄГўГ*äðГ*ГІГ*îãî ГіГ°Г*ГўГ*ГҐГ*ГЁГї ax + bx - 2
'ïðè èçìåГ*ГҐГ*ГЁГЁ ГЇГ*Г°Г*ìåòðГ* a îò 2 äî 5 Г± ГёГ*ãîì 0.5
'ГЁ èçìåГ*ГҐГ*ГЁГЁ ГЇГ*Г°Г*ìåòðГ* b îò -1 äî 1 Г± ГёГ*ãîì 0.25.
Sub TableOfRoots()
    Dim i As Long, j As Long, x1 As Double, x2 As Double
    Dim answer(6, 8) As String, a(6, 0) As Double, b(8) As Double
    For i = 0 To 6
        a(i, 0) = i * 0.5 + 2
    Next i
    For i = 0 To 8
        b(i) = i * 0.25 - 1
    Next i
    For i = 0 To 6
        For j = 0 To 8
            GetRoots a(i, 0), b(j), -2, x1, x2
            answer(i, j) = "ÊîðГ*ГЁ: " & Format(x1, "0.00") & " ГЁ " & Format(x2, "0.00")
        Next j
    Next i
    Cells.Delete
    Cells.Interior.Color = vbWhite
    With Cells(2, 2)
        .Value = "b"
        .Offset(1) = "a"
        .HorizontalAlignment = xlRight
        .Parent.Shapes.AddLine(.Left, .Top, .Offset(2, 1).Left, .Offset(2, 1).Top).Line.ForeColor.RGB = 0
        .Offset(, 1).Resize(, 9) = b
        For i = 1 To 9
            With .Offset(, i).Resize(2)
                .HorizontalAlignment = xlCenter
                .Merge
            End With
        Next i
        .Offset(2).Resize(7) = a
        .Offset(2, 1).Resize(7, 9) = answer
        .Resize(9, 10).Borders.LineStyle = xlContinuous
        .Borders(xlEdgeBottom).LineStyle = xlNone
        .Resize(, 10).EntireColumn.AutoFit
    End With
    Columns(1).ColumnWidth = 4
End Sub


С уважением,
Aksima
2
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
08.10.2013, 16:02

Вычисление суммы VBA
Даны значения n и m( ввести через окно ввода) Вычислить: B=\sum_{k=1}^{n}\sum_{j=1}^{m}\left(k + j...

Вычисление суммы по диапазону в VBA
Есть ли в Vba функция суммы по диапазону.Диапазон вычисляется в программе.На листе функцию задать...

Решение линейного уравнения в VBA
Вычислить значение f(x) f(x)=a2b-xba2+xb x=a2+a2b b=a2 -6c c = 4a-2 значение a - задать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru