Pb quick basic
hepsilonz
-
Lyp -
Lyp -
Bonjour je débute en programmation j'ai choisi le quick basic, mon premier programme a pour but de calculer la somme des multiples de 6 compris entre 1225 et 42100. Mon problème est que je ne sais obliger le programme a écrire toutes les solution dans un fichier voila ma source:
cls
dim k as long
dim x as long
for x=1225 to 42100
for k=205 to 7017
if x=k*6 then
open "fichier.txt" for output as #1
print #1, x
close #1
endif
next
next
end
est-il possible de faire directement la somme de tout les x ? si oui comment?
Merci de votre aide
cls
dim k as long
dim x as long
for x=1225 to 42100
for k=205 to 7017
if x=k*6 then
open "fichier.txt" for output as #1
print #1, x
close #1
endif
next
next
end
est-il possible de faire directement la somme de tout les x ? si oui comment?
Merci de votre aide
1 réponse
-
Salut
déja je serais parti d'un multiple
pour ton cas c'est 205*6 qui est égal a 1230
pour tester un multiple on regarde son modulo(reste d'une division)
if (x MOD 6 =0) then 'x est bien un multiple de 6
cls
dim k as long
dim x as long
'l'ouvre qu'une fois
open "fichier.txt" for output as #1
for x=1230 to 42100 step 6 'pas de 6
k=k+x
print #1, x 'x
print #1,k ' somme des x
next
close #1
end
en gros ça devrait fonctionner
Si tu débutes fait un tour sur mon site
il existe un langage qui ressemble a qbasic mais qui te permet de faire du fenetré comme VB sans les dlls de plus tout est gratuit
http://j.lypstenger.free.fr
@+JM
