XProfan

Español

p.specht

Zweck: Soll später como Timing-Vergleichsbasis para Beschleunigungs-Verfahren dienen, etwa a Beurteilung, si dieses physische Umordnen en el Speicher para Ensamblador-bescheunigte Varianten zeitmäßig überhaupt lohnt...

Kompilieren Marca Separación

Título de la ventana "XProfan-11.2a: Transponierte uno n,m-Matrix erstellen"
Ventana de Estilo 24:Ventana 0,0-%maxx,%maxy:cls:randomize
set("decimals",0):set("numwidth",4)
declarar n&,m&,tm&,i&,j&
n&=20'Zeilen
m&=20'Spalten
Declarar M![n&-1,m&-1]
M![]=&index

if (n&<21) and (m&<21)

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            imprimir M![i&,j&],
            endwhile:imprimir

        endwhile

    endif

    tm&=&gettickcount
    Declarar M°![m&-1,n&-1]

    whileloop 0,n&-1:i&=&Loop

        whileloop 0,m&-1:j&=&Loop

            M°![j&,i&]=M![i&,j&]

        endwhile

    endwhile

    tm&=&gettickcount-tm&
    font 2:imprimir "\n ";tm&,"ms\n":font 0

    if (m&<21) and (n&<21)

        waitinput 1000

        whileloop 0,m&-1:j&=&Loop

            whileloop 0,n&-1:i&=&Loop

                imprimir M°![j&,i&],
                endwhile:imprimir
                endwhile:caso j&<(m&-1):imprimir

            endif

            beep
            waitinput
            End