作者x000032001 (誰家的狗噓老子文)
站內juniorhigh
標題Re: [問題] 一題數學
時間Mon Aug 31 21:50:53 2009
先說好 這下面是來亂的
不喜勿入喔= =
Private Sub Command1_Click()
For x = 9 To 100000
xxx = (x ^ 2 - 7 * x - 9) ^ 0.5
If xxx = Int(xxx) Then
Print xxx & vbCrLf & x
End If
Next
End Sub
得出 xxx=3 and x=9 或 xxx=21 and x=25 時有解
完畢
--
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.240.38.36
修簽名檔
※ 編輯: x000032001 來自: 123.240.38.36 (08/31 21:51)
1F：→ gj942l41l4:VB嗎= =?好久沒碰了...自從碰C以後...... 08/31 21:51
2F：→ banqhsia:我也有想過用程式碼來寫作業 XD 也想過寫程式給同學寫作 08/31 21:52
3F：→ banqhsia:業 他們一定會感謝我的 XDDD 08/31 21:52
4F：推 Hevak:你果然是學記概的 08/31 22:08
5F：→ Hevak: 計 08/31 22:08
6F：→ Hevak: 計 08/31 22:09
7F：推 banqhsia:亞所對二次沒對準.......XD 08/31 22:09
8F：推 yuhen0121: 妓 08/31 22:10
9F：推 zoko741235:樓上好糟糕 !!! 08/31 22:12
10F：推 j0958322080:3好像不合，這樣根號出來是虛數 09/01 17:18
11F：推 Y78:小心TLE 哈哈 09/01 20:42
12F：推 gj942l41l4:樓上專業XD 09/01 20:43