Структура «Следование», вычисление объема и боковой поверхности усеченной пирамиды, страница 2

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

4) Блок-схема алгоритма.

5) Программа.

Private Sub Start_Click ()

Const pi=3.14159

Dim a As Double, h As Double, p1 As Double, p2 As Double, S1 As Double, S2 As Double, V As Double, S As Double

a=InputBox (“Введите значение апофемы”)

h=InputBox (“Введите значение высоты”)

p1=InputBox (“Введите значение периметра нижнего основания”)

p2=InputBox (“Введите значение периметра верхнего основания”)

S1=InputBox (“Введите значение площади верхнего основания”)

S2=InputBox (“Введите значение площади нижнего основания”)

V=(1/3)*h*(S1+S2+Sqr(S1*S2))

S=(1/2)*(p1+p2)*a

MsgBox “Объем усеченной пирамиды равен ” & Format (V, “0.00”) & VBNewLine & “Площадь боковой поверхности усеченной пирамиды ” & S

End Sub

6) Пример выполнения

Структура Следование

n = (Abs(a + 1) ^ (b + 1) + Exp ^ (-Cos(a) + Sqr(Abs(b)))) / ((Log(2) / Log(10)) * m) * 3.23 * 10 ^ (-3)

1 2