Programme qui ne renvoie rien

[tristan1551]

ben c'etait bien ça merci beaucoup

[Hamza.S]

une autre erreur sur l'utilisation de intdiv(
c'est intdiv(nombre1,nombre2) et non intdiv(nombre1/nombre2)

[tristan1551]

C'est ce que j'ai écrit dans la calculatrice mais pas sur le forum

[Hamza.S]

utilise plutôt une fonction ça sera plus rapide qu'un programme puisque tu n'affiches qu'une seule ligne

[Hamza.S]

Code: Select all

Define pgcd(a,b)=
Func
Local r
r:=a-b*intDiv(a,b)
While r≠0
  a:=b
  b:=r
  r:=a-b*intDiv(a,b)
EndWhile
b
EndFunc

pas besoin de Return pour l'afficher

[Bisam]

À la place de r:=a-b*intdiv(a,b), tu peux utiliser la fonction mod qui renvoie le reste de la division euclidienne en tapant r:=mod(a,b).

Par ailleurs, on peut réécrire le code plus simplement en faisant le test de la boucle while sur b au lieu de r.
Cela donne :

Code: Select all

Define pgcd(a,b)=
Func
Local r
While b≠0
  r:=mod(a,b)
  a:=b
  b:=r
EndWhile
a
EndFunc