> 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
20,85 €Clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C à 20,85 €
Valable jusqu'au 13 Avril

Amazon fait une promotion sur la clé USB Sandisk Ultra 128 Go à double connectique USB 3.1 Type A et C qui passe à 20,85 €. Cette clé USB  dispose d'un connecteur réversible USB Type C et d'un connecteur classique de type A. Grâce à elle, transférez en toute simplicité et rapidement (jusqu'à 150 Mo/s) vos fichiers entre vos smartphones, tablettes et ordinateurs. On la trouve ailleurs à plus de 40 €.

 


> Voir l'offre
133,18 €Imprimante 3D Creality Ender 3 à 133,18 € avec le code BGbec4d6 (stock Europe)
Valable jusqu'au 13 Avril

Banggood fait une belle promotion sur l'imprimante 3D Creality Ender 3 à 133,18 € livrée en France (avec l'assurance) avec le code BGbec4d6. On la trouve ailleurs autour de 180 €. L'imprimante est expédiée depuis un stock Europe (en République Tchèque). Elle sera donc rapide et vous êtes sûr de ne pas avoir de douane. 

La Creality Ender 3 est l'une des machines les plus populaires actuellement sur le marché. Et pour cause. Elle dispose d'un volume d’impression de 220 x 220 x 250 mm, est équipée d'un plateau chauffant inspiré du BuildTak, d'un écran LCD et offre des fonctionnalités pratiques comme la reprise de l'impression après une coupure de courant ou le conduit pour le filament étroit. L'imprimante 3D est facile à assembler et le calibrage est aisé grâce aux gros boutons. 


> Voir l'offre
129,99 €Smartphone 6,8 pouces Motorola G9 Power (HD+, Snapdragon 662, 4 Go RAM, 128 Go) à 129,99 € (via ODR)
Valable jusqu'au 13 Avril

Cdiscount fait une promotion sur le smartphone 6,8 pouces Motorola Moto G7 Power qui passe à 229,99 €. Or Motorola rembourse actuellement 100 € pour l'achat de cet appareil qui vous reviendra à 129,99 € après remboursement. Ce smartphone possède un écran 6,8 pouces HD+ (1640x720 pixels), un processeur octo-coeur Snapdragon 662, 4 Go de RAM, 128 Go de stockage extensible à 1 To via MicroSD, un lecteur d'empreintes digitales, un APN de 64 MP et un APN frontal de 16 MP avec flash intégré, le WiFi, le bluetooth, le NFC, le GPS. Le tout tourne sous Android 10. Avec sa batterie de 6000 mAh, le smartphone est très endurant et vous permettra de tenir jusqu'à 3 jours avant de le recharger. Une coque de protection, un adaptateur secteur 20W USB C et un kit mains libres sont fournis.

Prenez la version proposée par Cdiscount pour être certains de bénéficier de l'ODR (marchand partenaire)


> Voir l'offre

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