les j


                                t[i][j] 0 1 2
                                       \______
                                                                 0  \_\_\_\
                            les i         1  \_\_\_\
                                    2 \_\_\_\


2.2 Verification carré magique

fonction saisietableau2DIM(tableau de reel t1[0....nb-1][0...nb-1]):entier

nb,i,j:entier

ecrire("Saisir la longueur d'un coté du carré")
lire(nb)
    POUR i de 0 a nb-1 faire
        POUR j de 0 a nb-1 faire
            ecrire("Saisir une valeur")
            lire(t1[i][j])
        finPOUR
    finPOUR
retourner nb
FIN
========================================================================================================
var t:tableau d'entier [0...nb-1][0...nb-1]
        nb :entier
    i,j,k : entier
    res1,res2,res3,res4 :entier
DEBUT
res1,res2,res3,res4 <--0
nb <- saisietableau2DIM (t)//tableau de taille nb de coté
i<--0
k<--0
j<--0
    POUR i de 0 a nb-1 faire
        res1<--res1+t[i][j]
    fin pour
i<--0
k<--0
j<--0
    POUR j de 0 a nb-1 faire
        res2<--res2+t[i][j]
    fin pour
i<--0
k<--0
j<--0
    POUR k de 0 a nb-1 faire
        res3<--res3+t[i+k][j+k]
    fin pour
i<--0
k<--0
j<--0
    POUR k de 0 a nb-1 faire
        res4<--res4+t[nb-k][nb-k]
    fin pour

    SI (res1==res2 && res2==res3 && res3==res4) faire
        ecrire("le carré est bien magique")
    SINON
        ecrire("Le carré n'est pas magique")
    FINSI
FIN