Сможет ли шар радиуса 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы