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 ...
MATRICE MAGIQUE
 
 
Post new topic   Reply to topic    Forum révision Tunisie - Bac Tunisie Algorithmique et programmation , cours, devoir, exercice,edunet Forum Index -> Algorithmique & programmation -> Algorithmes récurrents
hg Previous topic :: Next topic   hd
Author Message
KARIMOS
Administrateur

Offline

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

Posted: Sun 31 Jan - 23:00 (2010)    Post subject: MATRICE MAGIQUE Reply with quote

excellent très bien et bon travail   Okay

 
Revenir en haut
Publicité






Posted: Sun 31 Jan - 23:00 (2010)    Post subject: Publicité

PublicitéSupprimer les publicités ?
 
Revenir en haut
hichem.kemali


Offline

Joined: 22 Oct 2010
Posts: 1
Masculin
Point(s): 1
Moyenne de points: 0

Posted: Sat 6 Nov - 13:34 (2010)    Post subject: MATRICE MAGIQUE Reply with quote

Program carre_magique;
uses wincrt; 
const nmax=10; 
type Mat=array[1..nmax,1..nmax] of integer; 
var M:Mat; 
n:integer; 
(*********************************************) 
Procedure saisie (Var n:integer); 
begin 
repeat 
write('Donner un entier impair : '); 
readln(n); 
until (n in [1..nmax]) and odd(n); 
end; 
(************************************************) 
Procedure carre (Var M:Mat;n:integer); 
var i,l,c:integer; 
begin 
l:=n; 
c:= (n div 2) +1; 
M[l,c]:=1; 
for i:=2 to sqr(n) do 
begin 
if i mod n =1 then l:=l-1 
else begin 
c:=(c mod n)+1; 
l:=(l mod n)+1;
end;  
M[l,c]:= i; 
end; 
end; 
(*********************************************) 
Procedure Affiche ( M:Mat;n:integer); 
var l,c:integer; 
begin 
For l:=1 to n do 
begin 
For c:=1 to n do Write( M[l,c]:3,' '); 
writeln; 
end; 
end; 
(******* Programme Principal******************) 
begin 
saisie(n); 
carre(M,n); 
Affiche(M,n); 
end.


 
Revenir en haut
KARIMOS
Administrateur

Offline

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

Posted: Sat 6 Nov - 15:49 (2010)    Post subject: MATRICE MAGIQUE Reply with quote

BONNE PROPOSITION   Okay

 
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 -> Algorithmes récurrents All times are GMT + 1 Hour
 
Page 1 of 1

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