求无理平方根连分数表示法的循环节的程序

ysr

代码如下：

Private Sub Command1_Click()
Dim d, a0, r
d = Val(Text1)
a0 = Int(Sqr(d))
a1 = a0
r = Sqr(d)
s = a0
Do Until a1 = 2 * a0
s1 = s1 + 1
r = 1 / (r - a1)
a1 = Int(r)
s = s & "/" & a1
Loop

Text2 = s

End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

举例：输入22，输出：4/1/2/4/2/1/8

输入31，输出：5/1/1/3/5/3/1/1/10

ysr

输入：45，输出：6/1/2/2/2/1/12
输入：97，输出：9/1/5/1/1/1/1/1/1/5/1/18

ysr

Private Sub Command1_Click()
'求无理平方根连分数表示法的循环节的程序
Dim d, a0, r
d = Val(Text1)
a0 = Int(Sqr(d))
a1 = a0
r = Sqr(d)
s = a0
Do Until a1 = 2 * a0
s1 = s1 + 1
r = 1 / (r - a1)
a1 = Int(r)
s = s & "/" & a1
Loop

Text2 = "循环节长度 " & s1 & " 循环节  " & s
End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""

End Sub

ysr

输入：45，输出：循环节长度 6 循环节  6/1/2/2/2/1/12
输入：97，循环节长度 11 循环节  9/1/5/1/1/1/1/1/1/5/1/18

ysr

输入997，输出：循环节长度 13 循环节  31/1/1/2/1/4/1/1/4/1/2/1/1/62
输入1001，输出：循环节长度 14 循环节  31/1/1/1/3/3/2/4/2/3/3/1/1/1/62

ysr

输入163，输出：循环节长度 533 循环节  12/1/3/3/2/1/1/7/1/11/1/7/1/1/2/3/3/1/17/3/1/42/1/5/14/1/10/1/1/1/5/1/1/17/2/16/2/3/7/1/10/1/1/2/4/1/4/1/7/1/2/5/1/8/3/1/5/1/11/2/1/19/1/7/4/2/3/8/2/1/2/4/1/4/3/2/1/2/37/2/1/2/3/1/2/3/4/6/5/1/2/2/1/3/1/1/2/1/2/1/4/2/1/3/1/7/6/1/4/7/2/2/1/3/1/65/6/1/7/1/2/4/1/1/10/2/1/6/1/3/1/1/3/3/1/5/1/4/83/1/1/7/1/28/1/2/7/2/1/1/4/8/3/1/1/1/1/4/1/4/1/1/2/2/1/8/1/2/1/3/4/1/7/1/1/1/6/12/1/2/1/2/1/1/3/1/3/3/2/1/11/1/4/1/31/1/8/1/2/1/7/5/6/2/1/3/2/1/2/1/1/77/1/14/1/16/1/2/1/2/5/1/4/5/1/48/1/14/1/20/1/1/1/1/2/7/1/1/1/2/1/1/2/63/1/1/1/3/8/2/1/1/1/39/2/2/2/1/3/1/73/1/35/2/1/1/1/2/2078/3/1/…………

输入139，输出：循环节长度 393 循环节  11/1/3/1/3/7/1/1/2/11/2/1/1/7/3/1/3/1/12/2/3/1/2/1/9/1/4/2/3/1/15/5/1/2/8/1/2/1/3/7/3/1/1/1/1/3/1/9/1/2/1/6/1/1/1/2/2/5/1/4/1/3/1/2/25/1/10/15/2/1/238/1/1/1/2/2/152/2/1/1/3/17/1/1/1/1/2/3/3/330/2/15/1/1/45/1/2/2/62/2/10/1/1/19/1/3/16/2/1/2/4/1/1/9/1/24/3/14/5/1/1/1/113/1/1/36/1/2/1/1/1/3/2/5/1/5/2/7/1/2/1/1/11/2/93/5/2/29/1/6/1/10/1/1/1/32/9/14/1/3/281/1/2/2/2/29/1/1/1/1/2/6/2/3/48/1/1/6/1/5/1/1/1/1/11/3/2/4/7/1/2/3/2/1/18/3/1/2/1/1/39/11/1/1/2/16/1/881/4

ysr

输入394，输出：循环节长度 947 循环节  19/1/5/1/1/1/3/1/3/5/2/2/5/3/1/3/1/1/1/6/18/22/3/3/2/4/3/1/40/2/1/2/1/1/1/3/1/2/9/1/3/17/1/31/1/2/6/1/43/1/8/1/5/1/1/1/1/4/4/5/9/1/1/1/1/2/3/4/2/1/4/15/1/5/13/1/1/2/2/1/1/4/39/1/3/13/6/2/17/2/1/3/1/22/2/1/2/2/3/2/1/1/2/2/1/1/20/2/1/20/17/1/36/208/3/8/1/2/2/2/2/1/2/9/6/1/1/4/3/10/1/1/16/2/270/5/2/3/76/1/6/1/6/1/1/59/1/3/1/1/5/1/6/40/5/1/2/79/1/2/1/7/1/1/2/1/1/3/3/1/7/1/15/2/4/3/11/4/1/1/2/2/1/2/17/1/2/1/1/2/1/1/3/6/2/1/5/4/2/91/1/4/2/1/1/1/1/1/1/7/1/2/2/4/1/4/1/2/1/1/36/1/18/1/22/1/1/2/1/6/3/2/1/3/1/1/2/2/2/1/15/1/3/2/3/1/1/2/1/4/208/1/4/1/1/11/3/3/9/2/1/12/1/3/1/20/1/3/1/2/1/19/1/1/3/6/2/1/2/3/1/1/2/28/1/4/2/5/4/1/123/3/8/5/1/1/1/1/1/9/2/1/5/2/2/4/8/4/5/1/2/16/3/1/2/2/2/1/3/5/2/4/1/10/1/1/7/2/19/1/2/79/1/1/9/17/1/2/1/3/1/3/24/33/1/2/1/1/3/2/2/2/2/1/11/5/3/4/3/50/1/7/1/3/1414/4/1/3/6/3/1/1/1/7/3/2/8/1/2/8/2/1/30/2/1/3/1/2/1/44/8/24/5/1/4/4/21/14/4/5/3/3/2/2/3/1/1/1/5/4/1/1/1/1/3/1/1/51/4/2/3/3/8/1/8/2/1/2/1/9/4/4/2/18/2/5/3/1/1/1/1/3/2/5/2/10/19/16/1/12/2/1/3/76/1/1/3/1/15/1/4/1/3/2/3/2/14/1/3/1/1/17/2/1/2/55/3/65/6/3/2/1/184/2/3/1/4/3/15/1/1/5/1/1/33/5/8/4/1/4/186/1/3/1/1/2/3/8/1/41/1/3/1/2/1/1/3/4/2/3/35/2/1/2/1/1/1/6/1/4/1/2/2/5/1/5/1/1/110/1/7/1/2/2/5/1/4/4/3/6/2/11/8/1/23/1/2/2/30/2/2/12/1/1/1/3/1/3/6/1/1/2/6/1/5/1/2/1/55/2/1/4/3/1/3/5/15/4/1/27/2/46/2/7/1/1/7/66/4/1/1/7/1/2/133/1/5/1/3/1/4/2/1/3/1/23/1/6/2/10/13/9/15/2/1/14/2/3/2/13/3/6/2/1/6/1/1/4161/…………

ysr

394=19*19+33
20*20+33=433
22*22+33=517
23*23+33=562

ysr

输入433，输出：循环节长度 1076 循环节  20/1/4/4/2/2/1/3/13/1/1/1/1/13/3/1/2/1/1/19/1/1/2/1/1/1/4/3/1/4/95/…………
输入517，输出：循环节长度 4117 循环节  22/1/2/1/4/3/3/2/10/1/14/4/14/1/12/1/2/5/17/1/15/3/4/1/1/1/8/1/2/1/4/…………
输入562，输出：循环节长度 1378 循环节  23/1/2/2/2/4/1/5/1/22/1/5/1/4/2/2/2/1/5/5/6/1/4/4/1/47/1/1/1/2/4/1/1/…………
输入709，输出：循环节长度 1201 循环节  26/1/1/1/2/7/4/3/3/4/7/2/1/1/1/51/8/5/1/2/2/5/1/1/1/1/3/5/7/1/64/3/4/…………

ysr

21*21+33=474
输入474，输出：循环节长度 14 循环节  21/1/3/2/1/1/1/6/1/1/1/2/3/1/42
24*24+33=609
输入609，输出：循环节长度 12 循环节  24/1/2/9/1/1/6/1/1/9/2/1/48
25*25+33=658
输入：658，输出：循环节长度 8 循环节  25/1/1/1/6/1/1/1/50
27*27+33=762
输入762，输出：循环节长度 10 循环节  27/1/1/1/1/8/1/1/1/1/54