Programme qui ne renvoie rien
Posted: 13 Nov 2015, 17:08
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
OU
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
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