Pour RMont

 DIM a(150)

 DIM tableau(9) : ' déclaration de la variable tableau à 10 éléments (de 0 à 9)
dim i : ' variable compteur
' On remplit le tableau avec des valeurs aléatoires entre 1 et 100
for i = 0 to 9 : tableau(i) = int(rnd(100)+1) : next i
' On affiche les valeurs du tableau
for i = 0 to 9 : print "case ";i ; " ---> "; tableau(i): next i

DIM tab(10,20)

 DIM tab(10,3)
DIM i,j

for j = 0 to 3
    for i = 0 to 10
        tab(i,j) = (i+1)*(j+5)
    next i
next j

for i = 0 to 9
    print "6 * ";i+1;" = "; tab(i,1) ; "  ";
    print "7 * ";i+1;" = "; tab(i,2) ; "  " ;
    print "8 * ";i+1;" = ";tab(i,3)
next i

 ' ******************************************************************************
'
'                Table_Multiplication.bas
'                      par Papydall
'
' ******************************************************************************

' Exemple d'appel des procédures

' ==============================================================================
' Ici débute le module principal du programme
' Il se limite à la seule procédure 'Demarrer' qui fait appel aux autres procédures
Demarrer()
end  : '  Fin du programme
' ******************************************************************************
SUB Demarrer()
    Init() : ' Appel de la procédure d'initialisation
    Affiche("T A B L E  D E  M U L T I P L I C A T I O N",240,10) : ' Appel de la procédure d'affichage
    Affiche(string$(48,"*"),240,40) : ' 2ème appel de la procédure d'affichage avec d'autres paramètres
    for m% = 2 to 9 : ' Boucle d'appels de la procédure table avec passage de
      table(m%)    : ' paramètre par valeur
    next m%
END_SUB

' ==============================================================================
' ******** INITIALISATION
' Procédure INIT() sans paramètres d'appel mais les parenthèses sont obligatoires
SUB init()
    dim m% : ' Seule cette variable est globale
    width 0,800  : height 0,700 : ' Dimension de la fénêtre d'affichage
    color 0,0,0,0 : font_color 0,0,255,0 : ' Fond noir, texte en vert
    font_size 0,12 : font_bold 0 : ' Taille de la police et affichage en gras
    caption 0,"Table de multiplication" : ' Titre de la page principale du programme
END_SUB
' ==============================================================================

' ******** Afficher un texte à l'écran
' Le texte ainsi que la position de l'affichage sont passés comme paramètres
' formels par le module appelant
' Procédure Affiche : les 3 paramètres d'appel sont locaux
SUB Affiche(texte$,colonne%,ligne%)
    print_locate colonne%,ligne% : print texte$
END_SUB
' ==============================================================================
' ******** Afficher la table
' Affiche une table de multiplication : le multiplicande(m%) est passé comme
' paramètre formel par le module appelant.
' Le multiplicateur i% est déclaré dans la procédure comme variable locale
SUB table(m%)
    DIM_LOCAL i%,s$,lig%,col% : ' variables locales : à la sortie de la procédure
                                ' elles seront automatiquement éliminées.
    affiche(string$(54,"_"),150,50): ' Une procédure peut appeler une autre
    col% = 150*(m%-1): lig% = 70
    if col% > 600
      col% = col%-600 : lig% = 320
    end_if
    for i% = 1 to 9
        s$ = str$(i%*m%)
        if i%*m% < 10 then s$ = "  "+s$
        print_locate col%,lig% : print str$(i%)+" X "+str$(m%)+" = "+s$
        lig% = lig%+20
    next i%
    affiche(string$(54,"_"),150,270)
    affiche(string$(54,"_"),150,500)
END_SUB
' ==============================================================================

 ' ******************************************************************************
' *    CARRE MAGIQUE PAR PAPYDALL
' *
' ******************************************************************************
dim n    : ' ordre du carré magique doit être impair
dim somme : ' Somme des toutes les lignes, des toutes les colonnes et des 2 diagonales principales
dim titre$ : titre$ = "C A R R E  M A G I Q U E  D ' O R D R E "
ordre() : caption 0,"Papydall vous présente    " + titre$ +str$(n)
dim matrice(n,n) : ' déclaration de la matrice (ou tableau) à 2 dimensions
full_space 0 : color 0,0,0,0 : font_color 0,255,255,0: font_name 0,"consolas"
magic()      : ' Appel à la procédure du calcul du carré magique
end
' ==============================================================================
' Saisie de l'ordre n du carré
SUB ordre()
    dim_local r$, nmax
    nmax = 37  : ' Ordre max du carré à adapter selon la résolution de votre écran
    repeat      : ' Cette boucle assure que l'ordre soit impair et compris entre 3 et nmax
        repeat  : ' Cette boucle assure que le coefficient soit numérique
              r$ = message_input$("Entrer l'ordre du carré magique", "( impair et compris entre 3 et "+str$(nmax)+" )"+chr$(13)+"N = ",str$(nmax))
        until numeric(r$) = 1
    until val(r$) > 3 and val(r$) <= nmax and odd(val(r$)) = 1
    N = val(r$)
END_SUB
' ==============================================================================
' affichage du carré
SUB affichage()
    dim_local i,j,a$
    for i = 1 to n
        print : print "ligne" ; : a$ = str$ (i) :  formatage(a$) : print  ": " ;
        for j = 1 to n : a$ = str$ (matrice (i,j)) : formatage(a$) : next j
    next i
    print : print : print string$(50," ");
    print "La somme de toutes les lignes,toutes les colonnes et les 2 diagonales principales est : " ; somme
END_SUB
' ==============================================================================
' calcul de la matrice
SUB magic()
    dim_local i,j,n2,nombre
    n2 = n * n
    j = int(n / 2) : i = j + 1
    for nombre = 1 to n2
        if i < n : i = i + 1 : else : i = 1 : end_if
        if j < n : j = j + 1 : else : j = 1 : end_if
        while matrice(i,j) > 0
            if i < n : i = i + 1 : else : i = 1 : end_if
            if j > 1 : j = j - 1 : else : j = n : end_if
        end_while
        matrice(i,j) = nombre
    next nombre
    somme = n * (n2 + 1) / 2
    affichage()
END_SUB
' ==============================================================================
' On ajoute les espaces necessaires pour la justification à gauche
SUB formatage(s$)
    dim_local i,l,a$
    l = len (s$): a$ = s$
        a$ = string$(5-l," ") + a$
    print a$ ;" ";
END_SUB
' =============================== FIN ==========================================