РГР и Лабы разных вариантов (РГР№2word)

Посмотреть архив целиком

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №2

Программирование алгоритмов разветвляющейся структуры.

1.Постановка задачи.

Составить алгоритм и программу для вычисления значения функции Z по одной из заданных формул при заданных значениях a, b, c, d.

Исходные данные ввести через окно ввода InputBox. Вычислить значения функции Z, а также порядковый номер формулы, при котором вычисляется значение Z через окно вывода MsgBox.



2.Математическая модель.

z = Exp(a * Sqr(b)) + a * b * (a ^ (1 / 3) / Cos(c))

z = a * b / 2 * Log(Abs(d - Cos(c)))

z = a * b * c * d * Cos(c)

z = a * b / d * Cos(c)



3.Создание формы.

























4.Блок-схема.







5.Прогграмный код.

Private Sub Command1_Click()

a = Val(InputBox("a=", "Ввод данных"))

b = Val(InputBox("b=", "Ввод данных"))

c = Val(InputBox("c=", "Ввод данных"))

d = Val(InputBox("d=", "Ввод данных"))

End Sub



Private Sub Command2_Click()

If a = b And d = c Then

f = 1

z = Exp(a * Sqr(b)) + a * b * (a ^ (1 / 3) / Cos(c))

End If

If a = b And d <> c Then

f = 2

z = a * b / 2 * Log(Abs(d - Cos(c)))

End If

If a <> b And d <> c Then

f = 3

z = a * b * c * d * Cos(c)

End If

If a <> b And d = c Then

f = 4

z = a * b / d * Cos(c)

End If

MsgBox "Расчет по формуле " + Str(f), vbOKOnly, "Результат"

MsgBox "Z= " + Str(z), vbOKOnly, "Результат"

End Sub

Private Sub Command3_Click()

End

End Sub




Случайные файлы

Файл
186003.doc
120832.doc
referat.doc
CBRR5490.DOC
22811-1.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.