E500高程程序.docVIP

1000 M=28 1005 N=M 1010 DIM L(M),H(M),R(M),T(M) 1020 RESTORE 1510 1030 FOR I=1 TO M 1040 READ L(I),H(I),R(I),T(I) 1050 NEXT I 1055 DIM A(M) 1060 FOR I=1TO M-1 1070 A(I)=(H(I+1)-H(I))/(L(I+1)-L(I)) 1080 NEXT I 1085 INPUT L=;L 1090 IF L98822THEN 1500 1091 IF L0THEN 1500 1092 FOR I=2TO N 1093 K=I 1094 IF LL(I)-T(I)THEN 1105 1095 IF L=L(I)THEN 1145 1096 IF LL(I)+T(I)THEN 1240 1100 NEXT I 1105 H=(L-L(K-1))*A(K-1)+H(K-1) 1110 H=H 1115 H=(INT (H*1000+0.5))/1000 1116 PRINT A(K-1),H(K-1) 1120 PRINT H=;H 1130 GOTO 1085 1145 T=L(K)-T(K) 1150 X=L-T 1160 Y=X^2/2/R(K) 1161 PRINT Y,R(K) 1165 A=A(K)-A(K-1) 1