Sharp PC-1500 - Page 155

All and more about Sharp PC-1 500 at http://www.PC-1500.info
PRO GRAM
T I T L E
M ANAGE MENT OF STUDENTS' ACHIE VEM ENTS
I Pr og ram Li st I
75 0: IN PU T ' 'fA PE - OU
T OK = 1 , N 0,2'?
,. ; H
/55 : IF <H=l ) +(H• 2>
<> l GOT O 750
'60 : IF H= 2G O 'f 0 , / 0
/65:PRIN T ~ - 1,AS;A
, 8$«" >, B<*>
';;>0:R(TURN
800:FO R 1=0 TO A- I
805:LP R1 NT US I NG "
~"U " ;l + Jj "' " iB
$( I ) : US I NG
9J 0: IF G=0GO TO 840
815 : FO R J =0TO Q
820:LP RI NT USING ''
& &&&&&&&&" ;OS(
Jl ;US !NG ·· ~~llU
"; B<J ,I>
825: US JNG : NEXT J
830 : LPR1NT ' T OTAL"
; B <O + I, ll
833:W=HH (8(Q+l, I
) / (Q~t) + . 5 )
83 5: LPR1NT ''A UG '' ; W
: GO SUB 50 0: U '
I
940! N( XT 1
845: IF G=0GOTO 860
850:LPRINT " CL ASS
TTL"; F
855:R=0 :L PRJNT "CL
AS S A VERAGE " ;M
:C=c .. n: IF K >=O
-! L ET O<O-ll =M
85/ : FOR 0=0 TO A- 1:
S=INT
<B< Q .. I, 0
) /(Q .. J) +. 5 >:R=
<S - M>-'2+R:NE XT
0
858: IF A= JGOT O 8 60
859:N=R/(A- J) : N=
INT <N*10-' 3+.5
)/J0-'3! LPR INT
" VARIANC( • ;N
860:G=0 : LF 2:
RETURN
900 :LPR JNT "HIS TOG
RAM "
Do not sale this PDF !!!
903: GRA PH :
GL
CURSOR (0, 0)
: SORGN : LI NE <
50, 0) -(2 15, 0);
LI NE < ~ 0,0) - (5
0, -450)
905:S~E<0): F OR 1 =1
TO V- J:IF S<E<
l> L ET S=C<I >
908 : N EXT 1
9 10: Y=0 : FOR 1=0 TO
u- I; X -" ! l StS l< C <
j )
913: IF X= 0GO TO ~30
915 : LJNE < 50 , Y)- (X
+50, Y-4 50tV ), 0
J 2, 8
92 0: CO L OR 0:
GL CURSOR (X •SS
, Y- 20>: LPR!NT
E<l >
930 : GLCURSOR (0,Y-
!3J:L PR!NT Ft!
)
940:Y : Y- 450/U:N • XT
I ; TEXT : CO L OR
0: LF 2
960 : RE TURN
STATUS 1
25 41
- 1 49 -
PROGRAM NO .
PS -D-2 4
9