Programme manipulation de matrice

Version imprimable

bonjour,
pouvez-vous m'aidez a faire un programme qui transforme une matrice simple (carré) en la meme matrice sauf qu'on doit prendre le losange qui est dont le tableau et le remplir en 0 exemple:
nous avons un tableau [5,5]

Code:

1
2
3
4
5
1	 2	3        4       5
6	 7  	8	 9	10
11	12	13	14	15
16	17	18	19	20
21	22	23	24	25

tous ce qui est en rouge doit devenir des 0
après l'exécution il doit affiché:

Code:

1
2
3
4
5
1	 2	 0	 4	 5
6	 0	 0      0       10
0	0	0	0	0
16	0	0	0	20
21	22	0	24	25

d'après moi en doit prendre les diagonale des quatres petites matrice pour tracés le losange mais pour le remplir ,je c'est pas?
voila:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
program matrice;
uses crt;
var
a : array [1..50,1..50] of integer;
m,i,j,n : integer;
begin
gotoxy (10,10);
textcolor (3);
textbackground (12);
write;
writeln ('                       donner la taille du tableau                ');
write;
readln (n);
write;
writeln ('                  donner les valeur du tableau');
for i:=1 to n do
    begin
         for j:=1 to n do
         read (a[i,j]);
    end;
m:= n div 2;
 
     for i:=1 to m do
         begin
         for j:=1 to m do
             a[m-i+1,m-j+1]:=0;
         end;
 
     for m:=n div 2 to n do
            begin
            for j:=1 to m do
                a[i,i]:=0;
            end;
 
     for i:=1 to m do
           begin
           for m:= n div 2 to n do
               a[i,i]:=0;
           end;
     for m:=n div 2 to n do
           a[n-m+1,n-m+1]:=0;
 
write;
writeln ('                       le tableau apres ');
for i:=1 to n do
    begin
         for j:=1 to n do
         writeln (a[i,j]);
    end;
end.

MERCI POUR VOTRE AIDE.

10/04/2009, 13h04
Alcatîz
Bonjour,

Il y a moyen de faire plus simple. ;)

La première chose à faire est de calculer l'indice de la médiane, qui vaut :

Code:

Centre := n div 2 + n mod 2;

Ensuite, essaye de faire ton exercice sur papier, en raisonnant ligne par ligne (par exemple, sur une matrice 7 * 7) :
- Ligne 1 : mettre à 0 la cellule du milieu (d'indice Centre)
- Ligne 2 : mettre à 0 de (Centre - 1) à (Centre + 1)
- Ligne 3 : mettre à 0 de (Centre - 2) à (Centre + 2) - Tu repères la variable qui s'incrémente ?
- Ligne 4 (médiane) : mettre à 0 de (Centre - 3) à (Centre + 3), c'est-à-dire la ligne complète
- Ligne 5 : mettre à 0 de (Centre - 2) à (Centre + 2) - La variable se décrémente à présent
- Ligne 6 : mettre à 0 de (Centre - 1) à (Centre + 1)
- Ligne 7 : mettre à 0 la cellule du milieu, c'est-à-dire de (Centre - 0) à (Centre + 0)
Avec ceci, tu devrais trouver un algorithme assez simple avec deux boucles imbriquées : la boucle externe, qui fait varier le n° de ligne de 1 à n, et la boucle interne qui fait varier la distance par rapport au centre, d'abord positivement puis, lorsque le n° de ligne dépasse la médiane, négativement. ;)

Pour terminer, il faut envisager le cas d'une matrice de largeur paire et ajouter un test dans chacune des boucles imbriquées pour gérer ce cas.

Citation:

Envoyé par Alcatîz

Bonjour,

[*]Ligne 1 : mettre à 0 la cellule du milieu (d'indice Centre)[*]Ligne 2 : mettre à 0 de (Centre - 1) à (Centre + 1)[*]Ligne 3 : mettre à 0 de (Centre - 2) à (Centre + 2) - Tu repères la variable qui s'incrémente ?[*]Ligne 4 (médiane) : mettre à 0 de (Centre - 3) à (Centre + 3), c'est-à-dire la ligne complète

bonsoir;
pour les quartes première ligne j'ai pu réaliser le programme mais pour les autre ligne (i> médiane) j'ai fait la négation du premier semi losange ,lors de l'exécution le pascal c'est bloqué et j'ai pas enregistré:aie::bug: en tout cas j'ai ressayais de le refaire et voila ce que a donné :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 program matrice; uses crt; var a : array [1..50,1..50] of integer; k,centre,i,j,n : integer; begin gotoxy (10,10); textcolor (3); textbackground (12); write; writeln (' donner la taille du tableau '); write; readln (n); write; writeln (' donner les valeur du tableau'); for i:=1 to n do begin for j:=1 to n do read (a[i,j]); end; centre:=( n div 2+ n mod 2); for i:=1 to (n div 2 +n mod 2) do begin for j:=1 to n do begin if j<=(n div 2 + n mod 2) then begin a[i,centre]:=0; centre:=centre-1; end else begin a[i,centre]:=0; centre:=centre+1; end; end; end; write; writeln (' le tableau apres '); for i:=1 to n do begin for j:=1 to n do writeln (a[i,j]); end; Readln; end.
j'espère que c'est pas trois demandé de voir qu'est-ce-que il me manque dans la boucle pour transformé le premier semi-losanage?,svp:?

Allez, tu n'es pas loin de la solution. ;)

Tu as déclaré un indice k, tu peux l'utiliser. Dans ce qui suit, i est le n° de ligne, j la "distance" par rapport à la médiane verticale et k simplement le n° de colonne des cellules à zéroter :
Code:

1 2 3 4 5 6 7 8 9 10 11 j := 0; for i := 1 to n do begin for k := (Centre - j) to (Centre + j) do a[i,k] := 0; if i < Centre then { Le losange s'élargit } j := j + 1 else { La médiane est dépassée, le losange rétrécit } j := j - 1; end;
Autre chose : tu affiches deux fois ta matrice et écris donc deux fois le même code. Ce serait une bonne chose de créer une procédure qui affiche la matrice et d'appeler celle-ci deux fois. ;)

:salut:

Citation:

Envoyé par Alcatîz

Autre chose : tu affiches deux fois ta matrice et écris donc deux fois le même code. Ce serait une bonne chose de créer une procédure qui affiche la matrice et d'appeler celle-ci deux fois. ;)

J'ai pas bien compris ce que tu veut dire par affiché la matrice deux fois ,j'ai fait une procédure et voila ce que sa a donné:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 program matrice; uses crt; type mat = array [1..50,1..50] of integer; var a : array [1..50,1..50] of integer; centre,i,j,n : integer; procedure losange (i,j : integer;a: mat); var k : integer; begin j:=0; centre:=( n div 2+ n mod 2); for i:=1 to (n div 2+n mod 2) do {normalement c'est ca et c'est tout les ligne 1--->n,mais lors de l'execution c'est le meme resultat en-tout-ca sa m'aide pour faire l'autre moitié} begin for k:=(centre-j) to (centre+j) do begin a[i,k]:=0; if i<(n div 2 +n mod 2) then begin {je doit faire un begin et un end pour que je puisse écrire else pourquoi je c'est pas?, 'pourtant j'ai qu'une seul instruction'} j:=j+1; end else begin j:=j-1; end; end; end; end;
aussi pour appelai la procédure j'ai une erreur de type car la procédure ne peut pas avoir comme en sortie ou entré des type structuré encore moins un tableau a deux D.:roll:

12/04/2009, 22h35
Alcatîz

Ahum, je ne sais pas pourquoi, j'ai cru que tu affichais la matrice deux fois : avant et après la transformation. Désolé, oublie cette histoire de procédure. :oops:
12/04/2009, 22h45
cobra150
Citation:

Envoyé par Alcatîz

Ahum, je ne sais pas pourquoi, j'ai cru que tu affichais la matrice deux fois : avant et après la transformation. Désolé, oublie cette histoire de procédure. :oops:

hahaha, lol tu ma envoyé contre pied ,bref c'est pas grave:lol:,moi ce que je voulez surtout comprendre c'est pourquoi vous avez fait en

Code:

for i:=1 to n

et lord du résultats il affiche rien que la moitié de la matrice, je c'est pas tros mais je panse que c'est ça le probleme normalement l'algorithme que tu m'a donner il doit affiché ça:
Code:

1 2 3 4 5 1 2 0 4 5 6 0 0 9 10 0 0 0 0 0 16 17 18 0 20 21 22 0 24 25
????? " je me suis perdu lol"
12/04/2009, 22h49
cobra150
J'ai éssaiyé de faire
Code:

1 2 3 4 5 6 for i:=1 to (n div 2 + n mod 2) begin . . . ....end;
la premier boucle ensuite
Code:

1 2 for i:=(n div 2 + n mod 2) beg........end;
affiché le tableau a
et il maffiche rien que la premier moitié de la matrice
si comme si que la deuxième boucle est en plus.

Le code ci-dessous fonctionne pour une matrice de taille impaire. Pour gagner du temps, je la remplis avec des nombres aléatoires (non nuls) au lieu de saisir les éléments au clavier et tu remarqueras que j'ai fait une procédure qui affiche la matrice avant et après la modification. :P

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Program Losange;
 
Uses Crt;
 
Type Mat = Array [1..50,1..50] of Integer;
 
Var a : Mat;
    n, Centre : Integer;
    i, j, k : Integer;
 
Procedure Affichage (Matrice : Mat; Largeur : Integer);
(* Affichage de la matrice *)
Var i, j : Integer;
Begin
  for i := 1 to Largeur do
    begin
      for j := 1 to Largeur do
        Write(Matrice[i,j]:3);
      WriteLn;
    end;
End;
 
Begin
  Randomize;
  (* Lecture de la largeur de la matrice *)
  Write('Largeur de la matrice (max 50) : ');
  ReadLn(n);
  (* Remplissage aléatoire *)
  for i := 1 to n do
    for j := 1 to n do
      a[i,j] := Random(9) + 1;
  (* Affichage de la matrice avant modification *)
  WriteLn;
  WriteLn('Matrice avant modifications :');
  Affichage(a,n);
  (* Calcul de l'indice de la médiane *)
  Centre := n div 2 + n mod 2;
  (* Remplissage du losange central par des 0 *)
  j := 0;
  for i := 1 to n do
    begin
      for k := (Centre - j) to (Centre + j) do
        a[i,k] := 0;
      if i < Centre
         then   { Haut de la matrice : le losange s'élargit }
           j := j + 1
         else   { Bas de la matrice : le losange rétrécit }
           j := j - 1;
    end;
  (* Affichage de la matrice modifiée *)
  WriteLn;
  WriteLn('Matrice après modifications :');
  Affichage(a,n);
  ReadLn;
End.

13/04/2009, 20h40
cobra150

Merci bcp GG Programme:king: