Re: [問題] 一題數學
先說好 這下面是來亂的
不喜勿入喔= =
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)
→
08/31 21:51, , 1F
08/31 21:51, 1F
→
08/31 21:52, , 2F
08/31 21:52, 2F
→
08/31 21:52, , 3F
08/31 21:52, 3F
推
08/31 22:08, , 4F
08/31 22:08, 4F
→
08/31 22:08, , 5F
08/31 22:08, 5F
→
08/31 22:09, , 6F
08/31 22:09, 6F
推
08/31 22:09, , 7F
08/31 22:09, 7F
推
08/31 22:10, , 8F
08/31 22:10, 8F
推
08/31 22:12, , 9F
08/31 22:12, 9F
推
09/01 17:18, , 10F
09/01 17:18, 10F
推
09/01 20:42, , 11F
09/01 20:42, 11F
推
09/01 20:43, , 12F
09/01 20:43, 12F
討論串 (同標題文章)