Casio FP-200 - Page 74

rGRADING EXAMINATION PAPERS------------------,
78
410 NEXT
420 SD=SQR(S/N)
430 FOR I=l TON
440 PRINT N$(I)
450 FOR J=l TO K:PRINT K$(J),
460 PRINT T ( I ,.J)
470 IF INKEYS="" THEN 470
480 NEXT:NEXT
490 PRINT "Tatal","Average"
500 FOR I= 1 TO N: PR I NT N$ ( I ) : PR I NT T ( I , K + 1 ) , T ( I , K
+2)
505 IF INKEY$="" THEN 505
510
NEXT:PRINT "SD=";SD:GOTO 190
600 FOR I=l TO N-1
610 FOR J=I+l TON
620 IF J$(l)(J$(J) THEN GOSU8 2000
630 NEXT:NEXT:GOTO 190
800 FOR 0=1 TO K:PRINT KS< □ >
810 FOR I=l TO N-1
820 FOR J=I+l TON
830 IF T<I,O><T<J,O) THEN GOSUB 2000
840 NEXT:NEXT:FOR I=l TO N:PRINT N$(I);T<I,O>
850 IF INKEY$="" THEN 85el
860 NEXT:NEXT:GOTO 190
2000 FOR L=l TO K+2
2010 A=T<I,L>:T<I,L)=TCJ,LJ:T(J,L)=A:NEXT
2020 A=B<IJ:B<I>=B(J):B(J)=A:AS=JS<I>:JS(l)=JS(J):
J$(J)=A$:AS=N$(I):NS(I)=N$(J):N$(J)=A$
2030 F.:ETURN
,QEBUGI
If an error occurs in any of the routines Edit, Sort I, Sort II, Sort III, or Print,
check the appropriate routine. The Edit routine is in lines 210 to 250; the Sort I
routine is in lines 260 to 340; the Print routine is in lines 350 to 51 0; the Sort II
routine is in lines 600 to 630; and the Sort Ill routine is in lines 800 to 860.
_;