Сможет ли шар радиуса R пройти

@nastya26 · Регистрация: 02.06.2013

Author24 — интернет-сервис помощи студентам

Сможет ли шар радиуса R пройти в ромбообразное отверстие со стороной P и острым углом Q?

@The trick · 03.06.2013, 01:00

Visual Basic

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

@nastya26 · 03.06.2013, 08:53 **[ТС]**

Спасибо!!!

@nastya26 0 / 0 / 0 Регистрация: 02.06.2013 Сообщений: 12
		1
	Сможет ли шар радиуса R пройти 02.06.2013, 23:29. Показов 2004. Ответов 2 Метки нет (Все метки) Сможет ли шар радиуса R пройти в ромбообразное отверстие со стороной P и острым углом Q? 0

@nastya26 0 / 0 / 0 Регистрация: 02.06.2013 Сообщений: 12
	03.06.2013, 08:53 [ТС]	3
	Спасибо!!! 0

Сможет ли шар радиуса R пройти

Решение