DataMuseum.dk

top - download

    Length: 2496 (0x9c0)
    Notes: Mikados TextFile, Mikados_K
    Names: »QUICKSRT«

└─⟦0ca3cf8fa⟧ Bits:30004600 DEMO1 - COMAL demoprogram
    └─ ⟦this⟧ »QUICKSRT« 

Text

0010 REM DDE TESTPROGRAM QUICKSORT
0020 DIM MAT$(6)
0030 REM 
0040 PROC QUICK
0050 M=12
0060 DIM STAK(M,2)
0070 VENST=1;HØJRE=2
0080 S,STAK(1,VENST)=1;STAK(1,HØJRE)=N
0090 REPEAT 
0100 V=STAK(S,VENST);H=STAK(S,HØJRE);S=S-1
0110 REPEAT 
0120 I=V;J=H;X=A(INT((V+H)/2))
0130 REPEAT 
0140 WHILE A(I)<X
0150 I=I+1
0160 ENDWHILE 
0170 WHILE X<A(J)
0180 J=J-1
0190 ENDWHILE 
0200 IF I<=J THEN 
0210 W=A(I);A(I)=A(J);A(J)=W
0220 I=I+1;J=J-1
0230 ENDIF 
0240 UNTIL I>J
0250 IF I<H THEN 
0260 S=S+1
0270 STAK(S,VENST)=I
0280 STAK(S,HØJRE)=H
0290 ENDIF 
0300 H=J
0310 UNTIL V=>H
0320 UNTIL S=0
0330 ENDPROC ;QUICKSORT
0340 REM 
0350 REM ** HOVEDPROGRAM **
0360 PRINT "QUICKSORT PROGRAM"
0370 PRINT 
0380 PRINT "PROGRAMMET GENERER ET BRUGERBESTEMT ANTAL TILFAELDIGE"
0390 PRINT "TAL I INTERVALLET Æ0:100Å, HVOREFTER DISSE SORTERES"
0400 PRINT "EFTER STIGENDE VAERDI"
0410 PRINT 
0420 PRINT "ANTAL ELEMENTER, DER OENSKES SORTERET"
0430 INPUT N
0440 DIM A(N)
0450 PRINT "FOELGENDE";N;"TILFAELDIGE TAL SORTERES:"
0460 MAT$="####.#"
0470 FOR I=1 TO N
0480 A(I)=RND(I)*100
0490 PRINT USING MAT$:A(I);
0500 NEXT I
0510 PRINT 
0520 EXEC QUICK
0530 PRINT 
0540 PRINT "RESULTAT AF SORTERING"
0550 FOR I=1 TO N
0560 PRINT USING MAT$:A(I);
0570 NEXT I
0580 END