Сможет ли шар радиуса 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д