IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Prolog Discussion :

Simplifier l'écriture d'une équation de 2éme degré en Prolog


Sujet :

Prolog

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

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2017
    Messages : 1
    Points : 2
    Points
    2
    Par défaut Simplifier l'écriture d'une équation de 2éme degré en Prolog
    Salut, j'ai un TP en prolog pour simplifier Simplifier l'écriture d'une équation de 2éme degré: ax²+bx+c=0 mais l'écriture de ces polynômes est parfois très éloignée de cette description par exemple, si a=1, b=-1, c=0, on écrira: x²-x et non: x²-x+0
    Alors je dois écrire ce système expert en Prolog mais mon programme ne fonctionne pas
    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
    go:-    write('Donnez la valeur de A ?'),
            read(A),nl,
            write('Donnez la valeur de B ?'),
            read(B),nl,
            write('Donnez la valeur de C ?'),
            read(C),nl,
            write('Le trinome s écrit : '),
            action(A),action(B,A),action(C,B,A)
     
    action(A):- A=0,Sg2='',Coef2='',Var2='',Expo2='';
                A=1,Sg2='',Coef2='',Var2='x',Expo2=2;
                A>1,Sg2='',Coef2=A,Var2='x',Expo2=2;
                A=-1,Sg2='-',Coef2='',Var2='x',Expo2=2;
                A<-1,Sg2='-',Coef2=abs(A),Var2='x',Expo2=2.
    action(B,A):- B=0,Sg1='',Coef1='',Var1='';
                  B=1 and A=0,Sg1='',Coef1='',Var1='x';
                  B=1 and A\=0,Sg1='+',Coef1='',Var1='x';
                  B>1 and A=0,Sg1='',Coef1=B,Var1='x';
                  B>1 and A\=0,Sg1='+',Coef1=B,Var1='x';
                  B=-1,Sg1='-',Coef1='',Var1='x';
                  B<-1,Sg1='-',Coef1=abs(B),Var1='x'.
    action(C,B,A):- C=0 and abs(A)+abs(B)=0,Sg0='',Coef=0;
                    C=0 and abs(A)+abs(B)\=0,Sg0='',Coef='';
                    C>0 and abs(A)+abs(B)=0,Sg0='',Coef0=C;
                    C>0 and abs(A)+abs(B)\=0,Sg0='+',Coef0=C;
                    C<0,Sg0='-',Coef0=abs(C).

  2. #2
    Rédacteur/Modérateur
    Avatar de Trap D
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    4 942
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 4 942
    Points : 6 498
    Points
    6 498
    Par défaut
    Je ne connais pas le Prolog que vous utilisez, difficile donc de répondre.
    Mainteanant, dans les clauses vous définissez des variables Coef2 Var2 Expo2 et autres qui ne sont jamais réutilisées ni écrites donc il y a comme un gros problème !
    Pensez bien que Sg2 défini dans action(A) est totalement inconnu à l'extérieur de action(A).
    "La haine seule fait des choix" - Koan Zen
    "Il ne faut pas être meilleur que les autres, il faut être meilleur que soi." Albert Jacquard
    "Ceux qui savent où ils ont posé leur parapluie ne sont pas alcooliques." - pgibonne.
    Faites du Prolog, ça vous changera les idées !
    Ma page Prolog
    Mes codes sources commentés

    Mon avatar : La Madeleine à la veilleuse de Georges de La Tour

Discussions similaires

  1. Résoudre une équation du 3eme degré
    Par jeunehomme dans le forum Scilab
    Réponses: 4
    Dernier message: 19/03/2015, 10h01
  2. Résoudre une équation du second degré
    Par Emmanuel Delahaye dans le forum Télécharger
    Réponses: 3
    Dernier message: 04/12/2011, 03h59
  3. Résoudre et factoriser une Équation du 2 degré
    Par hassenmajor dans le forum Contribuez
    Réponses: 0
    Dernier message: 18/09/2011, 19h52
  4. Résoudre une équation du 3ème degré
    Par princesse_nadou dans le forum MATLAB
    Réponses: 4
    Dernier message: 21/04/2010, 22h27
  5. Visual basic: algo résolvant une équation du second degré
    Par mauriiice dans le forum VB 6 et antérieur
    Réponses: 15
    Dernier message: 05/12/2005, 18h16

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