[Débutant] Utilisation de If

Version imprimable

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

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
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.

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:

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:

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

Comme sa ? :

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
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.

30/10/2008, 11h30
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:

1 2 3 if (valeur1='valeur1') and (valeur2='valeur2') then ...........
Il faut mettre les conditions dans les parenthèses ;)

Cordialement
30/10/2008, 11h40
elliotg

J'ai modifier sa marche merci