Определить диаметр d и длину l цилиндрической стальной цапфы вала - VB
Формулировка задачи:
Определить диаметр d и длину l цилиндрической стальной цапфы вала,
рассматривая цапфу как балку, заделанную концом. Нагрузка P на
квадратную единицу диаметрального сечения цапфы не должна
превышать 30кг/см2; допускаемое напряжение R=800кг/см; полная
величина давления на цапфу Q 20 =<(меньше или равно)Q =<(меньше или равно)27т с шагом 0,5т.
d=((32*(Q^2))/(3,14*R*P))^(1/4)
l=Q/d*P
Понятия не имею как приступить к этому безобразию!I need help!=(
Решение задачи: «Определить диаметр d и длину l цилиндрической стальной цапфы вала»
textual
Листинг программы
- Option Explicit
- Dim Q As Single, P As Integer, L As Single, R As Integer, D As Single
- Private Sub Command1_Click()
- R = 800 'допускаемое напряжение R=800кг/см
- P = 30 'Нагрузка P на квадратную единицу (кг/см2)
- For Q = 20 To 27 Step 0.5
- D = ((32 * (Q ^ 2)) / (3.14 * R * P)) ^ (1 / 4)
- L = Q / D * P
- Print D; L
- Next Q
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
