/*
                                    les j


                                t[i][j] 0 1 2...nb
                                       \__________
                                                                 0  \_\_\_\_\_\
                            les i         1  \_\_\_\_\_\
                                    2 \_\_\_\_\_\
                                     . \_\_\_\_\_\
                                         nb \_\_\_\_\_\



Un carré magique est un carré dont la somme de chaque ligne =somme de chaque collonnes=sommes des diagonales
*/

2.2 Verification carré magique

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

        nb,i,j:
        entier
        DEBUT {
    t[0....nb-1][0...nb-1]
    ecrire("Saisir la longueur d'un coté du carré")
    lire(nb)

    TANT QUE(nb==0) faire{
        ecrire("Resaisissez la valeur")
        lire(t1[i][j])
    } finTANTQUE
    POUR i de 0 a nb-1  faire{
        POUR j de 0 a nb-1 faire{
            ecrire("Saisir une valeur")
            lire(t1[i][j])
            TANT QUE(t1[i][j]==0) faire{
                ecrire("Resaisissez la valeur")
                lire(t1[i][j])
            } finTANTQUE
        } finPOUR
    } finPOUR
    retourner nb
} FIN
========================================================================================================
var t:
tableau d'entier [0...nb-1][0...nb-1]
nb :entier
i,j,k : entier
res1,test :entier
stop :booleen
DEBUT
res1,res2,test <--0
nb <- saisietableau2DIM (t)//tableau de taille nb de coté
i<--0
k<--0
j<--0

POUR j de 0 a nb-1 faire{// valeur de test des lignes
    test<--test+t[i][j]
}finPOUR
stop=1
        POUR i de 0 a nb-1 && stop==1 faire{
            res1<-0
            res2<-0
            POUR j de 0 a nb-1 && stop==1 faire{
                res1<--res1+t[i][j]
                res2<--res2+t[j][i]
            }finPOUR
            si (test != res1 || test !=res2){
                alors stop <- 0
            }finSI

        }fin pour
        i<--0
        k<--0
        j<--0
        res1<-0
        res2 <--0
        POUR k de 0 a nb-1 && stop==1 faire{
            res1<--res1+t[k][k]
            res2<--res2+t[nb-1-k][k]
            si (test != res1 || test !=res2){
                alors stop <- 0
            } FINSI

        } fin pour

SI(stop)faire
    ecrire("Le carré est magique")
SINON
    ecrire("Le carré n'est pas magique")
FINSI

FIN