Listing of file='24A ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 281, program filename = '24A' 0010 PRINT "INPUT 0 FOR A POPULATION, 1 FOR A SAMPLE" 0015 INPUT P 0020 PRINT "NO. OF OBSERVATIONS" 0025 INPUT M 0030 S,T,N=0 0035 PRINT "INPUT XI,FI (I=1,2,...,M)" 0040 FOR I=1 TO M 0050 INPUT X,F 0060 S=S+F*X 0065 N=N+F 0070 T=T+F*X^2 0080 NEXT I 0090 M=S/N 0100 V=(T-N*M^2)/(N-P) 0105 PRINT 0110 PRINT "MEAN=";M 0120 PRINT "VARIANCE=";V 0130 PRINT "ST.DEV.=";SQR(V) 0999 END