Advertisement
- - - - - - - - - - - - - - - - - - - - - - - U T I L I T Y _ ]
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
Advertisement
