hg Register Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet

Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index

hg Revision tunisie scolaire Bac Tunisie Algorithmique et programmation TIC réseaux php javascript sql access activités programmation c
hg
FAQ FAQ Search Search Memberlist Memberlist Usergroups Usergroups Profile Profile Log in to check your private messages Private Messages Log in Log in


 Forum de l'excellence et l'excellence en innovation 
Pour participer à notre Forum révision tunisie , 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
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯)
hg Previous topic :: Next topic   hd
Author Message
dadi


Offline

Joined: 21 Mar 2010
Posts: 11
Point(s): 12
Moyenne de points: 0

Posted: Tue 4 May - 22:52 (2010)    Post subject: solution carrée magique Reply with quote

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
Publicité






Posted: Tue 4 May - 22:52 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Wed 5 May - 14:24 (2010)    Post subject: solution carrée magique Reply with quote

bien bien merci dadi pour ce partage   Okay Okay Okay

 
Revenir en haut
Disdous


Offline

Joined: 22 Feb 2010
Posts: 43
Point(s): 43
Moyenne de points: 0

Posted: Wed 5 May - 20:47 (2010)    Post subject: solution carrée magique Reply with quote

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

 
Revenir en haut
Disdous


Offline

Joined: 22 Feb 2010
Posts: 43
Point(s): 43
Moyenne de points: 0

Posted: Sun 9 May - 03:07 (2010)    Post subject: solution carrée magique Reply with quote

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


 
Revenir en haut
arine_samara


Offline

Joined: 01 May 2010
Posts: 11
Point(s): 11
Moyenne de points: 0

Posted: Mon 10 May - 16:51 (2010)    Post subject: solution carrée magique Reply with quote

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


Offline

Joined: 01 May 2010
Posts: 11
Point(s): 11
Moyenne de points: 0

Posted: Mon 10 May - 16:52 (2010)    Post subject: thx Reply with quote

Razz Razz Razz Razz

 
Revenir en haut
aloulou


Offline

Joined: 17 Mar 2010
Posts: 8
Masculin
Point(s): 8
Moyenne de points: 0

Posted: Wed 26 May - 20:10 (2010)    Post subject: solution carrée magique Reply with quote

ouuh walah tafja3 7ata béch ta9ra esolution lol 

 
Revenir en haut
KARIMOS
Administrateur

Offline

Joined: 02 Nov 2008
Posts: 711
Masculin
Point(s): 4,448
Moyenne de points: 0

Posted: Wed 17 Nov - 08:09 (2010)    Post subject: solution carrée magique Reply with quote

Okay Okay Okay Okay

 
Revenir en haut
Contenu Sponsorisé






Posted: Today at 00:59 (2019)    Post subject: solution carrée magique

 
Revenir en haut
Display posts from previous:   
bg bd
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> (¯`·._.·[Devoirs et séries']·._.·´¯) All times are GMT + 1 Hour
 
Page 1 of 1

 
Jump to:  
Index | Make forum | Free support forum | Free forums directory | Report a violation | Conditions générales d'utilisation