Нужно разработать технологию - VB
Формулировка задачи:
Для вычисления площади и объема шарового сегмента, если задана высота шарового сегмента и радиус шара.
S=2piRH, V=piH^2(R-H/3)
HEEELP
Решение задачи: «Нужно разработать технологию»
textual
Листинг программы
Private Sub Command1_Click()
R = Val(InputBox("Вводим R ", , 10)) 'R = 10:
H = Val(InputBox("Вводим H ", , 2)) 'H = 3
pi = 4 * Atn(1)
S = Round(2 * pi * R * H, 2)
V = Round(pi * H ^ 2 * (R - H / 3), 3)
MsgBox "S=" & S & " ед. кв." & vbNewLine & "V=" & V & " ед. куб."
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д