Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- /*
- 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 :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 faire{
- res1<-0
- POUR j de 0 a nb-1 faire{
- res1<--res1+t[i][j]
- res2<--res2+t[j][i]
- }finPOUR
- si (test != res1 || test !=res2{
- alors stop <- 0
- }finSI
- }fin pour
- }fin pour
- i<--0
- k<--0
- j<--0
- res1<-0
- res <--0
- POUR k de 0 a nb-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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement