Пример программного модуля для решения корней квадратного уравнения

↑

▷ Содержание

⇐ ПредыдущаяСтр 2 из 3Следующая ⇒

Пример программного модуля для решения корней квадратного уравнения

Sub Pabota2()

Dim y As Double, i As Double, h As Double

Worksheets(1).Activate

prom = InputBox("Введите a=")

a = prom

prom = InputBox("Введите b=")

b = prom

prom = InputBox("Введите c=")

c = prom

Worksheets("Лист1").Activate

Cells.Clear

Range("d1") = "Вычисление корней квадратного уравнения"

Range("e3") = "Исходные данные"

Range("d4") = " a = " & CSng(a)

Range("d5") = " b = " & CSng(b)

Range("d6") = " c = " & CSng(c)

Range("b8") = "Результаты вычислений"

Range("a9") = "A"

Range("b9") = "B"

Range("c9") = "C"

Range("d9") = "Дискриминант"

d = (b * b - 4 * a * c)

Range("e9") = "X1"

Range("f9") = "X2"

Range("a10") = CSng(a)

Range("b10") = CSng(b)

Range("c10") = CSng(c)

Range("d10") = CSng(d)

If (d < 0) Then Range("d10") = "Нет решения"

If (d = 0) Then x1 = -b / (2 * a)

If (d > 0) Then

x1 = (-b - (d) ^ (1 / 2)) / (2 * a)

x2 = (-b + (d) ^ (1 / 2)) / (2 * a)

End if

Range("e10") = CSng(x1)

Range("f10") = CSng(x2)

End Sub

Пример программного модуля для решения данного примера

Sub Pabota1()

Dim x As Double

Dim y As Double, i As Double, h As Double

Worksheets(1).Activate

a = InputBox("Введите a=")

n = InputBox("Введите n=")

Worksheets("Лист1").Activate

Cells.Clear

Range("d1") = "Задание №№№"

Range("b3") = "Результаты вычислений"

Range("b4") = "№ п/п"

Range("c4") = "A"

Range("d4") = "B"

Range("e4") = "C"

Range("f4") = "D"

For i = 1 To n

Range(Cells(4 + i, 2), Cells(4 + i, 2)) = CSng(i)

Range(Cells(4 + i, 3), Cells(4 + i, 3)) = CSng(a)

b = (1 - a) * (1 - a ^ 2) / (1 - a ^ 1)

c = a * (1 + b ^ 1) / ((1 - a ^ 2) * b)

d = Sin(a) * b / (1 + c ^ 2)

a = a + 0.45

Range(Cells(4 + i, 4), Cells(4 + i, 4)) = CSng(b)

Range(Cells(4 + i, 5), Cells(4 + i, 5)) = CSng(c)

Range(Cells(4 + i, 6), Cells(4 + i, 6)) = CSng(d)

Next i

End Sub

Познавательные статьи:



Коммуникативные барьеры и пути их преодоления

Рынок недвижимости. Сущность недвижимости

Решение задач с использованием генеалогического метода

История происхождения и развития детской игры