DataMuseum.dk

top - metrics - download

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

└─⟦92e6f589c⟧ Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OMBYT« 
└─⟦faca42ef2⟧ Bits:30003895/4xCOMAL1.imd 4 * COMAL - SPC/1 - Disketter til bogen
    └─⟦this⟧ »OMBYT« 

Text

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);