→ Berger927:同生日嗎 XD? 01/23 15:28
→ Berger927:And 你去哪邊找到basic軟體的押，真是神奇～ XD？ 01/23 15:31
※ 引述《sam927 ()》之銘言：
: 標題: 請問高手們
: 時間: Mon Jan 22 14:56:52 2007
: 小弟不才,不熟basic語言,想請教各位一下
: 1...S=0
: 2...FOR I=1 TO 100
: 3...N=I*I
: 4...IF N>50 THEN 70
: 5...S=S+N
: 6...NEXT I
: 7...PRINT "N=";N, "S="S
: 8...END
: 我了解第二行到第六行在做回圈
: 但不了解第四行的的判斷 (THEN 70 是什麼意思??是哪個變數=70?等於70有影響程式嗎?)
: 最後的結果是S=1+4+9+16+25+36+49....(不了解為何只算到7*7??)
: N=64 (8*8)
: 共呼叫第四行8次
: 謝謝,感激不盡
: --
: ※ 發信站: 批踢踢實業坊(ptt.cc)
: ◆ From: 140.119.234.104
: 推 jz:then Goto 70 ?? 01/22 15:42
: 推 BearWu:程式行70?? 01/22 20:54
: 推 fumizuki:錯誤連篇的程式@@ 01/23 07:38
哈哈，真沒想到還可以看到這個程式碼... XD
這是很早期basic的寫法。
你前面的行號後面應該都少個0，也就是行號是 10,20,30...
那的確是跳到70行沒錯，也就是跳出回圈。
至於為什摸沒有加到8*8=64，則是因為回圈會先加完I再做判斷，超過50就跳至70行
所以沒有執行到加總S。
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.105.147.162
※ 編輯: Berger927 來自: 59.105.147.162 (01/23 15:26)