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
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...
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;
Merci d'avance
Partager