Discussion :

[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.

[Flodelarab]

Bonjour,

de quelles erreurs parles-tu ? Donne un exemple.

[gvasseur58]

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

[Roland Chastain]

Bonsoir !

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

Joyeuses Pâques !

[gvasseur58]

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

[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

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

[gvasseur58]

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

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

[Alcatîz]

Bonjour,

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.