Можно ли из круглой заготовки радиуса r вырезать две прямоугольные пластинки с размерами a ´ b и c ´ d

Dim lines(1 To 4) As Double
 
Sub setLines(n As Integer, k As Double, l As Double)
    If k > l Then
       lines(n) = k
       lines(n + 1) = l
    Else
       lines(n) = l
       lines(n + 1) = k
    End If
End Sub
 
Sub main()
    Dim R As Double, a As Double, b As Double, c As Double, d As Double, x As Double, y As Double
    Dim ok As Boolean
    R = 1500
    a = 60
    b = 30
    c = 80
    d = 40
   ' Выбираем прямоугольник с большей стороной
    If ((a > c) And (a > d)) Or ((b > c) And (b > d)) Then
       Call setLines(1, a, b)
       Call setLines(3, c, d)
    Else
       Call setLines(3, a, b)
       Call setLines(1, c, d)
    End If
  
    If lines(1) >= 2 * R Then
       ok = False
    Else
      ' Берем самую длинную сторону и строим хорду
      x = Sqr(R ^ 2 - (lines(1) / 2) ^ 2)
      ' Вычитаем вторую сторону прямоугольника
      x = x - lines(2)
      ' К первому прямоугольнику прикладываем второй
      ' вычитаем меньшую сторону второго прямоугольника
      x = x - lines(4)
      ' Вычисляем длину хорды в этой точке
      ' если это возможно
      If Abs(x) > R Then
          ok = False
      Else
          y = Sqr(R ^ 2 - x ^ 2) * 2
         ' Второй прямоугольник поместится если хорда < стороны
          ok = lines(3) <= y
      End If
    End If
    If ok Then MsgBox "можно вырезать" Else MsgBox "нельзя вырезать"
End Sub
 
Private Sub Command1_Click()
    main
End Sub

Sub setLines(n As Integer, k As Double, l As Double)
    If k > l Then
       lines(n) = k
       lines(n + 1) = l
    Else
       lines(n) = l
       lines(n + 1) = k
    End If
End Sub
 
Sub main()
    Dim R As Double, a As Double, b As Double, c As Double, d As Double, x As Double, y As Double
    Dim ok As Boolean
    R = 1500
    a = 60
    b = 30
    c = 80
    d = 40
   ' Выбираем прямоугольник с большей стороной
    If ((a > c) And (a > d)) Or ((b > c) And (b > d)) Then
       Call setLines(1, a, b)
       Call setLines(3, c, d)
    Else
       Call setLines(3, a, b)
       Call setLines(1, c, d)
    End If

Sub SortLines(ByRef a() As Double)
    Dim i As Integer, j As Integer, t As Double
     For j = 1 To 4
        For i = 1 To 3
            If a(i) < a(i + 1) Then t = a(i): a(i) = a(i + 1): a(i + 1) = t
        Next i
     Next j
End Sub
Sub main()
    Dim lines(1 To 4) As Double, ok As Boolean, R As Double, x As Double, y As Double
    R = 100: lines(1) = 60: lines(2) = 30: lines(3) = 80: lines(4) = 40
    SortLines lines
    If lines(1) >= 2 * R Then
       ok = False
    Else
      x = Sqr(R ^ 2 - (lines(1) / 2) ^ 2) ' Берем самую длинную сторону и строим хорду
      x = x - lines(2)   ' Вычитаем вторую сторону прямоугольника
      x = x - lines(4)   ' К первому прямоугольнику прикладываем второй  ' вычитаем меньшую сторону второго прямоугольника
      If Abs(x) > R Then ' Вычисляем длину хорды в этой точке ' если это возможно
          ok = False
      Else
          y = Sqr(R ^ 2 - x ^ 2) * 2
          ok = lines(3) <= y    ' Второй прямоугольник поместится если хорда < стороны
      End If
    End If
    If ok Then MsgBox "можно вырезать" Else MsgBox "нельзя вырезать"
End Sub
Private Sub Command1_Click()
    main
End Sub

Private Sub Command1_Click()
R = Val(Text1.Text)
    a = Val(Text2.Text)
    b = Val(Text3.Text)
     Picture1.Cls
d = Sqr(a ^ 2 + b ^ 2)
z = 2 * R
If z >= d Then
Picture1.Print "Вырезать можно"
Else
Picture1.Print "Вырезать нельзя"
End If
End SubEnd Sub