椭圆.bas

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

10  LPRINT "椭圆方程计算坐标"
20  INPUT A, B, M
30   LPRINT TAB(5); "A="; A; TAB(25); "B="; B; TAB(45); "M="; M
40   LPRINT
45     K = A - M
50  FOR X = 0 TO K STEP 50
60   Y = B * SQR(1 - (X + M) * (X + M) / (A * A))
70   LPRINT TAB(10); "X="; X; TAB(40); INT(Y * 10 + .5) / 10
80   NEXT
90  END