Le but est de les déterminer pour y<n où n est un entier non nul donné.
Pour y=0, ça ne marche pas donc on commence à y=1 et il suffit alors de vérifier pour quelles valeurs entières de y ( supérieur ou égal à1), x=sqrt(13y²-1) est entier.
Voilà mon programme :
- Code: Select all
Define hyperbole(n)
Prgm
local y
For y,1,n
If sqrt(13*y²-1) = floor ( sqrt(13*y²-1) ) Then Disp ( sqrt(13*y²-1) , y)
End If
End For
End Prgm
Il y a une erreur de syntaxe mais je n'arrive pas à la voir. Ca doit probablement être évident mais j'y connais pas grand chose..
J'ai aussi une question plus générale : peut-on créer des programmes sans argument?
Merci d'avance à ceux qui pourront m'apporter de l'aide.