Inscription / Connexion Nouveau Sujet
Q basic
Bonjour
J'essaie de m'initier à la programmation sur q basic.
J'ai déja reçu de l'aide mais ça n'est pas toujours très facile.
Quelqu'un pourrait-il me montrer le programme pour un problème comme celui de l'énigmo n°188 de Jamo (nombres presque carrés) ?
Dans sa réponse, RMX avait donné une méthode, mais sous mathématica, et je n'ai pas réussi à l'adapter au q basic.
Merci si vous pouvez m'aider, mais aussi, si possible, en notant également ce que signifie les termes du programme pour que je puisse essayer de comprendre.
Encore merci à tous
Joël.
édit Océane : forum modifié
Bonjour Joël,
'188. bas
DIM n AS LONG, a AS DOUBLE, r AS DOUBLE
CLS
n = 5&
WHILE n < 40000&
a = 2# * n * n - 1
r = SQR(a)
IF INT(r) = r THEN
PRINT a - 1
END IF
n = n + 1
WEND
END
En QBasic : (sous Dos)
Une bonne habitude est de typer ses variables.
n étant <40000& <2^31, n sera donc un long(4 octets) car un entier (2 octets) se doit d'être <32768=2^15
2*n*n risque de donner un overflow (=>un double pour la précision)
Pq mettre 2#: car le calcul de 2*n*n-1 doit se faire en double =>commencer par un double (2#).
J'espère avoir été assez clair.
Bonjour Caylus
Je te remercie pour ta réponse si rapide.
Je vais la taper dans bloc note car j'ai vu que q basic se met en qzerty,et essayer de comprendre.
C'est très gentil de ta part.
Bonne journée
Joël
Annuler
connectez vous