抛物线.bas

来自「这些程序均为单位上水电站压力管道计算程序！」· BAS 代码 · 共 12 行

10  LPRINT "抛物线方程计算坐标"
20  INPUT A, B
30   LPRINT "A="; A; TAB(30); "B="; B
35   LPRINT
40   FOR X = 0 TO B STEP 50
50  Y = SQR(A * (B - X))
60  LPRINT "X="; X; TAB(30); "Y="; INT(Y * 10 + .5) / 10
70  NEXT X
80  END