Discussion :

[cre3000]

Je tente de trouver la façon de compiler une série de chiffre
et compter le nombre de chaque chiffre répétitif .
exemple: 2,2,4,7,6,7 il y a donc 2x le nombre 2, 1 fois le nombre 4, 2x le nombre 7 ect.... je suis un amateur et je ne sais pas comment faire le
code . pouvez vous m'aidez merci d'avance.

[sjrd]

C'est une question d'algorithmique, ça. Tu as déjà l'algo et tu veux le transcrire en Delphi, ou tu veux l'algo ? Si tu veux l'algo, cette question est pour le forum Algorithmes, même si c'est pas un algo bien difficile.

[cre3000]

on utilise des FOR ou autre fonction ne ne sais vraiment pas.
quelqu'un peut t'il m'aider

[sjrd]

Tu as déjà l'algo et tu veux le transcrire en Delphi, ou tu veux l'algo ?

Tu n'as pas répondu à ma question.

[cre3000]

Oui c'est cela je veut le convertir en delphi, j'ai été dans la recherche et je n'est rien trouver, le but est de faire un programme en delphi pour afficher le nombre de numero gagnant d'une loto sorti depuis 1 ans. Mon tableau est déjà construit , il ne me reste plus qu'a trouver la facon de sortir les numeros gagnant ( par exemple 43 a sorti 6 fois).

[sjrd]

Ben c'eût été bien que tu nous montres l'algo alors. Enfin c'est pas du genre compliqué.

Puisqu'il y a un nombre limité de nombres qui peuvent sortir (42 en Belgique, je sais pas pour la France), on peut utiliser un tableau indexé de 1 à 42 de Integer, initialisé avec des 0.
Ensuite, on parcourt la liste des numéros sortis, et on incrémente la case du tableau correspondant. Ca s'écrit en quelques lignes en fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
const
  MaxNumber = 42;
var
  Counters: array[1..MaxNumber] of Integer;
  I: Integer;
begin
  FillChar(Counters, SizeOf(Counters), 0);
  for I := 0 to Length(NombresSortis[I])-1 do
    Inc(Counters, NombresSortis[I]);
 
  for I := 1 to MaxNumber do
    WriteLn('Nombre de ', I, ' : ', Counters[I]);
end;

[cre3000]

ca me dit toujours type incompatible sur la ligne suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Inc(Counters, NombresSortis[i]);

!!!!

[anapurna]

salut
tu as fait une petite erreur je pense

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
const
  MaxNumber = 42;
var
  Counters: array[1..MaxNumber] of Integer;
  I: Integer;
begin
  FillChar(Counters, SizeOf(Counters), 0);
  for I := low(NombresSortis)0 to high(NombresSortis) do
     Inc(Counters[NombresSortis[i]] );// Tu increment le tableau a l'indice
{ si ca ne marche pas directement tu peut utiliser par une variable temporaire 
  exemple :
  Tmp := Counters[NombresSortis[i]];
  inc(Tmp);
  Counters[NombresSortis[i]] := Tmp;
}
 
for I := 1 to MaxNumber do
    WriteLn('Nombre de ', I, ' : ', Counters[i]);
end;

@+ Phil

PS : Code modifier il faut preferer low et high pour utilisé les borne d'un tableau
j'ete surement mal reveiller ce matin

[Cl@udius]

Salut
Remplace cette ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  for I := 0 to Length(NombresSortis[i])-1 do

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  for I := 0 to Length(NombresSortis)-1 do

@+ Claudius

[sjrd]

Ah Deux erreurs dans le même code de 6 lignes !
Effectivement, le code correct serait plutôt :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
const
  MaxNumber = 42;
var
  Counters: array[1..MaxNumber] of Integer;
  I: Integer;
begin
  FillChar(Counters, SizeOf(Counters), 0);
  for I := 0 to Length(NombresSortis)-1 do
    Inc(Counters[NombresSortis[i]]);
 
  for I := 1 to MaxNumber do
    WriteLn('Nombre de ', I, ' : ', Counters[i]);
end;

[anapurna]

salut


a nous deux on a donnée la solution

[cre3000]

J'ai trouver une autre façon de faire ,car mon cerveau a de la difficulter a comprendre votre code ( je suis un amateur) . le problème est que je doit
affecté 49 variables. y a t'il une façon de raccourcir le nombre de ligne au niveau des variables de sortie ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var
   b2,i,n1,n2,n3: Integer;
begin
  //Label1.caption:=inttostr(30) ;
  n1:=0;n2:=0;n3:=0;
   for i:=1 to 12 do
  begin
   for b2:=1 to 49 do
  if (strtoint(V1[i])=b2) or (strtoint(V2[i])=b2) or (strtoint(V3[i])=b2) or (strtoint(V4[i])=b2) or (strtoint(V5[i])=b2)or (strtoint(V6[i])=b2)then
   begin
   if b2=1 then
   n1:=n1+1;
   if b2=2 then
   n2:=n2+1;
   if b2=3 then
   n3:=n3+1  //j'ai 49 variable a affecter ainsi !!!!!
   end;
  end;
  Label1.caption:=inttostr(n1);
  label2.caption:=inttostr(n2);
  Label3.caption:=inttostr(n3);
  end;

[banban54]

bonjour

le problème est que je doit
affecté 49 variables. y a t'il une façon de raccourcir le nombre de ligne au niveau des variables de sortie ?

Les mettres en tableau comme préconisé plus haut par Sjrd

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Counters: array[1..MaxNumber] of Integer;

où chaque élément du tableau représente une des variables,
Counters[1] = variable chiffre 1
Counters[2] = variable chiffre 2...

à plus!

[Archimède]

avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TForm1.FormCreate(Sender: TObject);
var i,j,k,l:integer;
    val,count:array[1..49] of integer;
    sortie: array[1..36] of array[1..6] of integer;  //36 tirages
 
begin
 
for i:=1 to 49 do begin
                   val[i]:=i;
                   count[i]:=0;
                   end;
 
for j:=1 to 36 do   //pour les 36 tirages
for k:=1 to 6 do  //les 6 valeurs
for l:=1 to 49 do if sortie[j,k]=val[l] then count[l]:=count[l]+1 ; //les 49 possibilités d'un tirage particulier=>nb de coups pour chaque
end;
 
end.

teste et reposte, ça devrait faire si mes neurones sont pas trop fatigués ce soir. ce qui est fort possible lol.

[cre3000]

Je ne savais pas que l'on pouvais affecter 2 tableau en même temp !!
Ha la la . un grand merci a tous pour votre précieuse aide. vive le forum