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