Combinaisons

Nombre de messages : 139 Age : 30 Date d'inscription : 21/11/2008

Ce code permet de trouver toutes les combinaisons possible mais pour des nombre et pour l'instant on ne peut rentrer que 3 nombres se qui fait quand même un bon nombre de possibilité...

Code:: dim a , b , c

print "quel est le 1er nombre"
input a
print "quel est le 2ème nombre"
input b
print "Quel est le 3ème nombre"
input c

print
print "Toutes les combinaisons possible sont :"
print
print str$(a)+str$(a)+str$(a)+","+str$(a)+str$(b)+str$(b)+","+str$(a)+str$(a)+str$(b)+","+str$(a)+str$(b)+str$(a)+","
print str$(a)+str$(a)+str$(c)+","+str$(a)+str$(c)+str$(c)+","+str$(a)+str$(c)+str$(a)+","
print
print str$(b)+str$(b)+str$(b)+","+str$(b)+str$(b)+str$(a)+","+str$(b)+str$(a)+str$(a)+","+str$(b)+str$(a)+str$(b)+","
print str$(b)+str$(b)+str$(c)+","+str$(b)+str$(c)+str$(c)+","+str$(b)+str$(c)+str$(b)+","
print
print str$(c)+str$(c)+str$(c)+","+str$(c)+str$(c)+str$(a)+","+str$(c)+str$(a)+str$(c)+","+str$(c)+str$(a)+str$(a)+","
print str$(c)+str$(c)+str$(b)+","+str$(c)+str$(b)+str$(b)+","+str$(c)+str$(b)+str$(c)+"."

Par contre il y a un petit problème avec la longueur de ligne...
Vous en faite pas, si vous copier coller sa marche bien ^^

Si vous avez une petite idée de comment faire pour que se système soit compatible avec des chiffre et/ou des lettres, je suis preneur de toutes idée possible Smile

Admin Nombre de messages : 2395 Date d'inscription : 28/05/2007

Nous allons procéder par étapes.

Pour que le système soit compatible chiffres/lettres, c'est très simple:
il suffit de rentrer des caractères plutôt que des chiffres.

Code:: dim a$ , b$ , c$

print "quel est le 1er caractère"
input a$

print "quel est le 2ème caractère"
input b$

print "Quel est le 3ème caractère"
input c$

print
print "Toutes les combinaisons possibles sont :"
print
print a$+a$+a$+","+a$+b$+b$+","+a$+a$+b$+","+a$+b$+a$+","
print a$+a$+c$+","+a$+c$+c$+","+a$+c$+a$+","
print
print b$+b$+b$+","+b$+b$+a$+","+b$+a$+a$+","+b$+a$+b$+","
print b$+b$+c$+","+b$+c$+c$+","+b$+c$+b$+","
print
print c$+c$+c$+","+c$+c$+a$+","+c$+a$+c$+","+c$+a$+a$+","
print c$+c$+b$+","+c$+b$+b$+","+c$+b$+c$+"."

J'ai rajouté un test pour ne rentrer qu'un seul caractère à la fois (si la longueur de la chaine rentrée n'est pas de 1 caractère, on repose la question)

Code:: label input1,input2,input3
dim a$ , b$ , c$

input1:
print "quel est le 1er caractère"
input a$
if len(a$)<>1 then goto input1

input2:
print "quel est le 2ème caractère"
input b$
if len(b$)<>1 then goto input2

input3:
print "Quel est le 3ème caractère"
input c$
if len(c$)<>1 then goto input3

print
print "Toutes les combinaisons possibles sont :"
print
print a$+a$+a$+","+a$+b$+b$+","+a$+a$+b$+","+a$+b$+a$+","
print a$+a$+c$+","+a$+c$+c$+","+a$+c$+a$+","
print
print b$+b$+b$+","+b$+b$+a$+","+b$+a$+a$+","+b$+a$+b$+","
print b$+b$+c$+","+b$+c$+c$+","+b$+c$+b$+","
print
print c$+c$+c$+","+c$+c$+a$+","+c$+a$+c$+","+c$+a$+a$+","
print c$+c$+b$+","+c$+b$+b$+","+c$+b$+c$+"."

Mais, ce système permet de sortir les combinaisons pour tout caractère, même des caractères comme % + # [ | ou =
Pour ne rentrer que des lettres ou des chiffres, (je crois que c'est ce que tu voulais), il suffit de comparer le code ASCII du caractère entré et de reposer la question si ce n'est pas correct.
Le code ASCII d'un chiffre va de 48 à 57.
Le code ASCII d'une lettre minuscule va de de 97 à 122.
Le code ASCII d'une lettre majuscule va de 65 à 90.

Et ça donne:

Code:: label input1,input2,input3,combine
dim a$ , b$ , c$

input1:
print "quel est le 1er caractère"
input a$
if len(a$)<>1 then goto input1
if 48<=asc(a$) and asc(a$)<=57 then goto input2
if 65<=asc(a$) and asc(a$)<=90 then goto input2
if 97<=asc(a$) and asc(a$)<=122 then goto input2
goto input1

input2:
print "quel est le 2ème caractère"
input b$
if len(b$)<>1 then goto input2
if 48<=asc(b$) and asc(b$)<=57 then goto input3
if 65<=asc(b$) and asc(b$)<=90 then goto input3
if 97<=asc(b$) and asc(b$)<=122 then goto input3
goto input2

input3:

print "Quel est le 3ème caractère"
input c$
if len(c$)<>1 then goto input3
if 48<=asc(c$) and asc(c$)<=57 then goto combine
if 65<=asc(c$) and asc(c$)<=90 then goto combine
if 97<=asc(c$) and asc(c$)<=122 then goto combine
goto input3

combine:
print
print "Toutes les combinaisons possibles sont :"
print
print a$+a$+a$+","+a$+b$+b$+","+a$+a$+b$+","+a$+b$+a$+","
print a$+a$+c$+","+a$+c$+c$+","+a$+c$+a$+","
print
print b$+b$+b$+","+b$+b$+a$+","+b$+a$+a$+","+b$+a$+b$+","
print b$+b$+c$+","+b$+c$+c$+","+b$+c$+b$+","
print
print c$+c$+c$+","+c$+c$+a$+","+c$+a$+c$+","+c$+a$+a$+","
print c$+c$+b$+","+c$+b$+b$+","+c$+b$+c$+"."

Nombre de messages : 139 Age : 30 Date d'inscription : 21/11/2008

Merci beaucoup pour cette aide car j'avoue ne pas avoir penser au variable string.Celui que je trouve les plus intéressant est celui qui permet de mettre tout les caractères possible. Et en même tant le derniers est plutôt complexe à comprendre (mais je vais quand même essayer d'approfondir le code ASCII)

Encore merci !

Nombre de messages : 139 Age : 30 Date d'inscription : 21/11/2008

Voici un code "amélioré" (j'y est rajouté une option et un caractère en plus), je vais ésayer de faire de façons a mettre jusqu'à 6 caractères (à la base ma volonté de faire se code c'était pour un genre de jeu ou on doit trouver des mots a partir des lettres qu'il donne).

Code:: label input1,input2,input3,input4
dim a$ , b$ , c$ , d$

input1:
print "quel est le 1er caractère ?"
input a$
if len(a$)<>1 then goto input1

input2:
print "quel est le 2ème caractère ?"
input b$
if len(b$)<>1 then goto input2

input3:
print "Quel est le 3ème caractère ?"
input c$
if len(c$)<>1 then goto input3

input4:
print "Quel est le 4ème caractère ?"
input d$
if len(d$)<>1 then goto input4

full_space 0
memo 1
full_space 1
item_add 1, "Toutes les combinaisons possibles pour les caractères "+a$+","+b$+","+c$+","+d$+" sont :"
item_add 1, " "
item_add 1, a$+a$+a$+a$+","+a$+a$+a$+b$+","+a$+a$+b$+b$+","+a$+b$+b$+b$+","+a$+b$+b$+a$+","+a$+b$+a$+b$+","
item_add 1, a$+a$+a$+c$+","+a$+a$+c$+c$+","+a$+c$+c$+c$+","+a$+c$+c$+a$+","+a$+c$+a$+c$+","
item_add 1, a$+a$+a$+d$+","+a$+a$+d$+d$+","+a$+d$+d$+d$+","+a$+d$+d$+a$+","+a$+d$+a$+d$+","
item_add 1, " "
item_add 1, b$+b$+b$+b$+","+b$+b$+b$+a$+","+b$+b$+a$+a$+","+b$+a$+a$+a$+","+b$+a$+a$+b$+","+b$+a$+b$+a$+","
item_add 1, b$+b$+b$+c$+","+b$+b$+c$+c$+","+b$+c$+c$+c$+","+b$+c$+c$+b$+","+b$+c$+b$+c$+","
item_add 1, b$+b$+b$+d$+","+b$+b$+d$+d$+","+b$+d$+d$+d$+","+b$+d$+d$+b$+","+b$+d$+b$+d$+","
item_add 1, " "
item_add 1, c$+c$+c$+c$+","+c$+c$+c$+a$+","+c$+c$+a$+a$+","+c$+a$+a$+a$+","+c$+a$+a$+c$+","+c$+a$+c$+a$+","
item_add 1, c$+c$+c$+b$+","+c$+c$+b$+b$+","+c$+b$+b$+b$+","+c$+b$+b$+c$+","+c$+b$+c$+b$+","
item_add 1, c$+c$+c$+d$+","+c$+c$+d$+d$+","+c$+d$+d$+d$+","+c$+d$+d$+c$+","+c$+d$+c$+d$+","
item_add 1, " "
item_add 1, d$+d$+d$+d$+","+d$+d$+d$+a$+","+d$+d$+a$+a$+","+d$+a$+a$+a$+","+d$+a$+a$+d$+","+d$+a$+d$+a$+","
item_add 1, d$+d$+d$+b$+","+d$+d$+b$+b$+","+d$+b$+b$+b$+","+d$+b$+b$+d$+","+d$+b$+d$+b$+","
item_add 1, d$+d$+d$+c$+","+d$+d$+c$+c$+","+d$+c$+c$+c$+","+d$+c$+c$+d$+","+d$+c$+d$+c$+"."

PS: A propose du code ASCII j'ai vue qu'il y avait une commande sur Panoramic ( asc("A") ) qui permet de donné le code du caractère donné.

PS 2:J'ai trouver une technique pour trouver tout les ocmbinaisons possibles...Il suffit de comparé les lettre A par exemple a 0 et B a 1 avec le code binaire

J'ai remarquer quand faite de la façons avec la quel je m'y suis pris n'est pas la bonne car j'ai réussit jusqu'a 6caractère et j'ai mit M,O,N,D,E,S et sa ne me donne en aucun cas le mots donc je vais voir comment je pourrais faire.

Pour ceux qui veulent voir un code très long et quasiment inutile demandé et donner moi votre adresse mail parce que la le code est trop long je ne peu pas le faire rentrer...

Nombre de messages : 139 Age : 30 Date d'inscription : 21/11/2008

J'ai réussi à faire toute les combinaisons possible avec 4 caractères si par exemple on tape T,A,H,M et bien a un moment sa nous donneras MATH

Code:: label input1,input2,input3,input4
dim a$ , b$ , c$ , d$

input1:
print "quel est le 1er caractère ?"
input a$
if len(a$)<>1 then goto input1

input2:
print "quel est le 2ème caractère ?"
input b$
if len(b$)<>1 then goto input2

input3:
print "Quel est le 3ème caractère ?"
input c$
if len(c$)<>1 then goto input3

input4:
print "Quel est le 4ème caractère ?"
input d$
if len(d$)<>1 then goto input4

full_space 0
memo 1
full_space 1
item_add 1, a$+b$+c$+d$+","+a$+b$+d$+c$+","+a$+c$+b$+d$+","+a$+c$+d$+b$+","+a$+d$+b$+c$+","+a$+d$+c$+b$+","
item_add 1, ""
item_add 1, b$+a$+c$+d$+","+b$+a$+d$+c$+","+b$+c$+a$+d$+","+b$+c$+d$+a$+","+b$+d$+a$+c$+","+b$+d$+c$+a$+","
item_add 1, ""
item_add 1, c$+a$+b$+d$+","+c$+a$+d$+b$+","+c$+b$+a$+d$+","+c$+b$+d$+a$+","+c$+d$+a$+b$+","+c$+d$+b$+a$+","
item_add 1, ""
item_add 1, d$+a$+b$+c$+","+d$+a$+c$+b$+","+d$+b$+a$+c$+","+d$+b$+c$+a$+","+d$+c$+a$+b$+","+d$+c$+b$+a$+","

Nombre de messages : 139 Age : 30 Date d'inscription : 21/11/2008

Encore une "nouvelle" version avec cette fois 5 caractères possible :
Je ne pense pas arriver a 6 car la sa fait déjà 120 possibilité avec 5 caractère et avec 6 sa me ferai 720 se qui ferai pas mal de combinaisons a trouver ^^

Pour l'instant je pense m'arrêter a ce code la pour cette catégorie:

Code:: label input1,input2,input3,input4,input5
dim a$ , b$ , c$ , d$ , e$ , f$

input1:
print "quel est le 1er caractère ?"
input a$
if len(a$)<>1 then goto input1

input2:
print "quel est le 2ème caractère ?"
input b$
if len(b$)<>1 then goto input2

input3:
print "Quel est le 3ème caractère ?"
input c$
if len(c$)<>1 then goto input3

input4:
print "Quel est le 4ème caractère ?"
input d$
if len(d$)<>1 then goto input4

input5:
print "Quet le 5ème caractère ?"
input e$
if len(e$)<>1 then goto input5

full_space 0
memo 1
full_space 1
item_add 1, "Toutes les combinaisons possibles pour les caractères "+a$+","+b$+","+c$+","+d$+","+e$+" sont :"
item_add 1, ""
item_add 1, a$+b$+c$+d$+e$+" | "+a$+b$+c$+e$+d$+" | "+a$+b$+d$+c$+e$+" | "+a$+b$+d$+e$+c$+" | "
item_add 1, a$+c$+d$+b$+e$+" | "+a$+c$+b$+e$+d$+" | "+a$+c$+c$+b$+e$+" | "+a$+c$+d$+e$+b$+" | "
item_add 1, a$+d$+c$+b$+e$+" | "+a$+d$+b$+e$+c$+" | "+a$+d$+c$+b$+e$+" | "+a$+d$+c$+e$+b$+" | "
item_add 1, a$+e$+c$+b$+d$+" | "+a$+e$+b$+d$+c$+" | "+a$+e$+c$+b$+d$+" | "+a$+d$+c$+d$+b$+" | "
item_add 1, ""
item_add 1, b$+a$+c$+d$+e$+" | "+b$+a$+c$+e$+d$+" | "+b$+a$+d$+c$+e$+" | "+b$+a$+d$+e$+c$+" | "
item_add 1, b$+c$+d$+a$+e$+" | "+b$+c$+a$+e$+d$+" | "+b$+c$+c$+a$+e$+" | "+b$+c$+d$+e$+a$+" | "
item_add 1, b$+d$+c$+a$+e$+" | "+b$+d$+a$+e$+c$+" | "+b$+d$+c$+a$+e$+" | "+b$+d$+c$+e$+a$+" | "
item_add 1, b$+e$+c$+a$+d$+" | "+b$+e$+a$+d$+c$+" | "+b$+e$+c$+a$+d$+" | "+b$+d$+c$+d$+a$+" | "
item_add 1, ""
item_add 1, c$+a$+b$+d$+e$+" | "+c$+a$+b$+e$+d$+" | "+c$+a$+d$+b$+e$+" | "+c$+a$+d$+e$+b$+" | "
item_add 1, c$+b$+d$+a$+e$+" | "+c$+b$+a$+e$+d$+" | "+c$+c$+b$+a$+e$+" | "+c$+b$+d$+e$+a$+" | "
item_add 1, c$+d$+b$+a$+e$+" | "+c$+d$+a$+e$+b$+" | "+c$+d$+b$+a$+e$+" | "+c$+d$+b$+e$+a$+" | "
item_add 1, c$+e$+b$+a$+d$+" | "+c$+e$+a$+d$+b$+" | "+c$+e$+b$+a$+d$+" | "+c$+d$+b$+d$+a$+" | "
item_add 1, ""
item_add 1, d$+a$+b$+c$+e$+" | "+d$+a$+b$+e$+c$+" | "+d$+a$+c$+b$+e$+" | "+d$+a$+c$+e$+b$+" | "
item_add 1, d$+b$+d$+a$+e$+" | "+d$+b$+a$+e$+c$+" | "+d$+c$+b$+a$+e$+" | "+d$+b$+c$+e$+a$+" | "
item_add 1, d$+c$+b$+a$+e$+" | "+d$+c$+a$+e$+b$+" | "+d$+c$+b$+a$+e$+" | "+d$+c$+b$+e$+a$+" | "
item_add 1, d$+e$+b$+a$+c$+" | "+d$+e$+a$+c$+b$+" | "+d$+e$+b$+a$+c$+" | "+d$+c$+b$+d$+a$+" | "
item_add 1, ""
item_add 1, e$+a$+b$+c$+d$+" | "+e$+a$+b$+d$+c$+" | "+e$+a$+c$+b$+d$+" | "+e$+a$+c$+d$+b$+" | "
item_add 1, e$+b$+d$+a$+d$+" | "+e$+b$+a$+d$+c$+" | "+e$+c$+b$+a$+d$+" | "+e$+b$+c$+d$+a$+" | "
item_add 1, e$+c$+b$+a$+d$+" | "+e$+c$+a$+d$+b$+" | "+e$+c$+b$+a$+d$+" | "+e$+c$+b$+d$+a$+" | "
item_add 1, e$+d$+b$+a$+c$+" | "+e$+d$+a$+c$+b$+" | "+e$+d$+b$+a$+c$+" | "+e$+c$+b$+d$+a$+" | "

Ce code peut être utile pour des anagrammes ou des jeux quelconque...

Salut à tous

Je propose un code de combinaisons de 5 caractères qui donne toutes les combinaisons possibles.
Le nombre de caractères pourrait être changer en modifiant deux ou trois ligne de programme
Un test complémentaire pourrait être fait sur l'entrée des caractère.

voici le code :
---------------------------------------------------------------------------

Code:: rem ********************
rem ** **
rem ** COMBINAISONS **
rem ** **
rem ********************

rem ************************************************
rem ** code réalisé par Georges - le 12 juin 2009 **
rem ************************************************

rem ******************************************************************
rem **** ****
rem **** NOTA : ****
rem **** TRES IMPORTANT ****
rem **** ****
rem **** Si le programme ne fonctionne pas correctement ****
rem **** baissez les valeurs de x et de y aux lignes 70 et 71 ****
rem **** ****
rem **** Si les codes se chevauchent : ****
rem **** augmentez l'incrémentation de x à la ligne 69 ****
rem **** ****
rem ******************************************************************

rem déclaration d'étiquette
label un,trois,quatre,cinq,sept,huit

rem définition de variables
dim a$(5),i,j,k,l,m,c1$,c2$,c3$,c4$,c5$,code$,x,y,num,num$,t$

rem ************************** caractérisques du form
full_space 0
num = 0

rem ************************** entrée des données
for i=1 to 5
un:
print "Entrez le " + str$ (i) + "° caractère :"
input a$(i)
if len (a$(i)) <> 1 then goto un
if a$(i) = "" then goto un
rem
rem
rem
rem
rem
next i

print
cls

rem ************** Calcul des différentes combinaisons
x=1 : y=1

for i=1 to 5
c1$ = a$(i)
for j=1 to 5
c2$ = a$(j)
for k=1 to 5
c3$ = a$(k)
for l=1 to 5
c4$ = a$(l)

for m=1 to 5
c5$ = a$(m)
code$ = c1$ + c2$ + c3$ + c4$ + c5$
print_locate x,y
print code$
num = num + 1
x = x + 47
if x > 1200 then gosub trois
if y > 620 then gosub quatre
next m

next l
next k
next j
next i

rem ******************** compteur nombre de combinaisons
num$ = str$(num)
print_locate 100,690
print "nombre de combinaisons = " + num$

goto sept
end

rem ******************** incrémentation d'affichage
trois:
x = 1
y = y + 20
return

rem ******************* initialisation page suivante
quatre:
x = 1
y = 1
wait 1000
print_locate 100,680
print "APPUYEZ SUR UNE TOUCHE POUR CONTINUER"
cinq:
t$ = inkey$
if t$ = "" then goto cinq
cls
return

rem =============== FIN DU PROGRAMME ===========================
sept:
print_locate 100,710
print "APPUYEZ SUR ENTREE POUR TERMINER"
huit:
t$ = inkey$
if t$ = chr$(13) then terminate
goto huit
end

------------------------------------------------------------------------
fin du code

georges

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

C'est bien évident ! le code de Lutcho est méritoire, mais c'est la négation de l'informatique, l'ordinateur est là pour faire les tâches répétitives, et c'est à lui de calculer toutes les combinaisons possibles et non au programmeur.
Une fois le programme écrit, on peut lui faire calculer les combinaisons pour un nombre quelconque de variables. Le but évidemment est de ne pas réécrire le programme et calculer tous les résultats "à la main" chaque fois qu'on modifie le nombre de variables.

salut à tous,

Comme tu le dis JL35, le code de Lutch est méritoire.

Moi je vois là, un problème de fond pour les débutants en Basic. A mon avis, il faudrait qu'il puissent disposer de tout petits codes avec les explications, pour bien assimiler les techniques de programmation et cela en commençant du début. Le manuel utilisateur est très bien fait, mais pour quelqu'un qui ce lance il faudrait qu'il puisse faire du pas à pas.

Le code de georges est parfait, (on sent la maîtrise), mais je ne suis pas certain que Lutcho soit à même de comprendre. Par contre il peut voir les résultats quand il aura atteint le niveau de georges

Si je vous dit cela, c'est parce que j'ai moi-même galéré des années avant de sortir un petit bout de programme. Et seul, ma ténacité m'a empêchée de laisser tomber. Je pense qu'un manuel avec des exemples simples permettrait au novices d'apprendre les fonctions les plus simples du Basic, en partant de PANORAMIC, pour ne pas les dérouter. Et du coup les lancer dans la programmation avec le minimum qui permettrait de ne pas les décourager. Car après cela devient une passion.

J'en vois quelques-uns sur ce Forum, qui pourraient contribuer.
Bien sur, il faut avoir le temps, l'envie....

Pour ma part, je dois d'abord continuer de m'améliorer avec PANORAMIC, ensuite.....

A+

Nombre de messages : 7112 Localisation : 77 Date d'inscription : 29/11/2007

Tu as bien raison. Autrefois, il y a bien des lunes, au début du Basic et de l'informatique individuelle, il n'y avait pas internet mais plein de revues et de bouquins d'informatique pour les débutants que nous étions, avec des tas d'exemples de programmation en basic et assembleur, du plus simple au plus compliqué, et l'apprentissage était bien plus facile.
Maintenant les débutants n'ont plus grand chose pour apprendre et doivent se débrouiller par eux-mêmes, et internet ne remplace pas un livre bien structuré. Et ils ont d'autant plus de mérite de s'accrocher.

ce nombre de rem incalculable ça me rappelle quand je faisait des jeux en QB, si tu mettais pas de REM tu te paumais le lendemain.. ><

» Aide les combinaisons de encore