Discussion :

[DebProg40]

Bonsoir à tous.

Je voudrais essayer de faire un petit programme pour le suivi de mes joueurs de tarot.
A savoir, après avoir saisi les noms des joueurs, faire un tirage au sort des joueurs en fonction de leur nombre pour les répartir par table de jeu.
Exemple : Si j'ai 10 joueurs, avoir après tirage au sort, 2 fois 5 joueurs. Si j'ai 11 joueurs, avoir après tirage au sort, 2 fois 4 joueurs et 1 fois 3 joueurs.

La saisie des scores pourra se faire ensuite pour chaque joueur.

En espérant avoir été assez explicite.
Je vous remercie d'avance pour vos réponses, très attendues.
Pascal

[sergio_is_back]

Bonsoir à tous.

Je voudrais essayer de faire un petit programme pour le suivi de mes joueurs de tarot.
A savoir, après avoir saisi les noms des joueurs, faire un tirage au sort des joueurs en fonction de leur nombre pour les répartir par table de jeu.
Exemple : Si j'ai 10 joueurs, avoir après tirage au sort, 2 fois 5 joueurs. Si j'ai 11 joueurs, avoir après tirage au sort, 2 fois 4 joueurs et 1 fois 3 joueurs.

La saisie des scores pourra se faire ensuite pour chaque joueur.

En espérant avoir été assez explicite.
Je vous remercie d'avance pour vos réponses, très attendues.
Pascal

Je suis désolé mais personne ici ne fera ton programme à ta place... Peut-être commencer par lire les tutoriels ici : https://delphi.developpez.com/cours/

Afin déjà de savoir par où commencer...

[Charly910]

Bonjour,
il faudrait que tu réfléchisses à l'algorithme pour la répartition de tes joueurs en différentes tables.

Ensuite tu pourras commencer à programmer l'interface.

A+
Charly

[Charly910]

J'entrevois une méthode un peu bestiale, mais bon :

soit T le nombre de joueurs sélectionnés (T doit être supérieur à 2)

dans une triple boucle sur n1, n2 et n3 on calcule :

S = n1 * 3 + n2 * 4 + n3 * 5

on part de n1 = n2 = n3 = 1 et on incrémente n3.

- on s'arrête si S = T ==> solution trouvée
- on incrémente n2 si S > T

pour calculer le max ne n3 par exemple on calcule la partie entière de (T - 3 - 4) / 5

à voir si ça tient la route !

tu peux déjà essayer de programmer cette méthode sans interface, pour voir si ça marche

A+
Charly

[DebProg40]

Je suis désolé mais personne ici ne fera ton programme à ta place... Peut-être commencer par lire les tutoriels ici : https://delphi.developpez.com/cours/

Afin déjà de savoir par où commencer...

bonjour Sergio

J'entends bien que personne ne fera le programme a ma place, ce n'est pas le but de ma question.
je désirai juste avoir un fil conducteur pour mener a bien mon petit projet.
exemple: utiliser 'random' puis faire des boucles etc...

ne connaissant pas toutes les possibilités de delphi, ce style de réponse m'aurait convenu pour orienter mes recherches et avancer.

Voilà,
merci quand même d'avoir répondu

[Charly910]

Pour le tirage au sort, regarde ici

surtout la la fin : les solutions de Paul Toth ou de AndnotOr

A+
Charly

[Charly910]

Tiens, voici une fonction basée sur mon idée. A priori ça fonctionne :

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
23
24
25
26
27
28
29
30
{ ====================================================================}
Procedure TForm1.NbTables(Const Nbj : Integer ; Var n3, n4, n5 : Integer) ;
// Nombre de tables de 3, 4 et 5 joueurs pour Nbj Joueurs
Var
  n3Max, n4Max, n5Max : Integer ;
  i3, i4, i5 : Integer ;
  Nb : Integer ;
Begin
  n3 := 0 ; n4 := 0 ; n5 := 0 ;
  If Nbj < 3 Then
    Begin
      ShowMessage('Le nombre de joueurs doit être supérieur à 2') ;
      Exit ;
    End ;
   n3Max := Nbj div 3 ;
   n4Max := Nbj div 4 ;
   n5Max := Nbj div 5 ;
   For i3 := 0 To n3Max Do
   For i4 := 0 To n4Max Do
   For i5 := 0 To n5Max Do
     Begin
       nb := i3 * 3 + i4 * 4 + i5 * 5 ;
       If nb = Nbj Then
         Begin
           n3 := i3 ; n4 := i4 ; n5 := i5 ;
           Exit ;
         End ;
     End ;
End ;
{ ====================================================================}

On peut surement faire mieux.

A+
Charly

PS :pour répondre à ta question, on peut tout faire avec Delphi

[DebProg40]

Bonsoir

Merci Charly pour ta réponse.
Je vais regarder tout ça de prêt, le digérer, le comprendre...

un peu de boulot en vue.

Bonne soirée