计算机在化学中应用.pptVIP

第八章 方程求根 §8.2 二分法 §8.3 迭代法 * 10 READ N, W 20 DIM A(N), B(N), C(N), D(N), E(N), F(N), G(N), H(N), I(N), J(N) 30 FOR I = 1 TO N: READ A(I), B(I), C(I) 32 D(I) = (B(I) + C(I)) / 2 35 NEXT I 40 FOR I = 1 TO N 50 M = D(1): K = 1 60 FOR J = 2 TO N 70 IF D(J) = M THEN 90 80 M = D(J): K = J 90 NEXT J 100 D(K) = W: E(I) = M: F(I) = A(K) 120 NEXT I 125 PRINT XUEHAO, PINGJUN, MINGCI 130 FOR I = N TO 1 STEP -1 132 G(I) = 11 - I 135 PRINT F(I), E(I), G(I) 137 NEXT I D(N)排序前平均成绩； E(N)排序后平均成绩；F(N)学号； G(N)名次。 140 FOR I = 1 TO N 150 M = F(1): K = 1 160 FOR J = 2 TO N 170 IF F(J) = M THEN 190 180 M = F(J)