hg S’enregistrer Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie

Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie  forum informatique Tunisie Index du Forum

hg Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Rechercher Rechercher Membres Membres Groupes Groupes Profil Profil Se connecter pour vérifier ses messages privés Messages Privés Connexion Connexion


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum, vous devez
 
inscrire sur notre forum a partir d'ici
 
  NB :
Les membres ''zéro messages'' seront supprimés automatiquement après un nombre de jours donné !!!!
             
   
 
  
forum d'aide informatique : internet, réseau, programmation informatique ...
solution carrée magique
 
 
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Sujet précédent :: Sujet suivant   hd
Auteur Message
dadi


Hors ligne

Inscrit le: 21 Mar 2010
Messages: 12
Point(s): 13
Moyenne de points: 0

Posté le: Mar 4 Mai - 22:52 (2010)    Sujet du message: solution carrée magique Répondre en citant

PublicitéSupprimer les publicités ?
slt, j'ai la solution du la probleme carrée magique



program magique;
uses wincrt;
type
mat=array[1..20,1..20]of integer;
mat2=array[1..20,1..20]of boolean;
var
m:mat;
mt:mat2;
s,n:integer;


procedure lecture(var n:integer);
          begin
          repeat
          write('Donner la valeur de dimension de la matrice n : ');readln(n);
          until(n mod 2 <>0)
          end;


procedure matrice_bool(var mt:mat2;n:integer);
          var
          i,j:integer;
          begin
          for i:=1 to n do
              for j:=1 to n do
              mt:=true;
          end;


function test(mt:mat2;i,j:integer):boolean;
         var
         t:boolean;
         begin
         if mt=true then t:=true
                         else t:=false;
         test:=t;
         end;


procedure remplir(var m:mat;var mt:mat2;n:integer);
          var
          k,i,j,mil:integer;
          begin
          mil:=n div 2 +1;
          k:=1;
          m[1,mil]:=k;
          mt[1,mil]:=false;
          i:=n+1;
          j:=mil;
          repeat
          k:=k+1;
          i:=i-1;
          j:=j-1;
          if (i=0) and (j<>0) then begin
                               i:=n;
                               if test(mt,i,j) then begin
                                                    m:=k;
                                                    mt:=false
                                                    end;
                               end
                               
         else if (j=0) and (i<>0) then begin
                               j:=n;
                               if test(mt,i,j) then begin
                                                    m:=k;
                                                    mt:=false
                                                    end;
                               end
         else if (i=0) and (j=0) then begin
                                      i:=i+2;
                                      j:=j+1;
                                      if test(mt,i,j) then begin
                                                      m:=k;
                                                      mt:=false
                                                      end;
                               end
                               else begin
                                      if test(mt,i,j) then  begin
                                                            m:=k;
                                                            mt:=false
                                                            end
                                                    else begin
                                                         i:=i+2;
                                                         j:=j+1;
                                                         m:=k;
                                                         mt:=false
                                                         end
                                    end ;
          until(k=sqr(n))
          end;




procedure affichage(m:mat;n:integer);
          var
          i,j:integer;
          begin
          for i:=1 to n do
          begin
          writeln;
          for j:=1 to n do
          write(m:7);
          end;
          end;



procedure calcul(m:mat;n:integer;var s:integer);
          var
          i,j:integer;
          begin
          i:=1;
          s:=0;
          for j:=1 to n do
          s:=s+m;
          end;


begin
lecture(n);
matrice_bool(mt,n);
remplir(m,mt,n);
clrscr;
write('Le carrée magique est : ');
writeln;
affichage(m,n);
calcul(m,n,s);
writeln;
writeln;
write('La somme des élément de chaque colonne ou chaque ligne ou chaque diagonale est : ',s);
end.


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mer 5 Mai - 14:24 (2010)    Sujet du message: solution carrée magique Répondre en citant

bien bien merci dadi pour ce partage   Okay Okay Okay

 
Revenir en haut
Disdous


Hors ligne

Inscrit le: 22 Fév 2010
Messages: 52
Point(s): 52
Moyenne de points: 0

Posté le: Mer 5 Mai - 20:47 (2010)    Sujet du message: solution carrée magique Répondre en citant

c'est quoi le carré magique? C'est SUDOKU ? 

 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Jeu 6 Mai - 15:35 (2010)    Sujet du message: solution carrée magique Répondre en citant

un carré magique d'ordre n est composé de n2 nombres entiers généralement distincts, écrits sous la forme d'un tableau carré. Ces nombres sont disposés de manière à ce que leurs sommes sur chaque rangée, sur chaque colonne et sur chaque diagonale soient égales. Un carré magique est dit normal s'il est rempli avec les nombres entiers compris entre 1 et n2 (inclus).



Dernière édition par KARIMOS le Mar 7 Sep - 17:40 (2010); édité 4 fois
 
Revenir en haut
Disdous


Hors ligne

Inscrit le: 22 Fév 2010
Messages: 52
Point(s): 52
Moyenne de points: 0

Posté le: Dim 9 Mai - 03:07 (2010)    Sujet du message: solution carrée magique Répondre en citant

Oui c'est SUDOKU !
C'est magique hein, comme la programmation <3


 
Revenir en haut
arine_samara


Hors ligne

Inscrit le: 01 Mai 2010
Messages: 13
Point(s): 13
Moyenne de points: 0

Posté le: Lun 10 Mai - 16:51 (2010)    Sujet du message: solution carrée magique Répondre en citant

ooolll non c'est pas exactement comme le SUDOKU
le principe de carrée magique c'est le suivant :
1* Pour commencer , 1 est placé à la case centrale de la première ligne
2*  Ensuite, les entiers de 2 à N² sont placés les uns après les autres dans les cases d’une diagonale orientée Nord-Ouest
3* Si on tombe hors du carré en haut, le nombre est placé dans la dernière ligne sans changer de colonne
4* Si on tombe hors du carré à gauche le nombre est placé dans la colonne de droite sans changer de ligne
5*  Si on tombe sur une case déjà occupée, le nombre est placé sous la case précédemment remplie. A chaque fois qu’un multiple de N est placé dans une case, la case destinée au nombre suivant est normalement occupée.
:kiss: :kiss: :kiss: :kiss: :kiss: ===> Pour DADI , Merciiiiiiii pour la solution
et bon chance pour vous les amis pour le bac Blanc


 
Revenir en haut
arine_samara


Hors ligne

Inscrit le: 01 Mai 2010
Messages: 13
Point(s): 13
Moyenne de points: 0

Posté le: Lun 10 Mai - 16:52 (2010)    Sujet du message: thx Répondre en citant

Razz Razz Razz Razz

 
Revenir en haut
aloulou


Hors ligne

Inscrit le: 17 Mar 2010
Messages: 8
Masculin
Point(s): 8
Moyenne de points: 0

Posté le: Mer 26 Mai - 20:10 (2010)    Sujet du message: solution carrée magique Répondre en citant

ouuh walah tafja3 7ata béch ta9ra esolution lol 

 
Revenir en haut
Dragofeu


Hors ligne

Inscrit le: 25 Mai 2010
Messages: 1
Point(s): 1
Moyenne de points: 0

Posté le: Jeu 27 Mai - 18:26 (2010)    Sujet du message: solution carrée magique Répondre en citant

Pouvez-vous me donner l'énoncé de ce prg je ne veux pas lire la solution, je veux le faire tout seul !! et merci et si vous pouvez me l'envoyez à mon e-mail atanfous@hotmail.com

Mr. Green


 
Revenir en haut
KARIMOS
Administrateur

Hors ligne

Inscrit le: 02 Nov 2008
Messages: 1 710
Masculin
Point(s): 5 479
Moyenne de points: 0

Posté le: Mer 17 Nov - 08:09 (2010)    Sujet du message: solution carrée magique Répondre en citant

Okay Okay Okay Okay

 
Revenir en haut
Contenu Sponsorisé






Posté le: Aujourd’hui à 19:24 (2016)    Sujet du message: solution carrée magique

 
Revenir en haut
Montrer les messages depuis:   
bg bd
Poster un nouveau sujet   Répondre au sujet    Bac Tunisie Algorithmique et programmation : BAC INFORMATIQUE En Tunisie forum informatique Tunisie Index du Forum -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) Toutes les heures sont au format GMT + 1 Heure
 
Page 1 sur 1

 
Sauter vers:  
Index | créer forum gratuit | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation