Beiträge von Deep4 im Thema „Sortieren in V2 BASIC“

    Sorry, Bug verbaut... :drunk:

    Jetzt noch mal...Version von Mikes Lösung mit Ermittlung der letzten Tauschposition. Ist natürlich nur im Idealfall schneller...

    Code
    1n=9:dimx(n):fori=.ton:x(i)=rnd(1):next
    2p=1:fori=.ton-1:ifx(i)>x(i+1)thenx=x(i):x(i)=x(i+1):x(i+1)=x:p=i+1
    3next:n=p:ifn>1then2
    4fori=.to9:printx(i):next