抛物线.bas

这些程序均为单位上水电站压力管道计算程序！

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