Найти объем конуса - VB
Формулировка задачи:
может кто поможет? Составить программу для решения математической задачи на vb6.0, используя линейный алгоритм. Подобрать самостоятельно три тестовых примера для допустимых значений входных параметров.
15. Найти объем конуса, имеющего радиус основания R = 2,05м и угол наклона образующей к плоскости основания φ = 70°20'. Написать универсальную программу, решающую задачу для произвольных значений указанных параметров.
Решение задачи: «Найти объем конуса»
textual
Листинг программы
Dim R As Single, h As Single, fi As Single, V As Single
R = InputBox("R")
fi = InputBox("Angle fi")
fi = fi / 57.295779513
h = R * Tan(fi)
V = (h / 3) * 3.1415926 * (R ^ 2)
MsgBox ("V = " & V)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д