Discussion :

[yffick]

Voila je me lance dans la prog d'un morpion en mode texte pour deux joueurs. Comme je debute je veux faire simple. A chaque coup d'un joueur je reimprime l'aire de jeu sur l'ecran( parce que je sais pas faire autrement).

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
 
program morpion
var i,j : integer;
var tab: Array[0..9,0..5] of char;
 
procedure afichtab;
begin
for i:=1 to 9 do
	begin
	for j:=1 to 5 do
		begin
		write(tab[i,j]);
		if j=5 then writeln();
		end;
	end;
	readln;
end

Par quoi remplacer le writeln pour que le prog fasse un retour chariot apres avoir afficher la 5eme colonne ?( je sais ca a l'air bete mais j'en suis vraiment au debut)

Comment remplir le tableau après avoir demander la case au joueurs ?
Merci pour les pistes que vous pourriez me donner.

[M.Dlb]

Par quoi remplacer le writeln pour que le prog fasse un retour chariot apres avoir afficher la 5eme colonne ?( je sais ca a l'air bete mais j'en suis vraiment au debut)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
procedure afichtab; 
begin 
for i:=1 to 9 do 
begin 
   for j:=1 to 5 do write(tab[i,j]); 
   writeln(); 
end; 
readln; 
end;

Comment remplir le tableau après avoir demander la case au joueurs ?

Tu peux par exemple coder 0 pour une case vide, 1 pour une croix et 2 pour un rond. Il faut en tout cas distinguer les trois cas possibles : vide, croix ou rond.

a+

[yffick]

Merci pour les pistes.
Maintenant j'ai un probleme de compilation dans le programme principal morpion après la procedure remplir il(tp7) me met "Error .expected". :

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
 
program morpion
uses crt;
var i,j : integer;
var tab: Array[0..8,0..5] of integer;
procedure afichtab;
{remplit le tableau suivant qu'il y ait des croix ou des ronds ou des blancs}
Procedure remplir;
 
procedure afichtab;
begin
for i:=1 to 8 do
	begin
	for j:=1 to 5 do
	begin
	if tab[i,j]=0 then write(' ');
	if tab[i,j]=1 then write(char(120));
	if tab[i,j]=2 then write(char(1));
	if tab[i,j]=3 then write(char(58));
	if tab[i,J]=4 then write(char(240));
	end;
	writeln;
readln;
end;
 
Procedure remplir;
begin
for i:=1 to 8 do
	begin
	for j:=1 to 5 do
		begin
		if i=3 or 6 then tab[i,j]:=3
		else tab[i,j]:=0
		if j=2 or 4 then tab[i,j]:=4
		else tab[i,j]:=0
		end;
	end;
end;
 
begin morpion
remplir;
afichtab;
end.

Voila pour l'instant je veux juste afficher le tableau avant que les joueurs ne décident de leurs coups.

[yffick]

J'ai compris mon erreur et maintenant ca compile...
Mais j'ai un écran noir quand je lance avec run, je tape sur une touche et rien ne s'affiche alors que je voudrais un truc dans ce genre la..
x | x| 0
----------
0 | 0| x
---------
0 | 0| x
Sans les croix et les ronds car je veux juste afficher le tableau avant les premiers coups.
J'ai besoin de
Merci.

[yffick]

Le curseur s'affiche en bas à gauche de la fenetre.
La je seche

[M.Dlb]

Ca vient sûrement de ta procédure affichage...
Tu fais un transtypage d'un entier vers un char C'est pas très catholique... Utilise plutôt la fonction chr() prévue à cet effet !
Par contre, je comprends pas très bien pourquoi tu as fait cette fonction affichage de cette manière (désolé !)... Redonne la version la plus récente de ton programme.

a+

[yffick]

je te donne ma derniere version.

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
 
program morpion
uses crt;
var i,j : integer;
var tab: Array[0..8,0..5] of integer
 
procedure afichtab;
begin
for i:=1 to 8 do
	begin
	for j:=1 to 5 do
	begin
	if tab[i,j]=0 then write(chr(0));
	if tab[i,j]=1 then write(char(120));
	if tab[i,j]=2 then write(char(1));
	if tab[i,j]=3 then write(char(58));
	if tab[i,J]=4 then write(char(240));
	end;
	writeln;
readln;
end;
 
Procedure remplir;
begin
for i:=1 to 8 do
	begin
	for j:=1 to 5 do
		begin
		if i=3 or 6 then tab[i,j]:=3
		else tab[i,j]:=0
		if j=2 or 4 then tab[i,j]:=4
		else tab[i,j]:=0
		end;
	end;
end;
 
begin morpion
clrScr;
remplir;
afichtab;
end.

Pourquoi ca me met erreur de compilation avec Clrscr :

Quand à la proc d'affichage je sais pas faire alors si il y a un meilleur moyen que le mien(j'en doute pas). Je suis tout ouie.

[M.Dlb]

Ma foi c'est un peu bizarre oui... Tu veux afficher le quadrillage avec affichtab ?

Au début de ton programme, pas besoin de mettre begin morpion, car seul le begin suffit...


a+

[Eric Sigoillot]

C'est pas que "y'a pas besoin", c'est qu'il ne faut pas !

Sinon, pas de grosse erreur en vue.

Un petit plus. Au lieu d'utiliser une batterie de "if" à la suite, utilise plutôt une structure "Case". Ca pourra t'apprendre à t'en servir en plus :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
case Tab[i, j] of
0: Write(#32);   
1: Write(#120); 
2: Write(#1); 
3: Write(#58); 
4: Write(#240); 
end;

Attention aussi, tu utilises un caractère de contrôle (#1). Il faut faire attention à ce qu'il ne fasse pas de bizarreries. Et pour l'espace, ce n'est pas #0, mais #32.

A+

PS: Sous Turbo Pascal, Chr(???) est équivalent à #??? où ??? représente un code numérique ASCII.

[yffick]

Merci les Gars pour votre aide.
Ca me touche beaucoup vu que ca me fait avancer. Vos conseils seront écouté et mon programme c'est un peu ameliorer aujourd'hui. J'arrive à afficher le tableau et j'essairai de penser à utiliser Case.
A+

[Eric Sigoillot]

Ravi de servir à qqch !

A+