请问下各位,下面的式子,我想用循环实现,编程时出现了点问题,麻烦大家给指点指点~~7 T' T6 q! ~7 h, {* E |; v' g
y2(1)=(m1-m2)(m1-m3)(m1-m4)
- P% s2 u( t* a* C$ hy2(2)=(m2-m1)(m2-m3)(m2-m4)
/ V$ q2 L5 K3 ?2 T) @7 t% |y2(3)=(m3-m1)(m3-m2)(m3-m4)" u# f `: B) P- _7 j* v; R" z+ ^
y2(4)=(m4-m1)(m4-m2)(m4-m3)
$ d; G2 O, y( W! N5 {! }6 B0 L. Z3 |3 Y+ _1 V3 U+ _$ k% `
程序如下8 d8 n/ Z) ^8 v- X: v
NUMBER/m(4),y2(4)
8 Q7 S1 S, Z+ _DATA/m(1..4),5,4,3,2
) t8 U0 J0 z" z5 c) k0 @9 _9 x( C; j6 C( \) q9 s1 ^
DATA/y2(1..4),1,1,1,1
~# f. _* d3 I0 T, h- }' z# z- ytrm2:
$ k, b0 a7 o7 a8 b9 qDO/trm3:,i,1,4; H6 P a7 x* c) y: K; V
DO/trm3:,j,1,4- p y7 v/ O( T3 K
! n3 N& v8 |5 }, } IFTHEN/i<>j
7 ^! ?8 ^) K4 P5 ~! t# ^7 ~y2(i)=y2(i)*(m(i)-m(j)), g/ v6 Y* i8 ]2 {7 j" F% L4 p
JUMP/trm2:4 z- W' p( }8 W1 r! E9 \; ^
ENDIF
0 n9 H- d8 L: m8 y2 CPRINT/y2(i)8 L0 _( z3 X0 g$ W \
trm3:( C M7 A% G& |$ {) S B1 J2 {( y
halt$ a4 p/ U; J7 x/ y2 }$ v$ A
也是忙活了好几天,怎么弄也没弄对,麻烦大家帮忙看一下哪里不对,请多多指点^_^ |