953480:LPRINT ••: LPRIHT YY500:W=U/(K-1): USING505:LPRIHT "NO. OF DATA=•;K-1510:LPRINT "MEAN VALUE="HI520:LPRINT "STD. DEV.="i.r<-Wotclil+V/(K-1 ))530:END---";B;•+----+----+----+210:INPUT "DELETE DATA=•;x230:IF (XGOTO 210235:LPRINT "** •;x240:N= INT <250:IF D(N)-1<0 BEEP 2:WAIT: PRINT "OVER-DELETED CHECK•260:D265:U=U-X:V=V-X*X270:GOTO 210300:"C"F=2: WAIT 100305:LPRINT ••: LPRINT ••: LPRINT "HISTOGRAM"r - ---·nrrcCE:AR":: ·w·iHr---~0·0~· · ---·--~-~ -~10rF>=i: °i'Nfiiff "" *;;· ~Tfi:..-- -1· 'i''i, :! 20: PR'.INT "RANGE )A =< D ·~;·~;::;' LPRINT "*=~TP1 \•·: i i C''! :·j·---A1A-;;-<-f"-:--rfii:>-or-•"A=--- -3.20.:LPRiift--,~-~.--·---- ..:-----.11 •;A~·B=•;B : 330:LPRINTi·''•~;1;USHIG::;,1 · ')::.:~- --------·.. ·-----..----1------ .. -----· - ----- ---- - · · - - .. · .. -- · .. --- · __ [_ ·-1l 30: INPUT "SCALE 4NIT SI Ul#~HHS*P,H0•PUS* 1 -.:L . __ zE="-;.o . 1 --=--P. ~:..- _:__, ::_·_~.,~. ·-- _ -~'_L~- : -·i 40: C=B-A: E= INT _, , ·340=·LPR1Hri " ,:i;:~:.;~J....;; : :;· .:-----60·=--D-IM D(-E-hB$-(0).*-24- ----- _:~~-·-·_· :.:._.:.,f..:.-;--+---··-'~-·---~'.'.._~_: __,! 70•LPRI"'T "INPUT1DATA" -x ,··34·5•·11·_.....,.,,.,' .. , .. , , .._. .-.I • l't I - • \ I •. -f"t ' ', '.'. ' . i..:...; l .. ~ I .:--:-.a0:K=1r-wAITi 0:F~a-----"3s0:FQR t='0'TO"E'------;- --! ·.. ! i • • , • , • • • •: , , , ,' • IJ J • ~ " ' '. ••• - • II -.1:90.: ~-A."· USING : .·IF F>0 - "/."l3£)0:'IF 'D'~U=0·'GOTO 44·0, ! ·~;:L,__ ,,,_lEl'.F:0:.··LPRIHT.~.: __3_7..0J_Q~_HH1 rn<.u.1.:e.lL!f !_. __ .:! ,. , ·• ;,. I.PRINT .. ~lNP,UT iDATA' D(U >Q:*P LET Q3.Qf:'.kJ! : z-: .'----1~0=,~'7--:E~~ ': ;~;.::.:)-:- -- ·-·. ..-3a0:-1F-Q)·ta_-:l::EL;'Q=ta-·:-- t. ..! 1:1·0.fIN°.U-T .'·DAT;.,:;_v;g 390:B$(0)=i".£::·,:!!.:LJI" - ;, ··:··. . .. · ..... r: \ . , ..... .,ii., l .i ~;";.~120nc<~~A:>:~,~:~·)i~~=1 400:FOR M=Jt TO Q:B$(0)=B______ G_OJO' ·.100· . .. :· : . __ __._$_(0)_~>1!..".:_.. l)IEX."LI'!. .t;I 12s:LPRINT :~,D~TA;:' v;x 410:LPRINT1 USING "lllfU" I.J,/1l .. l1l•. . .:_ .. Jl~_:_tt= Il'H .(~X-:-~{!:P) _ U:H.~J _ ··--- .. ~.1 .. __140:D(N)=D(N)+1 D1s0:u=U+X:V=V+X*X 420:LPRINT B$(0)160:K=K+l 430:GOTO 460170:GOTO 100 440:LPRINT USING "111#1"200: "B" USING : IF FOt iHi • PLET F=t: LPRINT '": 450:LPRINT v 1•LPRINT "DELETED DATA 460:H=H+D: NEXT Lv 470:LPRINT USING "1111#"PROGRAM LISTpromsoft.com |
