Sciences de l'informatique

Bienvenue dans notre forum de partage et d'échange d'information technique dans le domaine NTIC (Informatique, Programmation, Réseau, Multimédia), ce forum est destinée à tous les élèves Tunisiens
 
AccueilCalendrierFAQMembresGroupesS'enregistrerConnexion
Sujets similaires
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Derniers sujets
Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Avril 2017
LunMarMerJeuVenSamDim
     12
3456789
10111213141516
17181920212223
24252627282930
CalendrierCalendrier
Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 6 le Ven 13 Jan - 2:22

Partagez | 
 

 Exercice 7 (Algorithmes récurrents)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Dhifallah Fethi
Admin
avatar

Messages : 74
Date d'inscription : 02/03/2011

MessageSujet: Exercice 7 (Algorithmes récurrents)   Lun 28 Mar - 2:23

Exercice 7 (Algorithmes récurrents)

Matrice magique :
exemple :
4 9 2
3 5 7
8 1 6

somme des éléments d'une ligne = somme des éléments d'une colonne = somme des éléments d'une diagonale.

Correction de l'exercice

Code:
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.

sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny sunny
Revenir en haut Aller en bas
http://ntic.moontada.net
 
Exercice 7 (Algorithmes récurrents)
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» les exercice de chimie 2

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Sciences de l'informatique :: 4ème SI :: Programmation :: Exercices & Devoirs-
Sauter vers: