Главная / Разработка алгоритмов / Расчёт объёма жидкости в ёмкости

Расчёт объёма жидкости в вертикальной цилиндрической ёмкости

Задание. Необходимо разработать алгоритм и программу для расчёта объёма жидкости в вертикальной цилиндрической ёмкости и полный объём самой ёмкости если известны следующие параметры: высота ёмкости, её радиус и уровень жидкости в ёмкости. Обозначим: s – площадь основания цилиндрической ёмкости, м²; r – радиус основания ёмкости, м; h – высота ёмкости, м; hж – уровень жидкости в ёмкости, %; v – полный объем ёмкости, м³.
Решение. Блок-схема алгоритма решения данной задачи представлена на рис. 1.

В соответствии с представленной блок-схемой алгоритма все операции выполняются последовательно, то есть данный алгоритм является линейным. Программа, реализующая этот алгоритм, запускается при нажатии кнопки управления, расположенной на первом листе книги Excel (Рис.2).

Рисунок 2

Интерфейс пользователя, с помощью которого будут отображаться входные и выходные данные, а также элементы управления, построим в данном случае на основе графической формы (рис.3).

Рисунок 3
Создайте процедуру для кнопки которая будет выполнять расчет объема цилиндрической емкости:

Private Sub CommandButton1_Click()
r = Val(TextBox1.Value)
h = Val(TextBox2.Value)
hж = Val(TextBox3.Value)
s = 3.14 * r ^ 2
v = s * h vж = (v * hж) / 100
TextBox4.Value = v
TextBox5.Value = vж
End Sub

Выполните отладку и компиляцию программы, перейдите на рабочий лист Excel и на панели инструментов "Элементы управления" отожмите кнопку "Режим конструктора". Проверьте программу в работе. Для этого на первом рабочем листе Excel нажмите кнопку «Ввод исходных данных». На графической форме (UserForm1) введите исходные данные (радиус ёмкости, высоту ёмкости и уровень жидкости в ёмкости). После нажатия кнопки «Рассчитать» в нижней части графической формы будут отображены результаты вычислений (рис. 4).



Рисунок 4

---