Programme qui ne renvoie rien

[tristan1551]

Bonjours bonjours j'ai depuis peu une ti nspire cx (non cas) et je n'arrive pas a programmer avec, pour nous entraîner nous devions faire un programme calculant le pgcd en math mais malheureusement le miens ne renvoie rien .
Si quelqu'un pouvait me dire le problème de mon programme je lui serais très reconnaissant merci d'avance

Code: Select all

Define PGCD(a0,b0)=
Prgm
local a,b,r
a:=a0
b:b0
ClrIO
r:=a-b*intdiv(a/b)
While r≠0
a:=b
b:=r
r:=a-b*intdiv(a/b)
EndWhile
Disp b
EndPrgm

OU

Code: Select all

Define PGCD(a0,b0)=
Func
local a,b,r
a:=a0
b:b0
r:=a-b*intdiv(a/b)
While r≠0
a:=b
b:=r
r:=a-b*intdiv(a/b)
EndWhile
Return b
EndFunc

ensuite j'écrit le nom du programme je fais enter et rien ne se passe j'ai essayé de mettre
request "a",a
request "b",a
idem rien aussi

[critor]

2 astuces :

1. N'oublie pas de valider ton code avec .
2. N'oublie pas les paranthèses pour lancer ton programme.
   Si ton programme s'appelle tristan, tu le lances en tapant tristan().

[tristan1551]

A je ne savais pas qu'il fallait faire ctrl-B. Bon maintenant le programme pgcd ne donne plus terminé mais m'indique qu'il manque des arguments :/

[critor]

est un raccourci pour valider le code.
C'est également disponible via le menu : .

Sur la boîte de message d'erreur, tu as d'autres boutons que 'Ok' ?

[tristan1551]

Quand je vérifie la syntaxe il ne m'indique aucune faute bizarrement. c'est quand je l'exécute qu'il me dit qu'il manque un ou plusieurs arguments, et sinon le popup a bien le boutons Ok.

[GalacticPirate]

Tu fais bien PGCD(34,76) par exemple avec les deux parenthèses ?
EDIT : la prochaine fois viens sur le tchat, c'est plus facile que de surcharger le forum

[tristan1551]

euh ^^ je vais de ce pas essayer xD

[tristan1551]

j'ai modifier le programme et j'ai mis request. j'ai fait ecrit pgcd(53,20) il me demande bien de valider a et b et après il me fait ( la variable n'est pas définie )

Code: Select all

Define PGCD()=
Prgm
local a,b,r
request "a",a
request"b",b
ClrIO
r:=a-b*intdiv(a/b)
While r≠0
a:=b
b:=r
r:=a-b*intdiv(a/b)
EndWhile
Disp b
EndPrgm

[Hamza.S]

il y a une erreur sur ton code, ClrIO c'est pour les 68k il n'existe pas en Basic Nspire
par-contre j'ai une question : pourquoi faire un programme d'une fonction qui existe déjà dans ta calculette?
il y a la fonction gcd(nombre1,nombre2)

[tristan1551]

Je sais bien, c'est simplement un exercice d'entrainement je vais essayer sans clrIo, pour voir.