prog polynome + complexes

Bonjour,
J'ai deux programmes a vous proposer et en même j'aimerais qu'on "m'aide".
Je préviens tout de suite, ce sont mes 2 premiers programmes que je fais seul donc ils vont peut-etre vous choquer^^
La touche qui fait fleche frac, je la noterais =frac
1er programme
Delta:
Prontp A,B,C
B²-4AC-D
Disp "DELTA=",D
Pause
If D0
Then
Disp " 2SOL"
Disp "X1=",((-B)+racine(D))/(2A))=frac
Disp "X2=",((-B)-racine(D))/(2A))=frac
Else
Pause
If D=0
Then
Disp "1 SOL"
Disp "X=",((-B)/(2A))=frac
Else
Pause
If DO
Then
Disp " 2 SOL CONJUG"
Disp "Z1=",(((-B)+i racine(-D))/(2A))=frac
Disp "Z2=",(((-B)-i racine(-D))/(2A))=frac
Pause
End
Voila donc pour le premier, et j'aimerais qu'il m'afiche les solutions sous forme de fractions irréductibles, et non avec des décimales, car malgré le =frac, il me l'affiche comme ca par exemple:
X1= -0.888952 ou Z1= -1/10 + 1.188569i
Je posterais le second d'ici la fin de l'apres midi
J'ai deux programmes a vous proposer et en même j'aimerais qu'on "m'aide".
Je préviens tout de suite, ce sont mes 2 premiers programmes que je fais seul donc ils vont peut-etre vous choquer^^
La touche qui fait fleche frac, je la noterais =frac
1er programme
Delta:
Prontp A,B,C
B²-4AC-D
Disp "DELTA=",D
Pause
If D0
Then
Disp " 2SOL"
Disp "X1=",((-B)+racine(D))/(2A))=frac
Disp "X2=",((-B)-racine(D))/(2A))=frac
Else
Pause
If D=0
Then
Disp "1 SOL"
Disp "X=",((-B)/(2A))=frac
Else
Pause
If DO
Then
Disp " 2 SOL CONJUG"
Disp "Z1=",(((-B)+i racine(-D))/(2A))=frac
Disp "Z2=",(((-B)-i racine(-D))/(2A))=frac
Pause
End
Voila donc pour le premier, et j'aimerais qu'il m'afiche les solutions sous forme de fractions irréductibles, et non avec des décimales, car malgré le =frac, il me l'affiche comme ca par exemple:
X1= -0.888952 ou Z1= -1/10 + 1.188569i
Je posterais le second d'ici la fin de l'apres midi