懐かしのN88BASICについて語ろうぜ
■ このスレッドは過去ログ倉庫に格納されています
0120デフォルトの名無しさん
NGNG10 rem 2次方程式の解
20 input "a,b,c=" ;a,b,c
30 d=b^2-4*a*c
40 if d<0 then goto 100
50 r=sqr(d)
60 x1=(-b+r)/(2*a)
70 x2=(-b-r)/(2*a)
80 print x1,x2
90 goto 110
100 print "解なし"
110 end
■ このスレッドは過去ログ倉庫に格納されています