> Tous les forums > Forum Windows XP
 Besoin d'aide pour qbsic 4.5Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
qbasic45
  Posté le 25/04/2013 @ 23:58 
Aller en bas de la page 
Petit astucien

Salut à tous

Besoin d'aide pour qbsic 4.5
je voudrais un programmes
donc une donner est

a$="123456789" donner de depart

il devrais faire deplaser les numero de place

1) 123456789
2) 123456798
3) 123456879
4) 123456897
5) 123456978
6) 123456987

jusque il arrive a

?) 987654321

Merci de votre aide

Publicité
mipierre
 Posté le 26/04/2013 à 09:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Bonjour !

Ton explication n'est pas claire du tout !

Perso, je ne comprends pas ce que tu attends de nous.

Ce qui se conçoit bien s'énonce clairement et les mots pour le dire viennent aisément !

Réexprime ta demande de façon compréhensible !

fgondard
 Posté le 26/04/2013 à 12:08 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

Et il y a un forum spécialisé pour l'aide à la programmation : Autres langages. Demande le déplacement de ta question au modérateur.

FG

meringue88
 Posté le 27/04/2013 à 00:09 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Ca devrait marcher :

a$="123456789"

cls

Print " 0 : ";a$

For a=1 to 9

a$=right$(a$,8)+left$(a$,1)

Print a;": ";a$

next



Modifié par meringue88 le 27/04/2013 00:30
qbasic45
 Posté le 28/04/2013 à 09:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour

merci je voulais que sa donne

exemple pour une donner a 3 numero

exe: 1) 123

2) 132

3) 213

4) 231

5) 312

6) 321

fin

me pour une donner a 9 numuro

donner "123456789" base

123456789 souvent 123456798 souvent 123456879

jusque il arrive a

987654321

meringue88
 Posté le 28/04/2013 à 09:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Ah ! J'avais mal compris...

Remplace la ligne : a$=right$(a$,8)+left$(a$,1)

par : if a=1 then a$=right$(a$,a)+left$(a$,8) else a$=left$(a$,a-1)+right$(a$,1)+mid$(a$,a,9-a)

Par contre, je ne comprends pas les étapes intermédiaires...

123456789 puis 123456798 puis 123456879...???...

Dans mon exemple, ça donnera 123456789 puis 912345678 puis 981234567 puis 987123456 etc...

EDIT (Simplification)

a$ = "123456789"
CLS
PRINT " 0 : "; a$
FOR a = 1 TO 8
a$ = LEFT$(a$, a - 1) + RIGHT$(a$, 1) + MID$(a$, a, 9 - a)
PRINT a; ": "; a$
NEXT

Ce qui donnera :

0 : 123456789

1 : 912345678

2 : 981234567

3 : 987123456

4 : 987612345

5 : 987651234

6 : 987654123

7 : 987654312

8 : 987654321

Si tu parviens à m'expliquer de quelle façon "évoluent" les chiffres dans ton exemple, je jeterai un oeil...



Modifié par meringue88 le 28/04/2013 14:26
qbasic45
 Posté le 28/04/2013 à 14:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

bonjour

j'ai trouver sur le site dans Autres langages
if y a la meme question que j'avais posee
w36xb2w ma donner une solution

meringue88
 Posté le 28/04/2013 à 14:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

Créer les sujets en double n'est pas recommandé du tout...

Copie vite ta solution car un de tes sujets risque de disparaitre... (certainement celui ci)

EDIT

Je viens de jeter un oeil sur ta soluce, ben je dois en déduire que je n'ai rien compris à ce que tu voulais...

Tu voulais un code qui t'affiche toutes les combinaisons possibles avec les caractères de départ ???



Modifié par meringue88 le 28/04/2013 14:59
qbasic45
 Posté le 30/04/2013 à 12:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

boujour

je voulais un code qui t'affiche toutes les combinaisons possibles avec les caractères de départ

oui a ta question merci

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
PC portable 13 pouces Lenovo Ideapad Slim 5 (FHD+, Ryzen 5 7535HS, 16 Go RAM, SSD 512 Go, Radeon 660M, Windows 11) à 583,20 €
583,20 € 729 € -20%
@Lenovo
SSD Crucial MX500 1 To à 79,99 €
79,99 € 90 € -11%
@Amazon
Disque dur Western Digital Red Plus 4 To à 97,99 €
97,99 € 120,88 € -19%
@Cdiscount
Microphone USB Blue Yeti à 84,99 €
84,99 € 130 € -35%
@Amazon
Casque audio sans-fil Logitech Lightspeed G435 à 37,99 €
37,99 € 69,99 € -46%
@Amazon
Multiprise JSVER 5 prises AC avec interrupteurs + 2 USB A + 2 USB C à 18,69 €
18,69 € 22 € -15%
@Amazon

Sujets relatifs
Besoin d'aide SEAMONKEY pour récuperer suite à formatage
Besoin d'aide pour une clé de la Base de registres (XP Pro)
besoin d'aide pour comprendre l'ordi
besoin d'aide pour récupérer des données
BESOIN D'AIDE pour internet
Besoin d'aide pour revo uninstaller.
Besoin d'aide pour ecrire un script DOS merci
besoin d'aide pour mon windows 2000
Besoin d'aide pour AS400
Besoin d'aide pour mise à jour d'emule
Plus de sujets relatifs à Besoin d''aide pour qbsic 4.5
 > Tous les forums > Forum Windows XP