(VB)用 + 或 - 來取代”？”以得到給你的 k 值

Question

題目：
　　給你以下的式子，你可以用 + 或 - 來取代"？"以得到給你的 k 值。
？1？2？3......？n = k　例如：給你 k = 12，使用的式子將會是：-1+2+3+4+5+6-7=12
這個時候 n = 7。
輸入檔：第一列整數代表共有多少組測試資料。每組測試資料一列，含有 1 整數 k（0 <=│k│<=100000000）。
輸出檔：對每組測試資料輸出 n 。
data.txt
2
12
-3646397
result.txt
7
2701

執行時間不可超過10秒 ~ (^ ^

其他數據：
data.txt
6
100000000
-3646397
12
10
50
0
result.txt
14143
2701
7
4
11
3

Answer 1

來個投機的方法Private Sub Command1_Click()    Dim strInput As String    Dim i, cnt, Sign As Integer    Dim n, k As Long                '開輸入檔        Open "data.txt" For Input As #1                '開輸出檔        Open "Result.txt" For Output As #2                '讀入筆數        Line Input #1, strInput        cnt = Val(strInput)                For i = 1 To cnt            '讀入n            Line Input #1, strInput            n = Abs(Val(strInput))                        '概算1+...k值            'k(k+1)/2k(k+1)<2*n                        k = Sqr(n * 2)            '找出大於和且相差為偶數(因為正變負一定為偶數差)            Do While k * (k + 1) / 2 > n And (k * (k + 1) / 2 - n) Mod 2 > 0                k = k + 1            Loop                        Print #2, k        Next i        Close #1        Close #2

2006-11-23 14:11:27 補充：
Do Loop改為 if k=0 then k=1 Do until k*(k+1)/2>=n and (k*(k+1)/2-n) mod 2=0 k=k+1 Loop

Answer 2

不是不回,我是跟本就解不出來!!

Answer 3

怪了~這題居然到現在只有一個人回答 ＠＠
以晴～你的魅力變小了哦～～～
哈哈哈哈哈哈哈

Answer 4

抱歉,已修正如下.....
http://rapidshare.com/files/4330263/Twe.txt.html
要拉一個 listbox出來

2006-11-23 08:21:17 補充：
這是國外空間
下載教學
http://home.kimo.com.tw/junmanlu/rs.htm

PS:我的K沒辦法到100000000

2006-11-23 08:53:53 補充：
遞迴版:
http://rapidshare.com/files/4463551/Twe.txt.html

Answer 5

對~ N是未知的~~
輸入的時候只有輸入K值喔~

2006-11-22 11:28:01 補充：
輸入資料中有負數的話就必需要取絕對值~~
│k│=Abs(k)

2006-11-22 11:35:39 補充：
ff_f146
網址怎麼連到一個奇怪的地方...
(都是英文...看沒有懂 -0-)

2006-11-23 07:29:03 補充：
我的魅力真的...變小了 = =)?

Answer 6

ff_f146:
你看錯題目了,N是未知的...

2006-11-22 10:54:59 補充：
題目疑問：
既然 k（0 <=│k│<=100000000）。
那為何會有負數的輸入資料？

2006-11-23 01:47:06 補充：
解答出來了,原來是數學題