/*
                                    les j


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



*/







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,cpt :entier
stop :booleen
DEBUT
res1,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
cpt=0
    //TantQue ( stop != 0 et cpt <= 2nb+2){
        POUR i de 0 a nb-1 faire{
            res1<-0
            POUR j de 0 a nb-1 faire{
                res1<--res1+t[i][j]
            }finPOUR
            si test != res1{
                alors stop <- 0
            }finSI
            ctp++
        }fin pour
        POUR j de 0 a nb-1 faire{
            res1<-0
            POUR i de 0 a nb-1 faire{
                res1<--res1+t[i][j]
            }finPOUR
            si test != res1{
                alors stop <- 0
            }FINSI
            ctp++
        }fin pour
        i<--0
        k<--0
        j<--0
        res1<-0
        POUR k de 0 a nb-1 faire{
            res1<--res1+t[i+k][j+k]
            si test != res1{
                alors stop <- 0
            } FINSI

        } fin pour
        ctp++
        i<--0
        k<--0
        j<--0
        res1<-0
        POUR k de 0 a nb-1 faire{
            res1<--res1+t[nb-k-1][k]
            si test != res1{
                alors stop <- 0
            }fin SI
        }fin pour
        cpt++
    //}FINTANTQUE


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

FIN