Bataille Navale : sélection par IA

**statesman1202** · 10/06/2011, 22h45

Bonjour à tous !

Donc en tant qu'élève ingénieur, je dois rendre un projet d'info.

Comme vous avez du le comprendre, j'ai décidé de programmer une bataille navale en pascal

Ma méthode est simple, je stocke les coordonnées de chaque bateau, leur nom, leur taille, et s'ils sont coulés, dans un tableau de record.

Pour l'IA, j'utilise une base de donnée qui est en fait une matrice du même type que la grille de jeu, et lorsqu'on touche un bateau, la case correspondante dans la BDD reçoit la valeur 1.

Et voici quelques extraits du programme :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
program bataille_navale;
 
uses crt;
 
const   LMAX=10; //Nombre maximal de lignes dans la grille
		CMAX=10; //Nombre maximal de colonnes dans la grille
        TMAX=5; //Taille maximale des bateaux
		NBBAT=5; //Nombre de bateaux
 
type	t_element=0..3; //Elements de la grille
		t_coord=array[1..TMAX] of integer; //Forme des coordonnées
		t_mat=array[1..LMAX,1..CMAX] of t_element; //Les éléments de la grille sont des entiers de 0 à 3
{0:case vide, 1:bateau pas touché, 2:case vide tirée, 3:bateau touché}
		t_bat=	record //Type des bateaux
				nom:string; //Stocke le nom du bateau
				coule:boolean; //Stocke si le bateau est coulé ou non
				taille:integer; //Stocke la taille du bateau
				x,y:t_coord; //Abscisses-Ordonnées du bateau
				end;
		t_nav=array[1..NBBAT] of t_bat;//Tableau contenant les bateaux (Flotte)
 
{ Fonctions booléennes de test :
voisin(x1,y1,x2,y2): rend TRUE si la case 2 est autour de la 1
existe(x,y): rend TRUE si la case est dans la grille de jeu
coule: rent TRUE si le bateau est coulé }
procedure selectIA(var x,y:integer;var m,bdd:t_mat;var N:t_nav); //selection de la case à tirer à partir de la base de données par IA
var i,j,k,l:integer;
begin		
randomize;
for i:=1 to LMAX do //On parcourt bdd
	for j:=1 to CMAX do
		if(bdd[i,j]<>0) //La case C de la bdd est un bateau
			and not (existe(x,y)) //La case C n'a pas encore été trouvée
				and not (coule(m,N,m[i,j])) then //Le bateau considéré n'est pas coulé
			begin
			for k:=i-1 to i+1 do //On tourne autour de C
				for l:=j-1 to j+1 do
					if(m[k,l]<>0) //La case autour de C n'a pas été tirée
						and(existe(l,k)) //La case existe
							and (voisin(j,i,l,k)) then //La case est voisine
							begin
							if(i-k=1)
								or (i-k=-1)then //vertical
								begin
									repeat
									if(i-k=1) then //(haut)
										begin
										if(random(2)=1) then y:=k-1
										else y:=i+1;
										end
									else //(bas)
										begin
										if(random(2)=1) then y:=k+1
										else y:=i-1;
										end;
									x:=l;
									until (existe(x,y)) 
										and (bdd[y,x]=0);
								end
							else //horizontal
								begin
									repeat
									if(j-l=1) then //(gauche)
										begin
										if(random(2)=1) then x:=l-1
										else x:=j+1;
										end
									else //(droite)
										begin
										if(random(2)=1) then x:=l+1
										else x:=j-1;
										end;
									y:=k;
									until (existe(x,y)) 
										and (bdd[y,x]=0);
								end;
							end;
			end;
end;