Algorythmes 1-9 chiffres combinaisons possibl
Fermé
archers
Messages postés
9
Date d'inscription
samedi 11 octobre 2008
Statut
Membre
Dernière intervention
28 juillet 2009
-
18 janv. 2009 à 14:08
toenian - 2 mai 2017 à 22:41
toenian - 2 mai 2017 à 22:41
Bonjour, je cherche un algorythme permettant de me donner toutes les combinaisons possibles de 1-9 je vous remercie à bientot.
A voir également:
- Nombre de combinaison possible avec 10 chiffres
- Nombre de combinaison possible avec 9 chiffres - Meilleures réponses
- Tous les code possible de 0 à 9 (4 chiffres ) liste - Meilleures réponses
- +33 9 48 10 81 69 ✓ - Forum Mobile
- Combien de combinaison possible avec 3 chiffres - Forum loisirs/vie pratique
- Probabilité nombre de combinaison de trois chiffres de 0 à 9 ✓ - Forum Loisirs / Divertissements
- Combinaisons possibles avec 3 séries de 3 nombres - Forum Réseaux sociaux
- Nombre de combinaison possible avec 4 chiffres - Forum Jeux vidéo
6 réponses
voici un programme pascal qui affiche toutes les combinaisons possibles des caractères numériques (chiffres) ou alphabétiques dans une chaîne ch, sachant que le nombre de combinaisons est égale au factoriel du nombre total des chiffres , exemple pour ch = 123 il existe 3! combinaisons = 6 combinaison= 6 permutations: pour le nombre 123
le programme affiche 213-231-132-312-321-123
Program combinaison;
Uses WinCrt;
Var ch:string;
Procedure Remplir (Var ch:string);
begin
writeln('donner le nombre');
Readln(ch);
End;
procedure permut(var x,y:char);
var aux:char;
begin
aux:=x;
x:=y;
y:=aux
end;
function fact(x:integer):integer;
var f,i:integer;
begin
f:=1;
for i:= 1 to x do
begin
f:=f*i ;
end;
fact:=f;
end;
procedure affichecomb(ch:string);
var i,n,np:integer;
begin
n:=length(ch);
np:=0;
repeat
for i:= 1 to n-1 do
begin
permut(ch[i],ch[i+1]);
np:=np+1;
write(ch,'-');
end;
permut(ch[1],ch[n]);
write(ch,'-');
np:=np+1;
until np =fact(length(ch));
end;
begin
remplir(ch);
writeln;
affichecomb(ch);
end.
le programme affiche 213-231-132-312-321-123
Program combinaison;
Uses WinCrt;
Var ch:string;
Procedure Remplir (Var ch:string);
begin
writeln('donner le nombre');
Readln(ch);
End;
procedure permut(var x,y:char);
var aux:char;
begin
aux:=x;
x:=y;
y:=aux
end;
function fact(x:integer):integer;
var f,i:integer;
begin
f:=1;
for i:= 1 to x do
begin
f:=f*i ;
end;
fact:=f;
end;
procedure affichecomb(ch:string);
var i,n,np:integer;
begin
n:=length(ch);
np:=0;
repeat
for i:= 1 to n-1 do
begin
permut(ch[i],ch[i+1]);
np:=np+1;
write(ch,'-');
end;
permut(ch[1],ch[n]);
write(ch,'-');
np:=np+1;
until np =fact(length(ch));
end;
begin
remplir(ch);
writeln;
affichecomb(ch);
end.