2006年5月3日

GW-Basic:一元二次方程式

這個一元二次方程式可以讓使用者輸入係數A、B與常數C後算出X
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

沒有留言: