Pb quick basic Fermé

Question

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

Lyp · Answer

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

Pb quick basic

1 réponse

Discussions similaires