Casio FP-200 - Page 73

------------------------UTILITY_]
1778Bytes
lC
20
30 CLEAF-::PRINT "SRAC'!NG EXAMINATION r:·AF·EF"
40 HJF'UT "Nu. of students"; 1';: :r\W-
1
~T •·:'.!o. c:f ·;;r...;.~jE
cts";K
50 DIM N$(N) ,f~:$(K) ,J$(N:•, T(~-.l,f=·+:::-:, ,S(~_:i ,S(~n ,HU··''
60 FOR I=l TON
70 PF:INT I;:INF'UT "th name";A$:N$(l>=LEFT$(A$,
10>:B<r>~I
80 NEXT
90 FOR I=l TOK
100 PRINT I;: INPUT "Name of ::;:Jbj ect"; I':$< I 1
110 NEXT
120 FOR I=l TON
130 INF"UT "INFORMATION";,]$< I): NEXT
140 FOR J=l TO K:PRINT K$CJ)
150 FOR I=l TO N:PRINT "Scar-es of";N$(Ij
160 INPUT T(I,J):NEXT:NEXT
180 FOR I=l TO N:S=0:FOR ~=l TO K:S=S+T<I,J>:NEXT
:T<I,K+l>=S:T(I,K+2>=S/K:NEXT
190 INPUT "Ta.sk 1--5"; T: ON T GClTC 210, 261Zl, 350,600,
8 (2)(2)
2\ZHZI GOTO l 90
2112! CLS:PRINT "EDIT ":INPUT "Number";B
220 PRINT B(B)
-
230 FOR I= 1 TO K: PR I NT K'.,t ( I > ; " " ~ T ( 8 , I ) : INPUT "Sc
ores"; T ( B, Ip
240 NEXT:PRINT J$(8): INPUT "INFOF:MATION";J1>(8)
250 GOTO 180
260 FOR I=l TO N-1
270 FOR J=I+l TON
280 IF T<I,K+l)<T<J,K+l) THEN GOSUB 2000
290 NEXT:NEXT
340 GOTO 19121
350 CLS:P~INT "PRINT"
360 S=0:FOR I=1 TON
370 S=S+T(I,K+l)
380 NEXT
390 X=X/N ·
400 S=0:FOR I=l TO N:S=((T(I,V+l)-XJ~2)+S
11