Discussion :

[madaou]

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!

[darrylsite]

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

[madaou]

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

Voici mon programe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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