|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Types: TextFile
Notes: Mikados_K
Names: »FREKVENS.K«
└─⟦4cd80c18f⟧ Bits:30003895/4xCOMAL3a.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FREKVENS.K«
└─⟦bcf7b34c7⟧ Bits:30003895/4xCOMAL2.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »FREKVENS.K«
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
0x000…042 Line {l1=0x40, l2=»0010 // ---------------------- frekvens ------------------------«, l3=0x40}
0x042…05b Line {l1=0x17, l2=»0011 INTEGER TRUE,FALSE«, l3=0x17}
0x05b…072 Line {l1=0x15, l2=»0012 TRUE:=1;FALSE:=0«, l3=0x15}
0x072…0a9 Line {l1=0x35, l2=»0020 INTEGER TABEL(200),SØJLE(10),I // Definer heltal«, l3=0x35}
0x0a9…0c4 Line {l1=0x19, l2=»0030 RNDSEED:=3.234124321«, l3=0x19}
0x0c4…0ec Line {l1=0x26, l2=»0040 // Først skaffer vi os nogle tal:«, l3=0x26}
0x0ec…106 Line {l1=0x18, l2=»0050 FOR I:=1 TO 200 DO «, l3=0x18}
0x106…119 Line {l1=0x11, l2=»0060 X:=RND(0,30)«, l3=0x11}
0x119…12c Line {l1=0x11, l2=»0070 Y:=RND(0,70)«, l3=0x11}
0x12c…140 Line {l1=0x12, l2=»0080 TABEL(I):=X+Y«, l3=0x12}
0x140…14d Line {l1=0x0b, l2=»0090 NEXT I«, l3=0x0b}
0x14d…15a Line {l1=0x0b, l2=»0100 CLEAR «, l3=0x0b}
0x15a…167 Line {l1=0x0b, l2=»0105 PRINT «, l3=0x0b}
0x167…181 Line {l1=0x18, l2=»0110 FOR I:=1 TO 200 DO «, l3=0x18}
0x181…197 Line {l1=0x14, l2=»0120 PRINT TABEL(I);«, l3=0x14}
0x197…1a4 Line {l1=0x0b, l2=»0130 NEXT I«, l3=0x0b}
0x1a4…1d9 Line {l1=0x33, l2=»0140 // Nu samler vi tallene i passende intervaller«, l3=0x33}
0x1d9…1f3 Line {l1=0x18, l2=»0150 FOR I:=1 TO 200 DO «, l3=0x18}
0x1f3…207 Line {l1=0x12, l2=»0160 CASE TRUE OF «, l3=0x12}
0x207…21f Line {l1=0x16, l2=»0170 WHEN TABEL(I)<=10«, l3=0x16}
0x21f…23a Line {l1=0x19, l2=»0180 SØJLE(1):=SØJLE(1)+1«, l3=0x19}
0x23a…252 Line {l1=0x16, l2=»0190 WHEN TABEL(I)<=20«, l3=0x16}
0x252…26d Line {l1=0x19, l2=»0200 SØJLE(2):=SØJLE(2)+1«, l3=0x19}
0x26d…285 Line {l1=0x16, l2=»0210 WHEN TABEL(I)<=30«, l3=0x16}
0x285…2a0 Line {l1=0x19, l2=»0220 SØJLE(3):=SØJLE(3)+1«, l3=0x19}
0x2a0…2b8 Line {l1=0x16, l2=»0230 WHEN TABEL(I)<=40«, l3=0x16}
0x2b8…2d3 Line {l1=0x19, l2=»0240 SØJLE(4):=SØJLE(4)+1«, l3=0x19}
0x2d3…2eb Line {l1=0x16, l2=»0242 WHEN TABEL(I)<=50«, l3=0x16}
0x2eb…306 Line {l1=0x19, l2=»0250 SØJLE(5):=SØJLE(5)+1«, l3=0x19}
0x306…31e Line {l1=0x16, l2=»0260 WHEN TABEL(I)<=60«, l3=0x16}
0x31e…339 Line {l1=0x19, l2=»0270 SØJLE(6):=SØJLE(6)+1«, l3=0x19}
0x339…351 Line {l1=0x16, l2=»0280 WHEN TABEL(I)<=70«, l3=0x16}
0x351…36c Line {l1=0x19, l2=»0290 SØJLE(7):=SØJLE(7)+1«, l3=0x19}
0x36c…384 Line {l1=0x16, l2=»0300 WHEN TABEL(I)<=80«, l3=0x16}
0x384…39f Line {l1=0x19, l2=»0310 SØJLE(8):=SØJLE(8)+1«, l3=0x19}
0x39f…3b7 Line {l1=0x16, l2=»0320 WHEN TABEL(I)<=90«, l3=0x16}
0x3b7…3d2 Line {l1=0x19, l2=»0330 SØJLE(9):=SØJLE(9)+1«, l3=0x19}
0x3d2…3eb Line {l1=0x17, l2=»0340 WHEN TABEL(I)<=100«, l3=0x17}
0x3eb…408 Line {l1=0x1b, l2=»0350 SØJLE(10):=SØJLE(10)+1«, l3=0x1b}
0x408…417 Line {l1=0x0d, l2=»0400 ENDCASE «, l3=0x0d}
0x417…424 Line {l1=0x0b, l2=»0410 NEXT I«, l3=0x0b}
0x424…431 Line {l1=0x0b, l2=»0420 PRINT «, l3=0x0b}
0x431…43e Line {l1=0x0b, l2=»0430 PRINT «, l3=0x0b}
0x43e…457 Line {l1=0x17, l2=»0440 FOR I:=1 TO 10 DO «, l3=0x17}
0x457…49e Line {l1=0x45, l2=»0450 PRINT USING "Frekvens i intervallet #### - #### = ":I*10-9,I*10;«, l3=0x45}
0x49e…4ca Line {l1=0x2a, l2=»0460 PRINT USING " ###.## %":SØJLE(I)/2«, l3=0x2a}
0x4ca…4d7 Line {l1=0x0b, l2=»0470 NEXT I«, l3=0x0b}
0x4d7…4de Line {l1=0x05, l2=»0480 «, l3=0x05}
0x4de…4f7 Line {l1=0x17, l2=»0490 PROC RND(LOW,HIGH)«, l3=0x17}
0x4f7…513 Line {l1=0x1a, l2=»0500 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x513…531 Line {l1=0x1c, l2=»0510 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x531…54f Line {l1=0x1c, l2=»0520 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x54f…57a Line {l1=0x29, l2=»0530 RND:=INT(RNDSEED*(HIGH-LOW)+LOW+0.5)«, l3=0x29}
0x57a…58c Line {l1=0x10, l2=»0540 ENDPROC RND«, l3=0x10}
0x58c…5a0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccc┆
0x5a0…5c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x21…]