10 REM *** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* 11 REM 12 REM SCORES: COMPUTES MEAN, STANDARD DEVIATION AND STANDARD 13 REM SCORES FOR TEST SCORES 14 REM 36136 (A408) REV A -- 7/71 15 REM 16 REM *** CONTRIBUTED PROGRAM ************************************** 17 REM 100 REM STATISTICS PROGRAMS: MEAN, STANDARD DEVIATION, STANDARD SCORES 110 DIM X[100],D[100],Z[100],T[100] 120 LET X=0 130 READ N 140 FOR I=1 TO N 150 READ X[I] 160 LET X=X+X[I] 170 NEXT I 180 LET M=X/N 190 PRINT "MEAN = ";M 200 LET D=0 210 FOR I=1 TO N 220 LET D[I]=X[I]-M 230 LET D=D+D[I]^2 240 NEXT I 250 LET S=SQR(D/N) 260 PRINT "STANDARD DEVIATION = ";S 270 FOR I=1 TO N 280 LET Z[I]=D[I]/S 290 LET T[I]=10*D[I]/S+50 300 NEXT I 310 PRINT 320 PRINT "SCORE","DEVIATION","Z-SCORE","T-SCORE" 330 PRINT "-----","---------","-------","-------" 340 FOR I=1 TO N 350 PRINT X[I],D[I],Z[I],T[I] 360 NEXT I 370 DATA 15 380 DATA 50,50,50,48,48,44,43,42,42,42,41,35,30,29,26 390 END