Advertisement
rGRADING EXAMINATION P A P E R S - - - - - - - - - - - - - - - - - -
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.
Advertisement
