如何分蛋糕

excelvlookup

也许有P人，也许有Q人参加生日会（P，Q为输入值）
主人把蛋糕分成N份，无论是P人参会，还是Q人参会，每人都能分到相同份量的蛋糕，问：N的最小值。
千万别说N为P、Q的最小公倍数。这样问题就没意思的
举例说明：来的人为2人或3人，则蛋糕分成4份，分别1/3，1/3，1/6，1/6。
如来的是2人则每人1/3+1/6
如果来的是3人则
两人1/3，一人1/6+1/6

王守恩

我来凑个热闹，也不知道下面的分法是不是对。 N 的最小值是 (p+Q) 份。 假设 P>Q ， 具体分法： 先把蛋糕分成 P 份，再拿其中的 (P-Q) 份重新分成 Q 份。

补充内容 (2018-10-28 13:14):
错啦！N 最大值 (p + Q - 1) 份，N 最小值 (p + 0) 份，假设 P>Q 。 具体分2步：第1步，先把蛋糕分成 P 份。第2步，再拿其中 (P-Q) 份重新分成 Q 份。第2步最大是(Q - 1)份，最小是0份，具体得看(P - Q) 与Q的关系。

一把小刀闯天下

'掰一个，是否正确就不晓得了

Option Explicit

Const P = 2, Q = 3

Sub test()
  Dim i, a, b, k, sum, cnt, arr(), t
  If P < 1 Or Q < 1 Then MsgBox "!": Exit Sub
  a = P: b = Q
  If a > b Then k = a: a = b: b = k
  If a = b Or b Mod a = 0 Then
    If b Mod a = 0 Then
      ReDim arr(1 To b)
      For i = 1 To b: arr(i) = "1/" & b: Next
    Else
      If a = 1 Then
        ReDim arr(1 To 1): arr(1) = "1/1"
      Else
        ReDim arr(1 To a)
        For i = 1 To a: arr(i) = "1/" & a: Next
      End If
    End If
  Else
    ReDim Preserve arr(1 To a)
    For i = 1 To a
      cnt = cnt + 1: arr(cnt) = "1/" & b
    Next
    ReDim Preserve arr(1 To cnt + (b - a) * a)
    For i = 1 To (b - a) * a
      cnt = cnt + 1: arr(cnt) = "1/" & b * a
    Next
  End If
  Debug.Print Join(arr, ",")
End Sub

excelvlookup

一把小刀闯天下 发表于 2018-10-7 22:46
'掰一个，是否正确就不晓得了

Option Explicit

实际上没有对：
当p=2，q=5时，分为6份，分别1/5，1/5，1/5，1/5，1/10，1/10
2人时：每人1/5+1/5+1/10；5人时：四人1/5，一人1/10+1/10。
你分成了8份
当p=3，q=5时，分为7份，分别1/5，1/5，1/5，2/15，2/15，1/15，1/15
3人时：两人1/5+2/15，一人1/5+1/15+1/15；5人时：三人1/5，两人人1/15+2/15。
你分成了9份
具体如何算我也不知道，所以拿来讨论