Sharp PC-1500 Applications Manual page 154

All and more about Sharp PC-1500 at http:/lwww.PC-1500.info
PROGRAM
T I
T L E
MANAGEMENT OF STUDENTS' ACHIEVEMENTS
PROGRAM NO.
P5- D- 24
[ Program List
I
18 :"A":INPUT "REG
!STER= I/CHANGE
=2 ? " ;
E
15 : IF
<E~J)
... <E= 2>
<>I GOTO 10
18: IF E=2GOTO 60
2 J :A=0:FOR 1=0TO
p
22: 0$(
J
) a '" '
23: FOR J • 0TO O+
J
24: 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 !:GOTO 10
0
60:GOSU0 /00
65:LPRINT
"**
CLA
SS LIST
**" '
GOSU0 800
/ 0 : INPUT
" CODE = " ;
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$=S rRs <
(+ I) • "
"+ 8$(])
125: PRIN T Zs
! 30:WAIT 0: FOR J =0
TO
Q
140 :CLS :PRI NT
osc
J); ·· ••;
145:PRJNT B<J, J) ;
150 : INPUT " ?
==>"
;9cJ, I >
J/0:NEXT J:wn1r ;
CLS
J90:NEXT I
200:GOSUB /50
210: END
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:fl<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
3 20:LPRIN T
''**
M ER
IT ORDER**"
323:LPRINT
A$;"
CL
ASS LIS
1"
325:~ - INT
CF/A/(Q •
))+.5)
330:6=1:60SUB 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 INT "AUG .
OF ALL=":
S:
LF
l
352:R• 0 :FOR J• 0TO
0-1 :R= INT CO<J
> - SJ~2+R : Nf:XT
l
. 3 53: 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. LANG
. " : OS(
I ):" M ATH
" : 0$(2J ="F.NG . ..
: 0$C3l ="HIS T. ''
:Qs(4J ="SC IENC
E"
430: !NPUT "INTERUA
L OF HISTOGRAM
? '';
T
435:!F cT<l>+ <f >l0
0> =1 GOTO 430
- 148-
440: lNPUl "S TARr P
DIN T?"; U
445: !F <U<0J+C U>10
0J =!GOTO 440
450: INPU T "NO.
or
l NT ERUALS?";V
455 :
! F
<U<J J·•<U>20
>=J GOTO 450
4SS : OJn E <U - l >,FCU
- J )
460: FOR
j
. , 0TO U-1:
f'<
l
>= U:
l F U =0
LET
U=U+ l
465:U=U+T:NEXT
I
4/0:ENO
500:FOR 2=0TO U I
505:!F F<ZJ>WGOTO
550
510: IF Z=U-IGOTO 5
25
SJ5 :
I f
F<Z+l>< ~ W
GOTO 550
520: E<Z>=ECZ>•I:
GOTO 550
525 :
J
F F
c
Z
>
+
T
>W
GOTO 520
550: NEXT Z
555:R£TURN
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
62/:NEXT J
629: NEXT
!
630 : RETURN
700 : INPU T " TAPE- JN
OK= l / NQ. : 2? "
;
...
705: IF C H= ! )+( 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