Bug dans programme avec fonction pgcd(

Bonjour à tous, j'ai déjà posté cette question sur Tout82, mais pas de réponses concluantes...
Donc, j'ai un problème avec la fonction pgcd( en effet lorsque que je tape

Code:

pgcd(15,20

Cela me renvoie bien 5, mais quand par exemple dans un programme j'ai (avec N=1.5 et D=2 )

Code:

:10N->N
:10D->D
:pgcd(N,D

j'obtiens à chaque fois une erreur de domaine après D ou si j'ai mis

Code:

pgcd(N,D->M

L'erreur sur le -> ... vous avez une solution...? Merci

Je vois pas... tu peux nous montrez le programme ?

T'est sur que N et D ont exactement les veleures indiquées (et non à 10^-10 près? : essaye partdec(N*10^ et partdec(D*10^ : si ça vaut pas 0, rajoute ent arrondi(N,0->N et arrondi(D,0->D devant le PGCD )

Sinon donne le code complet et vérifie que tu ne t'es pas tropé de lettres.

Sandro

alrs, j'ai bien vérifié les valeurs au niveau du bug...
Sinon, le code complet: modification d'un prog de trigo, pour afficher le résultat sour forme fractionnaire, se qui ne fonctionne pas avec >Frac
Alors

Code:


:EffEcr
:Input "VALEUR?",R
:R/pi->A
:(-1-A)/2->C
:(1-A)/2->V
:(C+V)/2->Z
:arrondi(Z,0->S
:Disp "ENTIER=",S
:R+2Spi->F
:F/pi->G
:2*abs(G->N
:N/abs(G->D
:If partDéc(N)!=0 ou partDéc(D)!=0
:Then
:e10N-> N                      //e de puissance de 10
:e10D->D
:End
:pgcd(N,D->M                //erreur domaine...
:N/M->N
:D/M->D
:If G<0
:0-N->N
:Disp "ANGLE=
:Output (5,8,N
:Output (5,11,"pi/
:Output (5,13,D
:Pause
:ClrHome

bon le code est sale, pas encore bien structuré, mais voilà en gros.

Essaye ça:

Code:


:EffEcr
:Input "VALEUR?",R
:R/pi->A
:(-1-A)/2->C
:(1-A)/2->V
:(C+V)/2->Z
:arrondi(Z,0->S
:Disp "ENTIER=",S
:R+2Spi->F
:F/pi->G
:2*abs(G->N
:N/abs(G->D
:If partDéc(N)!=0 ou partDéc(D)!=0
:Then
:arrondi(e10N,0-> N                      //e de puissance de 10  //modif ici
:arrondi(e10D,0->D                                                            //et là
:End
:pgcd(N,D->M                //erreur domaine...
:N/M->N
:D/M->D
:If G<0
:0-N->N
:Disp "ANGLE=
:Output (5,8,N
:Output (5,11,"pi/
:Output (5,13,D
:Pause
:ClrHome

Sandro

Oui, je viens de voir ton message sur Tout82, merci beaucoup, c'est la solution!

Remercie sandro grâce au bouton merci si tu veux.

Punaise, je n'avais jamais vu ce bouton x) Merci!

Il n'apparaît que dans les forums où il est utile.

Je verrouille car la réponse est obtenue.