XProfan

Français

Michael
W.

Übergebe je un Array à une Funktion, ensuite verschwindet qui le contenu des Arrays pour dem Ende qui Unterfunktion.

qui Unterfunktion est kurz comment possible gehalten. seulement un Array annehmen et es comme Rückgabe-Wert liefern.

cela zurückgegebene Array ist ensuite aussi là, mais cela übergebene ist soudain vide...

Kompilieren Marque Séparation

' XProfan X3.1
' 3 dyn. Arrays
Déclarer long arr_1[], arr_2[], arr_3[]
cls
' Übergabe et Rückgabe eines Arrays
' (quoi avec cela angestellt wird, ist ici unwichtig)

Proc test

    parameters long arr[]
    return arr[]

endproc

' erzeuge Werte im Array 1
arr_1[] = 1,4,17,4,9,8,3,4,17
' kopiere Array
arr_2[] = arr_1[]
Imprimer "\n-Array 1"

whileloop 0, sizeof(arr_1[]) - 1

    imprimer &loop,arr_1[&loop]

endwhile

Imprimer "- *"
Imprimer "\n-Array 2 (wurde aus Array 1 erstellt)"

whileloop 0, sizeof(arr_2[]) - 1

    imprimer &loop,arr_2[&loop]

endwhile

Imprimer "- *"
waitinput
' erstelle Array 3 (données aus Unterprogramm)
arr_3[] = test( arr_1[] )
Imprimer "\n-Array 3 (wurde aus Unterprogramm geladen)"

whileloop 0, sizeof(arr_3[]) - 1

    imprimer &loop,arr_3[&loop]

endwhile

Imprimer "- *"
Imprimer "\n-Array 1 (---Nanu---)"

whileloop 0, sizeof(arr_1[]) - 1

    imprimer &loop,arr_1[&loop]

endwhile

Imprimer "- *"
waitend