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

↑

▷ Содержание

⇐ ПредыдущаяСтр 3 из 3

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

Sub Pabota2()

Dim x As Double

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

Worksheets(2).Activate

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

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

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

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

Cells.Clear

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

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

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

Range("c4") = "t"

Range("d4") = "x"

Range("e4") = "y"

t = 0

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(t)

x = a * Cos(t) * Cos(t) + b * Cos(t)

y = a * Cos(t) * Sin(t) + b * Sin(t)

t = t + 0.3

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

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

Next i

End Sub

Пример с предусловным оператором цикла While… Wend

t = 0

i = 0

While t < 6.3

i = i + 1

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

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

x = a * Cos(t) * Cos(t) + b * Cos(t)

y = a * Cos(t) * Sin(t) + b * Sin(t)

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

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

t = t + 0.3

Wend

Sub Pabota2()

Dim x As Double

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

Worksheets(2).Activate

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

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

Worksheets("Лист2").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 = Cos(1 - a) / (1 - a ^ 2)

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

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

a = a + 0.35

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

Пример программного модуля для решения задачи построение графика функции следующего задания:

Function yy(x As Double) As Double

a = 4

b = 2

c = 1

If (x <= 0) Or (x >= 1) Then yy = (a + x ^ 2 / (a + x ^ 2) ^ (1 / 4))

If (x > 0) And (x < 1) Then yy = x * Sin(x) + b * Exp(-c * x)

End Function

Sub Pabota3()

Dim x As Double

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

Worksheets(3).Activate

a1 = InputBox("Введите начало отрезка a1 = ")

b1 = InputBox("Введите конец отрезка b1 = ")

n = InputBox("Введите количество интервалов  n=")

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

Cells.Clear

Range("d1") = "Построение графика функции"

Range("c2") = "График функции y = f(x) "

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

Range("d4") = " А = " & CSng(a1)

Range("d5") = " В = " & CSng(b1)

Range("d6") = "Количество интервалов n= " & CByte(n)

h = (b1 - a1) / n

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

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

Range("c9") = "x"

Range("d9") = "y"

x = a1

For i = 1 To n + 1

x = a1 + (i - 1) * h

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

Range(Cells(9 + i, 3), Cells(9 + i, 3)) = CSng(x)

Range(Cells(9 + i, 4), Cells(9 + i, 4)) = CSng(yy(x))

Next i

End Sub

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



Техника нижней прямой подачи мяча

Комплекс физических упражнений для развития мышц плечевого пояса

Стандарт Порядок надевания противочумного костюма

Общеразвивающие упражнения без предметов