这是我写的程序,编译和连接都没有问题,但是运行总提示在bc=unite/lp(t),with,lp(t+1)行
! a% E$ g' v* F: M: [% g! u1 _“正在使用一个无效的对象类型”,不知道是不是第一个jump有问题。请高手看看
/ \6 s$ }% C! v3 n0 G/ b. u2 [- }. F7 L* V5 ]4 q2 i. \( v6 |$ X
entity/lp(50),bc/ w0 u! E5 r; [5 T6 P
number/t
2 n) l7 }3 C/ @0 A s d1 s8 ~" ?$ g+ ]3 [* a) {) U
l10:
- s8 V5 y6 g+ x! q* Z" U) Kident/'请选择多条曲线进行合并',lp,cnt,k,rsp
, y$ v7 }' B& ]: ~+ H/ j6 E" P% Gjump/l10:,trm:,,,,rsp
6 N# W1 |6 j/ R8 Eif/k<=1,jump/err1:& ]7 X+ N+ b, Y- Q
t=1
3 p/ { u( l1 M4 Vl20:
% a J, E& E2 Jbc=unite/lp(t),with,lp(t+1) C3 F" a+ H' W- z8 q% P: L* G
t=t+1
+ s) Q j( K, |/ N) oifthen/t==k,jump/trm:- {! @& }5 q5 a& ^( [: D7 }
else' W6 }8 u) E G2 z
jump/l20:7 i0 x. S. M8 I, d: d2 n. e0 Y
endif! @4 e' _# Y! h+ Y, k) W$ }4 |% W
# ~- ~, n/ C9 P( i, G4 X3 q7 N2 U
err1:
! w& { [+ Z: I" j7 J* cjump/l10:2 s8 u8 I w; @. u
trm:
# L2 ^. K2 P. G6 p f5 {5 ihalt |