Généralisation d'une procédure
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:
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 ;);)
