Sharp PC-1500 - Page 154

All and more about Sharp PC-1500 at http :/l www.PC-1500.info
PRO GRA M
T I T L E
MANAGEMENT OF STUDENTS' ACHIEVEME N TS
PROGRAM N O.
P5 - D- 24
[ Program Li st I
18 :"A":INPUT "REG
!STER= I/CHANGE
=2 ?" ; E
15 : IF <E~J) ... < E= 2>
<>I GOTO 10
1
8: IF E= 2GOTO 60
2 J :A=0:FOR 1= 0TO
p
22: 0$( J ) a '" '
23: FOR J • 0TO O+ J
2 4: 0(J, 1> =0
25:NEXT J
26: NEXT I
28: INPUT "CLASS N
AME=";A$
30:FOR 1=0TO P
35: !NPUT " NAME =";
8$<1 >:GOTO 45
40: l =l - l:GOTO 100
45:A =A •l
50:NEXT !:GO TO 10
0
60:GOSU0 /00
65:LPRINT "** CLA
SS LIST **" '
GOSU0 800
/ 0 : INP UT " C ODE =" ;
I: GOTO 80
/S : GOTO 100
90:1F <J<l>+<l>P+
l> = IGO TO /0
98: !F 0$C 1- 1 >=' .. '
LET A=A ... 1
90: INPUT " NAM[ =" ;
9$<1 -
1>
95: GOTO /0
100:GOSU0 /50:ENO
IJ0 :"B":GOSUB / 00:
CLS : WA I f : FOR
1= 0f0 A- I
120:CLS :Z$=SrRs
<
(+ I) • " "+ 8$(])
125: P RIN T Zs
!30:WAIT 0: F OR J =0
TO Q
140 :CLS :PRINT osc
J); ·· ••;
145:PRJNT B<J, J) ;
150 :
IN PUT " ? ==>"
;9cJ, I >
J/0:NEXT
J:wn1r ;
CLS
J90:NEXT I
200:GOSUB
/50
210: E ND
Do not sale this PDF !!!
220:"C": F= 0•0 =0 +1
230:60SUB
/00:FOR
1 =0TO A -! :FOR
J=0 f0
Q
235 :f l<O+I, I l= BCGl · 'I
, I > ... 9 CJ, I l :
NEX T J
240 :F = F+ BC Q· •I, 1 J:
NEXT I
280: 60SUB 600
320:LPRINT ' '** M ER
IT ORDER**"
323:LPRINT A$;" CL
ASS LIS 1"
325:~ - INT CF/A /(Q •
))+.5)
330:6 = 1:60S UB 800
335: INPUT " WHOLE 0
K=!/N0=
2?"'E
340 : IF <E=l>•<E=2>
<>!GOTO 335
345: IF E=2GOTO 365
350!S =J NT CC/O + .SJ
: LPR I NT "A UG .
OF ALL=": S: LF
l
35 2:R • 0 :F OR J• 0TO
0-1 :R =I NT CO<J
> - SJ~2+R : Nf:XT
l
. 353: JF O=-! LF 2:
GO TO 360
354: N: R/(0 - J):N:
INT CN 'l: l0~3-t.5
)/J01'3
355: LPRI NT "UARIAN
CE";N:LF 2
360:60SU9 900
365:END
400:"0":CLEAR :P • 4
4: 0= 4: K =S : 0 IM
8$(P), B<O ,. I, Pl
, 0$CQ>:t9, O<K>
41 0: 0$C0J• "N. LA NG
. " : OS( I ):" MA TH
" : 0$(2J ="F. NG . ..
: 0$C3l ="HIST. ''
:Qs(4J ="SC IENC
E"
430: !NPUT "INTERUA
L OF HISTOGRAM
? ''; T
435:!F cT<l>+ <f >l0
0> =1 GOT O 430
- 148 -
440: lNPUl "S T ARr P
DIN T?"; U
445: !F <U<0J+C U>10
0J = !GOTO 440
450 : I NPU T "NO . or
l NT E RUA LS?";V
455 : ! F <U<J J·•<U>20
>=J GOTO 4 50
4SS:OJn E <U - l >,FCU
- J )
460 : FOR j ., 0TO U-1:
f'< l >= U: lF U =0
LET U=U+ l
465:U =U+T:NE XT I
4/0:ENO
500:FOR
2=0TO U I
505:!F F<ZJ>WGOTO
550
510
: IF Z= U-IGOTO 5
25
SJ5 : If F<Z+l>< ~ W
GOTO 55 0
520 : E<Z>=ECZ>•I:
GOTO 550
525 : J F F c Z > + T >W
GOTO 520
550: NEXT Z
555:R£ T URN
600:FQR J= 0TO A- 2:
L=l· "l
6 !0: FQR J =LTO A- I
620: !F B<Q +J, l>>=B
CO+!,
J>GOTO 62
'
623:CS = BS<J>:8S(])
=B$<J >: sscJ >"'C
s
625:FQR 0= 0TO Q+J :
li=
B<O , I>: B<O, I
>=8<0, JJ:B<O,
J
l=H:NEXT 0
6 2/:N E XT J
629: N EXT !
6 30 : RETU RN
700 : INPU T " TAP E- JN
OK = l / N Q. :2 ? "
; . ..
705 : IF CH=! )+( H= 2>
<> !GOTO 700
/J 0: JF H=2GO TO /25
/JS: INPUT '' CLASS N
AME? " ;A$
/20•!NPUT nAs;A,8 $
<f >, BO:>
/25:RETURN
(To be continued)
8