Advertisement
UTILITY
410 CLS:F'RINT T$:F'RINT"Input did:a
fnJm
tape.
Pr·Hs
s
RETURN
key
wh~n tape is n>.c.1.c1y."
420 IF
INKEV$()CHR$(13) THEN
420
430 OPEN "CAS0: DOS DATA" FOF~ INPUT
AS #
1
440 INPUT #1,AS,C
450 FOR I=l TO C:INPUT #1,IN(l):NEXT !:CLOSE #1
500 '···-···--·--·---- Carree.: ti
on
510 CLS:PRINT TS
520 PRINT"Title :";AS:PRINT"Number
of
data:";C
530 PRINT"Do you wish
to con·-pct
data.";
540 ZS=INKEYS: IFZS="N"
OR
Z$==="n" THEN 600 ELSE IF
ZS="Y" OR
ZS="y"
THEN PRINTZS:GOTO 550ELSE GOTO 54
(Z)
550 INPUT" Data No. : " ,
Z:
IF
Z
<
1.
OR
Z >C
THEN 550
56121 F'
R
I NT "
" ; I N (
Z
> ; : I NF· UT " --·-
> " ,
I N (
Z
> :
PR
INT : GOT
0
53(2)
600 ·---------- Caliculation
1
61121 F'RINTZS:SUM=0:MAX=-1E99:MIN=1E99
620 FOR 1=1 TO
C:
F'RINT"-lj·";: SUM=:SLJM+IN (I): IF MAX<
I
N(l) THENMAX=IN<I>
630 IF MIN> IN< I ) THEN MIN:::: IN< I )
640 NEXT I:F'RINT
700 ·----------
Input number of classes
710 CLS: PRINTT$;: PRINT"< ";
A$:
PRINT"Numbc:?r·
of
dat
a
":PRINTC
720 PRINT"Number
of
class
":
INF'UT"";
ZS:
IF
2$="-"
THEN
500
73121 CL=VAL(ZS):IF CL<2
OR
CL)1Ql THEN710
800 '----------
Frequency
count
810 LE=CMAX-MIN)/CL
820 CLS: PR I NT "Ma:d mum
value ":
PR INTMAX: PR I NT "Mini
mum value ":F'RfNTMIN
823 PRINT:PRINT
"<<
Hit
any key>>"
824 IF IM(EY$=
1111
THEN 824
825 CLS:F'RINT"Class width ":F'RINTLE
830 FOR I=1 TO 10:DS(I)=0:NEXT I
840 FOR I=1 TO C: Z=INT ( ( IN (I) --MIN)
I
<LE>··lE--·6)):
IF
Z<CL THEN Z=Z+1
850 DSCZ)=DS(Z)+1:NEXT I
860 M==D~
<
l )
870 FOR 1=2 TO CL:IF M<DS<I> THEN
M=DS<Il
880 NEXT I
890 F'RINT"hi ghest fn2quenc:y ": F'RINTM
900
·==========
Caliculation 2
9112l N=M: X=0: I=l
Advertisement
