Déterminer si une matrice carrée est triangulaire

Version imprimable

19/03/2015, 13h08
Sousou Soumia

Déterminer si une matrice carrée est triangulaire

Bonjour tout le monde. Je voudrais votre aide. J'ai essayé de résoudre l'exercice : écrire un programme en Pascal qui permet de vérifier si une matrice carrée est triangulaire ; puis de déduire si elle est diagonale. Mais finalement j'ai pas réussi à 100% puisque chaque fois je trouve des erreurs. Donc je voudrais votre aide SVP et merci d'avance.
19/03/2015, 13h53
Flodelarab

Bonjour,

de quelles erreurs parles-tu ? Donne un exemple.
05/04/2015, 16h56
gvasseur58

Citation:

Envoyé par Sousou Soumia

Bonjour tout le monde. Je voudrais votre aide. J'ai essayé de résoudre l'exercice : écrire un programme en Pascal qui permet de vérifier si une matrice carrée est triangulaire ; puis de déduire si elle est diagonale. Mais finalement j'ai pas réussi à 100% puisque chaque fois je trouve des erreurs. Donc je voudrais votre aide SVP et merci d'avance.

Bonjour,

Si tu fournis le code que tu as écrit, on pourra t'aider. Alors, on attend 8O
05/04/2015, 19h24
Roland Chastain

Bonsoir !

Je ne voudrais pas être pessimiste mais nous risquons d'attendre longtemps. :)

Joyeuses Pâques !
06/04/2015, 08h57
gvasseur58

Citation:

Envoyé par Roland Chastain

Bonsoir !

Je ne voudrais pas être pessimiste mais nous risquons d'attendre longtemps. :)

Joyeuses Pâques !

Merci et de même ! Je crois que je vais cesser d'attendre :ptdr:

juste pour le plaisir de coder

Je suis bien conscient que cette discussion est morte (RIP ) mais cela m'a donné envie de coder un petit bout de pascal
Je me suis limité à des entiers et j'ai utilisé un tableau dynamique vu que je n'ai aucune idée de la taille de la matrice.
Je met le code pour celui qui tombe ici par hasard. On peut certainement faire mieux mais je me suis bien amusé et pour moi, c'est une bonne façon de progresser !
Testé en FreePascal sous linux

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
56
57
58
59
60
61
62
63
64
 
Program test;
 uses crt;
 
 var
 I,J,N:integer ;
 mat: array of array of Integer;
 triangleSup,triangleInf :boolean;
 
 Begin
 clrscr;
 writeln('Encodage de la matrice');
 Write('orde de la matrice carree : ');
 readln(N);
 setLength(mat,N,N);{fixe les dimensions du tableau dynamique}
 {--------------- Encodage -----------------------------}
 for I:=0 to N-1 do
   begin
     writeln('ligne ',I:2);
     for J:=0 to N-1 do
     begin
       write(' cellule [',i,',',j,'] :');
       readln(mat[I,J]);
     end;
   end;
   writeln('******* Affichage de la Matrice *********************');
   for I:=0 to N-1 do
   begin
     for J:=0 to N-1 do
     begin
       write(mat[I,J]:6,' |');
     end;
     writeln;
   end;
   writeln('---------------------------');
   triangleSup := true;
   triangleInf := true;
   I:=1;J:=0;
   while triangleSup and( I<N) do
   begin
     while triangleSup and( J<I) do
     begin
        if mat[I,J]<>0 then triangleSup:=false;
        inc(J);
     end;
     J:=0;
     inc(I);
   end;
   if triangleSup then writeln('Matrice triangulaire superieure');
   I:=0;J:=1;
   while triangleInf and (I<N) do
   begin
      while triangleInf and (J<N) do
      begin
         if mat[I,J]<>0 then triangleInf:=false;
        inc(J);
      end;
 
     inc(I);
     J:=I+1;
   end;
   if triangleInf then writeln('Matrice triangulaire inferieure');
 
 End.

24/06/2015, 08h45
gvasseur58

C'est toujours sympathique de communiquer des bouts de code ! Merci.

Citation:

Envoyé par Michel

Je suis bien conscient que cette discussion est morte (RIP ) mais cela m'a donné envie de coder un petit bout de pascal
Je me suis limité à des entiers et j'ai utilisé un tableau dynamique vu que je n'ai aucune idée de la taille de la matrice.
Je met le code pour celui qui tombe ici par hasard. On peut certainement faire mieux mais je me suis bien amusé et pour moi, c'est une bonne façon de progresser !
Testé en FreePascal sous linux
25/06/2015, 18h24
Michel

Merci pour les encouragements !
25/06/2015, 22h24
Alcatîz

Bonjour,

Citation:

Envoyé par Michel

cela m'a donné envie de coder un petit bout de pascal
Je me suis limité à des entiers et j'ai utilisé un tableau dynamique vu que je n'ai aucune idée de la taille de la matrice.
Je met le code pour celui qui tombe ici par hasard. On peut certainement faire mieux mais je me suis bien amusé et pour moi, c'est une bonne façon de progresser !
Testé en FreePascal sous linux

Voilà typiquement le genre de contribution qui peut enrichir nos codes sources : http://pascal.developpez.com/telecha...80/Free-Pascal. ;)
07/07/2015, 16h49
Boubou2020

Citation:

Envoyé par Alcatîz

Bonjour,

Voilà typiquement le genre de contribution qui peut enrichir nos codes sources : http://pascal.developpez.com/telecha...80/Free-Pascal. ;)

merci bien