XProfan

Français

p.specht

Zweck: Soll später comme Timing-Vergleichsbasis pour Beschleunigungs-procéder dienen, etwa zur Beurteilung, si sich cet physische Umordnen im grenier pour Assembler-bescheunigte Varianten zeitmäßig überhaupt lohnt...

Kompilieren Marque Séparation

Titre de la fenêtre "XProfan-11.2a: Transponierte einer n,m-Matrix erstellen"
Fenêtre Style 24:Fenêtre 0,0-%maxx,%maxy:cls:randomize
set("decimals",0):set("numwidth",4)
declare n&,m&,tm&,i&,j&
n&=20'Zeilen
m&=20'Spalten
Déclarer M![n&-1,m&-1]
M![]=&index

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

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

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

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

        endwhile

    endif

    tm&=&gettickcount
    Déclarer M°![m&-1,n&-1]

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

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

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

        endwhile

    endwhile

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

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

        waitinput 1000

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

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

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

            endif

            beep
            waitinput
            Fin