這個一元二次方程式可以讓使用者輸入係數A、B與常數C後算出X
X是使用公式解，這一點沒什麼問題
在第40行時添加了一個D作為判別式，並且PRINT D
最主要原因是在50行時，會判斷根號內的D是否為負數，如果為負會Print 無解，並回到第十行
另外就是第九十行時用了一個H當作變數，只要使用者直接按ENTER，就會判斷輸入0
然後就會回到第10行，繼續運算下一題，就這樣
X是使用公式解，這一點沒什麼問題
在第40行時添加了一個D作為判別式，並且PRINT D
最主要原因是在50行時，會判斷根號內的D是否為負數，如果為負會Print 無解，並回到第十行
另外就是第九十行時用了一個H當作變數，只要使用者直接按ENTER，就會判斷輸入0
然後就會回到第10行，繼續運算下一題，就這樣
10 CLS
20 PRINT "If you have a function,P(x)=ax^2+bx+c=0."
30 PRINT "Tell me the a, b, and c, then I can tell what x is."
40 INPUT "a,b,c=",A,B,C
50 D=B^2-4*A*C
60 PRINT D
70 IF D<0 THEN PRINT "No solution!":GOTO 10
80 X1=(-B+D^.5)/(2*A)
90 X2=(-B-D^.5)/(2*A)
100 PRINT "Ans: X=";X1,X2
110 INPUT "Want to compute other question?(Y/N)",A$
120 IF A$="Y" THEN GOTO 10 ELSE CLS:END
130 END
Tags
玩電腦