Сможет ли шар радиуса R пройти - VB
Формулировка задачи:
Сможет ли шар радиуса R пройти в ромбообразное отверстие со стороной P и острым углом Q?
Решение задачи: «Сможет ли шар радиуса R пройти»
textual
Листинг программы
- Option Explicit
- Private Sub Form_Load()
- Dim D As Double
- Dim R As Double, P As Double, Q As Double
- R = 10
- P = 20
- Q = 30
- Q = Q / 180 * 3.14159265358979 ' Переводим угол в радианы
- D = 2 * P * Sin(Q / 2) ' Малая диагональ
- If R < D Then MsgBox "Может" Else MsgBox "Не может"
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
