Исследовать изменение значений поверхности и объема шарового сегмента - VB
Формулировка задачи:
Ребят, всем привет, помогите с циклом, мне нужно разработать технологию, позволяющую исследовать изменение значений поверхности и объема шарового сегмента при изменении высоты шарового сегмента от начального значение h0 до конечного hк с шагом deltah и радиуса шара от начального значения R0 до конечного Rк с шагом delta R
Внешний и внутренний циклы - с предусловием
Для Отладки принять h0=50, hк=100, deltah=10, R0=60, Rк=70, deltaR=5
И вторую:
Разработать информационную технологию вычисления приближенного значения корня уравнения с точностью E. Начальное приближение к корню принять равным 0,6
x-(1-0,4x)^(1/2)=0
У меня есть похожая работа, я ее прикрепил
Решение задачи: «Исследовать изменение значений поверхности и объема шарового сегмента»
textual
Листинг программы
Private Sub Command1_Click() Dim S As Single, V As Single, mes As String Dim h As Single, h0 As Single, hk As Single, dh As Single Dim r As Single, r0 As Single, rk As Single, dr As Single Const PI As Single = 3.14 h0 = 50 hk = 100 dh = 10 r0 = 60 rk = 70 dr = 5 h = h0 Do While h <= hk r = r0 Do While r <= rk ''''''''''''''''''''' S = 2 * PI * r * h V = 2 * PI * h ^ 2 * (r - h / 3) '''''''''''''''''''''' mes = mes & "h = " & h & vbTab & "r = " & r & vbTab & "S = " & S & vbTab & "V = " & V & vbCrLf r = r + dr Loop h = h + dh Loop MsgBox mes End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д