DataMuseum.dk

top - metrics - download

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »FREKVENS«

└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FREKVENS« 
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »FREKVENS« 

Text

0010 // ---------------------- frekvens ------------------------
0011 INTEGER TRUE,FALSE
0012 TRUE:=1;FALSE:=0
0020 INTEGER TABEL(200),SØJLE(10),I // Definer heltal
0030 RNDSEED:=3.234124321
0040 // Først skaffer vi os nogle tal:
0050 FOR I:=1 TO 200 DO 
0060 X:=RND(0,30)
0070 Y:=RND(0,70)
0080 TABEL(I):=X+Y
0090 NEXT I
0100 CLEAR 
0105 PRINT 
0110 FOR I:=1 TO 200 DO 
0120 PRINT TABEL(I);
0130 NEXT I
0140 // Nu samler vi tallene i passende intervaller
0150 FOR I:=1 TO 200 DO 
0160 CASE TRUE OF 
0170 WHEN TABEL(I)<=10
0180 SØJLE(1):=SØJLE(1)+1
0190 WHEN TABEL(I)<=20
0200 SØJLE(2):=SØJLE(2)+1
0210 WHEN TABEL(I)<=30
0220 SØJLE(3):=SØJLE(3)+1
0230 WHEN TABEL(I)<=40
0240 SØJLE(4):=SØJLE(4)+1
0242 WHEN TABEL(I)<=50
0250 SØJLE(5):=SØJLE(5)+1
0260 WHEN TABEL(I)<=60
0270 SØJLE(6):=SØJLE(6)+1
0280 WHEN TABEL(I)<=70
0290 SØJLE(7):=SØJLE(7)+1
0300 WHEN TABEL(I)<=80
0310 SØJLE(8):=SØJLE(8)+1
0320 WHEN TABEL(I)<=90
0330 SØJLE(9):=SØJLE(9)+1
0340 WHEN TABEL(I)<=100
0350 SØJLE(10):=SØJLE(10)+1
0400 ENDCASE 
0410 NEXT I
0420 PRINT 
0430 PRINT 
0440 FOR I:=1 TO 10 DO 
0450 PRINT USING "Frekvens i intervallet #### - #### = ":I*10-9,I*10;
0460 PRINT USING "    ###.## %":SØJLE(I)/2
0470 NEXT I
0480 
0490 PROC RND(LOW,HIGH)
0500 RNDX:=RNDSEED+3.14159
0510 RNDX:=EXP(5.0*LN(RNDX))
0520 RNDSEED:=RNDX-INT(RNDX)
0530 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5)
0540 ENDPROC RND