Carré magique.

  • KRATOS
    • KRATOS
    • 1 message
      Inscrit le 24/12/2020
    Bonsoir
    S'il-vous-plaît, quelqu'un pourrait-il avoir l'aimable gentillesse de m'expliquer un peu l'algorithme du carré magique ? Même avec la correction je n'y parviens pas très bien.
    Merci d'avance !!
  • Asnh
    • Asnh
    • 2 messages
      Inscrit le 31/12/2020
    Salut voici le principe : Un carré magique d’ordre n est composé de n² entiers strictement positifs, écrits sous la forme d’un tableau carré. Ces nombres sont disposés de sorte que leurs sommes sur chaque rangée, sur chaque colonne et sur chaque diagonale principale soient égales.
     

    Algorithme Carre_Magique ;

    const N = 5 ;

    type MatEnt = tableau [ 1..N,1..N] de entier ;

    var : j,l,col,i : entier ;

    t :MatEnt ;

    Debut

    co Réaliser par le Groupe Genius Repetition fco

    Pour i de 1 à N faire

    Pour j de 1 à N faire

    t [ i,j] := 0 ;

    fpr

    fpr

    i := 0 ; l := N div 2 ; col := ( N+ 1) div 2 ; t [ l,col] := i ;

    tantque( i < N * N ) faire

    l := l - 1 ; col := col + 1 ;

    si ( l < 0 et col > N ) alors

    l := N-1 ; col := col-1 ;

    sinon

    si ( col > N ) alors

    col :=1

    sinon

    si ( l < N ) alors

    si ( l = 1 et col = 2 ) alors

    l :=N ; col := col-1 ;

    sinon

    l :=N ;

    fsi

    fsi

    fsi

    fsi

    i := i + 1 ;

    si ( t [ l,col] = 0 ) alors

    t [ l,col] := i ;

    sinon

    l := l-1 ;

    col := col-1;

    t [ l,col] := i ;

    fsi

    ftque

    Ecricre ( ' Carré Magique !' );

    Pour i de 1 à N faire

    Pour j de 1 à N faire

    Ecricre ( t [ i,j] );

    fpr

    fpr

    Fin.



    I LOVE CODING

Répondre à ce message

Anti-spam