Bonjour, me revoila parmis vous

Je suis toujours sur mon problème du black jack...

Donc j'ai fait une procédure qui me calcul le score si je tire 2 cartes
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
Procedure CalcScore(paquet:paquetcartes);
score1:integer;
score:integer;
 
begin
if(paquet[1].nomcarte=TA) or (paquet[1].nomcarte=KA) or (paquet[1].nomcarte=PA) or (paquet[1].nomcarte=CA)
 
     then
        begin
        score:=1+paquet[2].valeur;
        score1:=paquet[1].valeur+paquet[2].valeur;
                end
 
     else
     if (paquet[2].nomcarte=TA) or (paquet[2].nomcarte=KA) or (paquet[2].nomcarte=PA) or (paquet[2].nomcarte=CA)
 
          then
             begin
              score:=1+paquet[1].valeur;
              score1:=paquet[1].valeur+paquet[2].valeur;
             end
 
          else
            score:=paquet[1].valeur+paquet[2].valeur;
            end;
Cependant, j'aimerais génréraliser cette procédure c'est à dire que si je prends les cartes 3 et 4 alors j'utilise la même procédure sans avoir à refaire une procédure presque identique...

Merci d'avance