Discussion :

[gadalla]

Salut
Je viens de faire un programme d'intelligence artificielle qui devine le nombre auquel vous avez pensé en donnant un indice +, - ou = en donnant le nombre d'essais.
J'ai fait ceci mais le message s'affiche 3 fois et le calcul reste constant après 7 indices
svp aidez-moi à le corriger.
Merci d'avance

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
program jeux ;
 
uses wincrt;
 
var
 
c:char;
b:integer;
 
procedure lecture (var c:char;var b:integer);
begin
	repeat
   writeln('donnez-moi votre indice +,- ou = :');
		read(c);
	until c in ['-','+','='];
end;
 
 
 
procedure test (c:char;var b:integer);
var
 
x,i:integer;
begin
 
  b:=50;     x:=50;
 
writeln(b);
 
lecture(c,b);
 
i := 1;
 
if (c = '=') then
 
begin
 
writeln(' jai obtenu la solution en 1 coups!');
 
end
		else
		begin
				repeat
			b:= b div 2	;
			i := i +1 ;
			if (c = '+') then
			begin
 
			x := x + b ;
			writeln(x);
			lecture(c,b);
 
			end
 
			else
			begin
 
			x := x - b;
			writeln(x);
			lecture(c,b);
 
			end;
 
 
				until (c = '=');
writeln('j ai obtenu la solution en ',i,' coups!');
end;
end;
begin
test(c,b);
end.

[krachik]

Bonjour
je voudrais juste corrigé 2 ou 3 choses avant d'aller au fond du code

je vient de faire un programme d' inteligence artificielle

Cool(T'as deja programmé un jeu d'echec ?)
Tu as declare des variables globales et locales avec les memes noms ,pour plus de clareté et eviter des confusions c'est mieux de donner des noms differents
et du fais des passages en parametre inutiles
comme ici

Code :

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

procedure lecture (var c:char;var b:integer);

la variable b n'est pas utiliser dans la procedure
si c'est pour une lecture c'est plus conseillé d'utiliser une fonction:dans ton tu auras une fonctions du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
function lecture:char;
var c:char;
begin
    repeat
       write('donnez-moi votre indice +,- ou = :');
       readln(c);
    until c in ['-','+','='];
    lecture:=c
end;

en plus utilises readlnplutot
Apres indentes bien ton code c'est pluq lisible pour tout le monde

Code :

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

1
2
3
4
5
 
if (c = '=') then
begin
    writeln(' jai obtenu la solution en 1 coups!');
end

inutile de metre un begin/end si c'est une seule instruction qui est concerné par ton if

jai ceci mais le message d'affiche 3 fois

quel message?

le calcul reste constant apres 7 indice

pourquoi tu fais ça

Code :

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

b:= b div 2

revois tout ça et poses tes questions
@++

[gadalla]

merci pour les conseil tous est claire.
j a utilises pour redimentionné l'interval de recherche

Code :

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

b:=:div 2

et le message qui s'affiche 3 fois c'est

Code :

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

'donnez-moi votre indice +,- ou = :

[Ultima]

Bonjour,
Comme Krachik te la suggéré ; il vaut mieux utiliser readln que read.
En général, il ne faut jamais mettre read dans une boucle.

Ton problème de phrase qui se répète est dû au fait que tu utilise read.
Pour corriger ce problème, il te suffit de reprendre le code que Krachik t’a proposé.

Code :

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

1
2
3
4
repeat
  write('donnez-moi votre indice +,- ou = :');
  readln(c);
until c in ['-','+','='];

[gadalla]

pour la faute de read j ai la corriger mais il le reste un autre probleme
essayé de chercher le nombre 42 et tu vas voir qu'il se bloque

[Ultima]

Bonjour,
Prends le temps de revoir ton algorithme et tu remarqueras qu'il n'y pas de véritable problème.

[gadalla]

désolé mon ami jai verifier et jai rien trouver
tu peut me précisé ou se trouve la faute

[Ultima]

Salut,
Je veux bien que tu sois débutant, mais pour progresser en informatique, il faut prendre le temps d’analyser ton algo.
Ici, si tu observe bien, tu constates tout de suite que le problème est que tu divise ton chiffre par deux à chaque fois qu’il est trop grand.

[gadalla]

est ce que je change la divition sur 4??
et pourquoi et valeur

Code :

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

b:integer

devient constante apré quelque indice

[Ultima]

salut,
Pour résoudre le problème il te suffit par exemple de diviser par 2 quand c’est trop grand est que c’est paire.
Et quand c’est impaire, tu divise par 2, ensuite tu ajoutes 1.

Je t’avoue que je n’ai pas voulu me prendre la tête avec ton code alors voici un code dans lequel j’ai juste ajouté le traitement dont je viens de te parler.

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
program jeux ;
 
uses wincrt;
 
var
 
c:char;
b:integer;
 
procedure lecture (var c:char;var b:integer);
begin
    repeat
      writeln('donnez-moi votre indice +,- ou = :');
      readln(c);
    until c in ['-','+','='];
end;
 
 
 
procedure test (c:char;var b:integer);
var
 
x,i:integer;
begin
 
  b:=50;     x:=50;
 
writeln(b);
 
lecture(c,b);
 
i := 1;
 
if (c = '=') then
 
begin
 
writeln(' jai obtenu la solution en 1 coups!');
 
end
        else
        begin
            repeat
              if (b mod 2) = 0 then
                b:= b div 2
              else
                b:= (b div 2) +1 ;
              i := i +1 ;
              if (c = '+') then
              begin
                x := x + b ;
                writeln(x);
                lecture(c,b);
              end
              else
              begin
                x := x - b;
                writeln(x);
                lecture(c,b);
              end;
            until (c = '=');
writeln('j ai obtenu la solution en ',i,' coups!');
end;
end;
begin
test(c,b);
end.

Encore une fois prends le temps d'analyser ton algorithme.
tu peux encore nettement l'améliorer. Tu as de l'aide aussi sur le forum intelligence artificielle

[gadalla]

merci beacoup