Utiliser une matrice ou un tableau ?

Version imprimable

15/11/2008, 20h10
madaou

Utiliser une matrice ou un tableau ?

salut a tout monde
pardon je ne pas parle pas bien français
je cherche une procédure qui découpe la matrice en deux parties
les zeros en une partie et le les autres nombres dans la deuxième partie .
merci!
15/11/2008, 20h42
darrylsite

A dire vrai, je n' arrive pas du tout à comprendre ton probleme. Si quelqu' un pouvait nous le traduire.

Citation:

Envoyé par darrylsite

A dire vrai, je n' arrive pas du tout à comprendre ton probleme. Si quelqu' un pouvait nous le traduire.

Voici mon programe

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
 
program tab;
uses wincrt;
 
               var  note:array[1..2,1..2] of real;
               j,i,r,h:integer;
               a:real;
               b:boolean;
 
               begin
               {saisie du tableau}
               for i:=1 to 2 do
               for j :=1 to 2 do
               begin
               writeln ('entrez une note');
               readln (note[i,j]);
               end;
 
 
 
 b:=false;
                while (i < 2) and (j<2) and b=false  do
                begin
                r:=i+1;
                h:=j+1;
 
               if note[i,j]<>0 then
               begin
               a:= note[i,j];
               note[i,j]:=note[r,h];
               note[r,h]:=a;
               i:=i+1;
               j:=j+1;
               end
               else b:=true;
               end;
 
 
   for  i:=1 to 2 do
   for  j:=1 to 2 do
   writeln (note[i,j]);

ou le probleme

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 tab;
 
uses wincrt;
 
var note:array[1..2,1..2] of real;
 
    j,i,r,h:integer;
    a:real;
    b:boolean;
 
begin
clrscr;
 
{saisie du tableau}
for i:=1 to 2 do
 for j :=1 to 2 do
  begin
   write ('entrez la note[',i,',',j,'] : ');
   readln (note[i,j]);
  end;
 
b:=false;
while (i < 2) and (j<2) and (not b) do
begin
 r:=i+1;
 h:=j+1;
 
 if note[i,j]<>0 then
  begin
  a:= note[i,j];
  note[i,j]:=note[r,h];
  note[r,h]:=a;
  i:=i+1;
  j:=j+1;
  end
 else
  b:=true;
end;
 
writeln;
 
 for i:=1 to 2 do
  begin
   for j:=1 to 2 do
   write (note[i,j]:5:2,'  ');
  writeln;
  end;
readln
end.

bien que je ne comprend pas encore le probleme, je vois qu' il y a un os dans le code:

Citation:

b:=false;
while (i < 2) and (j<2) and (not b) do

A la sortie de la boucle for, i et j sont superieures à 2. Ce qui fait que la condition sera toujours false.

16/11/2008, 01h45
droggo

Qoe,

Citation:

Envoyé par darrylsite

bien que je ne comprend pas encore le probleme, je vois qu' il y a un os dans le code:

A la sortie de la boucle for, i et j sont superieures à 2. Ce qui fait que la condition sera toujours false.

C'est un fait, mais dans la définition du Pascal, la valeur de la variable contrôlant une boucle n'est pas garantie à la sortie de cette boucle.

C'est un fait également que je ne connais pas de compilateur Pascal conduisant à une valeur imprévisible d'une telle variable à la sortie de la boucle, donc ... :)
16/11/2008, 18h31
diden138

Re
bonjour,

Citation:

C'est un fait, mais dans la définition du Pascal, la valeur de la variable contrôlant une boucle n'est pas garantie à la sortie de cette boucle.

8O ben oui elle est connu, puisque l'instruction for je rappel à pour but d'incrémenter/décrémenter une variable à partir d'une borne inférieur/supérieur tout en exécutant à chaque foi les instructions qui se trouve dans la boucle.

Citation:

C'est un fait également que je ne connais pas de compilateur Pascal conduisant à une valeur imprévisible d'une telle variable à la sortie de la boucle, donc ...

c'est sur ...
donc avant le while faut réinitialiser tes variables, ensuite pour ton problème si j'ai bien compris tu veux ranger ta matrice de sorte que par exemple:
Code:

1 2 3 Si ta M=0 2 la matrice deviendra M=0 2 1 0 0 1
Si c'est ça je n'ai pas bien regarder ton code (illisible, pas de commentaire,pas d'indentation,pas d'espaces...etc) ça ira mais y a plus simple.
Cordialement,
16/11/2008, 19h32
droggo

Xoe,

Citation:

Envoyé par diden138

ben oui elle est connu, puisque l'instruction for je rappel à pour but d'incrémenter/décrémenter une variable à partir d'une borne inférieur/supérieur tout en exécutant à chaque foi les instructions qui se trouve dans la boucle.

Elle est connue parce que tous les compilateurs le font, mais la norme Pascal ne garantit pas sa valeur à la sortie de la boucle.

On s'en fout carrément, puisque on peux toujours compter sur sa valeur, mais attention quand même au piège du break (ou du goto, beuark) pour sortir de la boucle.
19/11/2008, 20h37
madaou

Mais je tiens à l'ordre la matrice
Un numéro zero (0) ci-dessous (a fin matrice);
19/11/2008, 21h50
krachik

Tout ça n'est pas très claire tu peux présenter l'affichage d'un résultat possible pour qu'on sache exactement ce que tu veux obtenir en sortie?