|
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: »OMBYT.K«
└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OMBYT.K«
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
└─⟦this⟧ »OMBYT.K«
0010 // ----------------------- ombyt ----------------------------- 0020 // 0030 PROC OMBYT(REF VEKTOR(),N) 0040 DIM TABEL(N) 0050 FOR I:=1 TO N DO 0060 TABEL(I):=VEKTOR(N+1-I) 0070 NEXT I 0080 FOR I:=1 TO N DO 0090 VEKTOR(I):=TABEL(I) 0100 NEXT I 0110 ENDPROC OMBYT 0120 // 0130 CLEAR 0140 // Vi skaffer os et talsæt 0150 INTEGER I,ANTAL 0155 PRINT 0160 INPUT "INDTAST ANTALLET AF TAL: ":ANTAL 0165 RNDSEED:=ANTAL MOD 5.5 0170 INTEGER TALSÆT(ANTAL) 0180 FOR I:=1 TO ANTAL DO 0190 TALSÆT(I):=RND(1,20) 0200 NEXT I 0210 FOR I:=1 TO ANTAL DO 0220 PRINT TALSÆT(I); 0230 NEXT I 0240 PRINT 0250 EXEC OMBYT(TALSÆT,ANTAL) 0260 FOR I:=1 TO ANTAL DO 0270 PRINT TALSÆT(I); 0280 NEXT I 0290 0300 PROC RND(LOW,HIGH) 0310 RNDX:=RNDSEED+3.14159 0320 RNDX:=EXP(5.0*LN(RNDX)) 0330 RNDSEED:=RNDX-INT(RNDX) 0340 RND:=INT((RNDSEED*(HIGH-LOW)+LOW)+0.5) 0350 ENDPROC RND 2148 // TALSÆT(I);
0x000…045 Line {l1=0x43, l2=»0010 // ----------------------- ombyt -----------------------------«, l3=0x43}
0x045…04f Line {l1=0x08, l2=»0020 // «, l3=0x08}
0x04f…070 Line {l1=0x1f, l2=»0030 PROC OMBYT(REF VEKTOR(),N)«, l3=0x1f}
0x070…083 Line {l1=0x11, l2=»0040 DIM TABEL(N)«, l3=0x11}
0x083…09b Line {l1=0x16, l2=»0050 FOR I:=1 TO N DO «, l3=0x16}
0x09b…0b9 Line {l1=0x1c, l2=»0060 TABEL(I):=VEKTOR(N+1-I)«, l3=0x1c}
0x0b9…0c6 Line {l1=0x0b, l2=»0070 NEXT I«, l3=0x0b}
0x0c6…0de Line {l1=0x16, l2=»0080 FOR I:=1 TO N DO «, l3=0x16}
0x0de…0f8 Line {l1=0x18, l2=»0090 VEKTOR(I):=TABEL(I)«, l3=0x18}
0x0f8…105 Line {l1=0x0b, l2=»0100 NEXT I«, l3=0x0b}
0x105…119 Line {l1=0x12, l2=»0110 ENDPROC OMBYT«, l3=0x12}
0x119…123 Line {l1=0x08, l2=»0120 // «, l3=0x08}
0x123…130 Line {l1=0x0b, l2=»0130 CLEAR «, l3=0x0b}
0x130…151 Line {l1=0x1f, l2=»0140 // Vi skaffer os et talsæt«, l3=0x1f}
0x151…167 Line {l1=0x14, l2=»0150 INTEGER I,ANTAL«, l3=0x14}
0x167…174 Line {l1=0x0b, l2=»0155 PRINT «, l3=0x0b}
0x174…1a4 Line {l1=0x2e, l2=»0160 INPUT "INDTAST ANTALLET AF TAL: ":ANTAL«, l3=0x2e}
0x1a4…1c1 Line {l1=0x1b, l2=»0165 RNDSEED:=ANTAL MOD 5.5«, l3=0x1b}
0x1c1…1dd Line {l1=0x1a, l2=»0170 INTEGER TALSÆT(ANTAL)«, l3=0x1a}
0x1dd…1f9 Line {l1=0x1a, l2=»0180 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x1f9…214 Line {l1=0x19, l2=»0190 TALSÆT(I):=RND(1,20)«, l3=0x19}
0x214…221 Line {l1=0x0b, l2=»0200 NEXT I«, l3=0x0b}
0x221…23d Line {l1=0x1a, l2=»0210 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x23d…254 Line {l1=0x15, l2=»0220 PRINT TALSÆT(I);«, l3=0x15}
0x254…261 Line {l1=0x0b, l2=»0230 NEXT I«, l3=0x0b}
0x261…26e Line {l1=0x0b, l2=»0240 PRINT «, l3=0x0b}
0x26e…28d Line {l1=0x1d, l2=»0250 EXEC OMBYT(TALSÆT,ANTAL)«, l3=0x1d}
0x28d…2a9 Line {l1=0x1a, l2=»0260 FOR I:=1 TO ANTAL DO «, l3=0x1a}
0x2a9…2c0 Line {l1=0x15, l2=»0270 PRINT TALSÆT(I);«, l3=0x15}
0x2c0…2cd Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x2cd…2d4 Line {l1=0x05, l2=»0290 «, l3=0x05}
0x2d4…2ed Line {l1=0x17, l2=»0300 PROC RND(LOW,HIGH)«, l3=0x17}
0x2ed…309 Line {l1=0x1a, l2=»0310 RNDX:=RNDSEED+3.14159«, l3=0x1a}
0x309…327 Line {l1=0x1c, l2=»0320 RNDX:=EXP(5.0*LN(RNDX))«, l3=0x1c}
0x327…345 Line {l1=0x1c, l2=»0330 RNDSEED:=RNDX-INT(RNDX)«, l3=0x1c}
0x345…372 Line {l1=0x2b, l2=»0340 RND:=INT((RNDSEED*(HIGH-LOW)+LOW)+0.5)«, l3=0x2b}
0x372…384 Line {l1=0x10, l2=»0350 ENDPROC RND«, l3=0x10}
0x384…398 Line {l1=0x12, l2=»2148 // TALSÆT(I);«, l3=0x12}
0x398…3a0 00 00 63 63 63 63 63 63 ┆ cccccc┆
0x3a0…3c0 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┆
[…0x31…]