Discussion :

[elliotg]

Bonjour, j'ai commencé il y a peu le Pascal, et j'ai fait un code, mais il ne marche pas :

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 Lolo ( output );
var fille : String;
var cl : String;
var lunettes : String;
var cn : String;
var tans : String;
begin
writeln('Merci d''ecrire sans maj');
writeln('Est-ce que tu es une fille ?  Oui ou Non ');
readln(fille);
writeln('Est-ce que tu as les cheveux longs ? Oui ou Non');
readln(cl);
writeln('Est-ce que tu as des lunettes de vue ? Oui ou Non ');
readln(lunettes);
writeln('Est-ce que tu as les cheveux noirs ? Oui ou Non');
readln(cn);
writeln('Est-ce que tu as plus de trente ans ? Oui ou Non ');
readln(tans);
if (fille = 'non' and cl = 'non' and lunettes = 'non' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es un(e) petit(e) homme/femme qui dit non');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'oui' and cn = 'oui' and tans = 'oui')
then
begin
writeln('Tu es une personne qui dit oui');
end
else
if (fille = 'non' and cl = 'non' and lunettes = 'oui' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es Elliot Gaud Morel');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'non' and cn = 'non' and tans = 'oui')
then
begin
writeln('Tu es ma maman que j''aime');
end
else
if (fille = 'non' and cl = 'non' and lunettes = 'oui' and cn = 'oui' and tans = 'oui')
then
begin
writeln('Tu es Bertrand Boudaud');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'non' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es Heloise Gaud Morel');
end
else
if (fille = 'oui' and cl = 'non' and lunettes = 'non' and cn = 'oui' and tans = 'non')
then
begin
writeln('Tu es Marie Boudaud');
end
else
begin
writeln('Je ne te connais pas');
end;
writeln('Copyright 2008-2009 LaE');
readln;
end.

Cordialement, le if ne marche pas.

[krachik]

Bonjour et Bienvenue
J'ai envie de dire "qu'est ce qui ne marche pas avec le"if" obtiens tu une erreur ou n'obtiens tu pas le résultat que tu désires?

EN fait il y a pas mal de choses qui ne vont pas dans ton code
1-Première chose qui frappe aux yeux l'indentation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Program Lolo ( output );
  var fille : String; 
  var cl : String;
  var lunettes : String;
  var cn : String;
  var tans : String;
begin
  writeln('Merci d''ecrire sans maj');
  writeln('Est-ce que tu es une fille ?  Oui ou Non ');
  readln(fille);
  ......

2-UTilisation de 'var' ,une seule déclaration est suffisante + c'est préférable de donner un nom de programme assez indicatif que 'Lolo'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Program Lolo ( output );
   var  fille : String;
        cl : String;
        lunettes : String;
        cn : String;
        tans : String;
begin
   writeln('Merci d''ecrire sans maj');
   writeln('Est-ce que tu es une fille ?  Oui ou Non ');
   readln(fille);

3-Toutes tes questions portent une réponse 'oui/non' pour ne pas gâcher la mémoire tu peux utiliser une chaine de trois caractères pour la réponse(String[3]) ou mieux encore juste un caractère (O/N) (char) en passant peut être par un Readkey
En balançant des "if else" comme ça faux faire attention à ne pas en oublier

Je te laisse réorganiser ça et on voit pour la suite
Cordialement

[elliotg]

Comme sa ? :

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
 
Program identite ( output );
   var fille : String;
          cl : String;
 lunettes : String;
         cn : String;
      tans : String;
begin
   writeln('Merci d''ecrire sans maj');
   writeln('Est-ce que tu es une fille ?  Oui ou Non ');
   readln(fille);;
 
writeln('Est-ce que tu as les cheveux longs ? Oui ou Non');
readln(cl);
writeln('Est-ce que tu as des lunettes de vue ? Oui ou Non ');
readln(lunettes);
writeln('Est-ce que tu as les cheveux noirs ? Oui ou Non');
readln(cn);
writeln('Est-ce que tu as plus de trente ans ? Oui ou Non ');
readln(tans);
if (fille = 'non' and cl = 'non' and lunettes = 'non' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es un(e) petit(e) homme/femme qui dit non');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'oui' and cn = 'oui' and tans = 'oui')
then
begin
writeln('Tu es une personne qui dit oui');
end
else
if (fille = 'non' and cl = 'non' and lunettes = 'oui' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es Elliot Gaud Morel');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'non' and cn = 'non' and tans = 'oui')
then
begin
writeln('Tu es ma maman que j''aime');
end
else
if (fille = 'non' and cl = 'non' and lunettes = 'oui' and cn = 'oui' and tans = 'oui')
then
begin
writeln('Tu es Bertrand Boudaud');
end
else
if (fille = 'oui' and cl = 'oui' and lunettes = 'non' and cn = 'non' and tans = 'non')
then
begin
writeln('Tu es Heloise Gaud Morel');
end
else
if (fille = 'oui' and cl = 'non' and lunettes = 'non' and cn = 'oui' and tans = 'non')
then
begin
writeln('Tu es Marie Boudaud');
end
else
begin
writeln('Je ne te connais pas');
end;
writeln('Copyright 2008-2009 LaE');
readln;
end.

[krachik]

Aie non quand je dis indenter c'est indenter tout le code pas juste une partie
la partie que j'ai faite c'est juste pour te montrer ce qu'il faut faire


Et pour tes 'if' c'est ça qu'il faut faire

Code :

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

1
2
3
 
if (valeur1='valeur1') and (valeur2='valeur2') then
  ...........

Il faut mettre les conditions dans les parenthèses

Cordialement

[elliotg]

J'ai modifier sa marche merci