1. #1
    Nouveau Candidat au Club
    Femme Profil pro
    Étudiant
    Inscrit en
    mars 2015
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 21
    Localisation : Algérie

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : mars 2015
    Messages : 1
    Points : 0
    Points
    0

    Par défaut 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.

  2. #2
    Expert confirmé Avatar de Flodelarab
    Homme Profil pro
    Inscrit en
    septembre 2005
    Messages
    2 571
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Charente (Poitou Charente)

    Informations forums :
    Inscription : septembre 2005
    Messages : 2 571
    Points : 5 997
    Points
    5 997

    Par défaut

    Bonjour,

    de quelles erreurs parles-tu ? Donne un exemple.
    Cette réponse vous plaît? Cliquez sur en bas à droite du message.
    Votre problème est résolu? Cliquez sur en bas de page.

    Linux, grep/sed/awk/xml... et autres fichiers plats, Java, C++

  3. #3
    Responsable Delphi

    Avatar de gvasseur58
    Homme Profil pro
    Cultivateur de code (bio)
    Inscrit en
    février 2013
    Messages
    941
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Cultivateur de code (bio)
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 941
    Points : 10 781
    Points
    10 781
    Billets dans le blog
    31

    Par défaut

    Citation Envoyé par Sousou Soumia Voir le message
    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
    Accès à mon site et à mon blog. Actualités, cours et ressources Delphi, Lazarus et Pascal.
    Pensez à la balise - Quelqu'un vous a aidé ou vous appréciez une intervention ? Pensez au

  4. #4
    Rédacteur/Modérateur

    Avatar de Roland Chastain
    Homme Profil pro
    Enseignant
    Inscrit en
    décembre 2011
    Messages
    2 954
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France, Moselle (Lorraine)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : décembre 2011
    Messages : 2 954
    Points : 10 748
    Points
    10 748
    Billets dans le blog
    4

    Par défaut

    Bonsoir !

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

    Joyeuses Pâques !

  5. #5
    Responsable Delphi

    Avatar de gvasseur58
    Homme Profil pro
    Cultivateur de code (bio)
    Inscrit en
    février 2013
    Messages
    941
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Cultivateur de code (bio)
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 941
    Points : 10 781
    Points
    10 781
    Billets dans le blog
    31

    Par défaut

    Citation Envoyé par Roland Chastain Voir le message
    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
    Accès à mon site et à mon blog. Actualités, cours et ressources Delphi, Lazarus et Pascal.
    Pensez à la balise - Quelqu'un vous a aidé ou vous appréciez une intervention ? Pensez au

  6. #6
    Membre averti

    Homme Profil pro
    formateur web, linux
    Inscrit en
    mars 2002
    Messages
    200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : Belgique

    Informations professionnelles :
    Activité : formateur web, linux
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2002
    Messages : 200
    Points : 355
    Points
    355
    Billets dans le blog
    1

    Par défaut 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 : 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.

  7. #7
    Responsable Delphi

    Avatar de gvasseur58
    Homme Profil pro
    Cultivateur de code (bio)
    Inscrit en
    février 2013
    Messages
    941
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Isère (Rhône Alpes)

    Informations professionnelles :
    Activité : Cultivateur de code (bio)
    Secteur : Enseignement

    Informations forums :
    Inscription : février 2013
    Messages : 941
    Points : 10 781
    Points
    10 781
    Billets dans le blog
    31

    Par défaut

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

    Citation Envoyé par Michel Voir le message
    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
    Accès à mon site et à mon blog. Actualités, cours et ressources Delphi, Lazarus et Pascal.
    Pensez à la balise - Quelqu'un vous a aidé ou vous appréciez une intervention ? Pensez au

  8. #8
    Membre averti

    Homme Profil pro
    formateur web, linux
    Inscrit en
    mars 2002
    Messages
    200
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : Belgique

    Informations professionnelles :
    Activité : formateur web, linux
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2002
    Messages : 200
    Points : 355
    Points
    355
    Billets dans le blog
    1

    Par défaut

    Merci pour les encouragements !

  9. #9
    Responsable Pascal, Delphi et Assembleur


    Avatar de Alcatîz
    Homme Profil pro
    Ressources humaines
    Inscrit en
    mars 2003
    Messages
    7 214
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 50
    Localisation : Belgique

    Informations professionnelles :
    Activité : Ressources humaines
    Secteur : Service public

    Informations forums :
    Inscription : mars 2003
    Messages : 7 214
    Points : 49 940
    Points
    49 940
    Billets dans le blog
    2

    Par défaut

    Bonjour,
    Citation Envoyé par Michel Voir le message
    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.
    Règles du forum
    Cours et tutoriels Pascal, Delphi, Lazarus et Assembleur
    Avant de poser une question, consultez les FAQ Pascal, Delphi, Lazarus et Assembleur
    Mes tutoriels et sources Pascal

    Le problème en ce bas monde est que les imbéciles sont sûrs d'eux et fiers comme des coqs de basse cour, alors que les gens intelligents sont emplis de doute. [Bertrand Russell]

  10. #10
    Membre éclairé

    Homme Profil pro
    Auditeur informatique
    Inscrit en
    novembre 2014
    Messages
    485
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Auditeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : novembre 2014
    Messages : 485
    Points : 793
    Points
    793
    Billets dans le blog
    2

    Par défaut

    Citation Envoyé par Alcatîz Voir le message
    Bonjour,

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

Discussions similaires

  1. Inversion et déterminant d'une matrice
    Par coline dans le forum Général Algorithmique
    Réponses: 16
    Dernier message: 23/06/2006, 09h01
  2. Sous matrice carrée d'une matrice carrée
    Par devils55 dans le forum C++
    Réponses: 2
    Dernier message: 13/11/2005, 19h07
  3. Initialisation d'une matrice carrée (malloc...)
    Par kilinette dans le forum C
    Réponses: 4
    Dernier message: 17/10/2005, 19h57
  4. [Matrices] Comment calculer le Déterminant d'une matrice 4x4
    Par cyber_N dans le forum Général Algorithmique
    Réponses: 70
    Dernier message: 19/08/2005, 15h47
  5. [Débutant] Calculer le déterminant d'une matrice
    Par v4np13 dans le forum Mathématiques
    Réponses: 7
    Dernier message: 30/05/2005, 17h24

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo