Discussion :

[hjeromos]

Bonjour,
C'est Monsieur HOUNKPATIN Jérôme du Bénin. Merci de bien vouloir m'aider pour régler ce problème. J'ai écrit un programme concernant le paiement des impôts selon l'âge du citoyen. Mais j'ai constaté que toutes les instructions ne sont pas exécutées. Voici le 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
  program impot;
  uses crt;
  var age:integer;
       sex:char;
        h,f:boolean;
   begin
   clrscr;
       write('Entrez votre âge:');
       readln(age);
       write('Entrez votre sexe M/F:');
       readln(sex);
       h:= (sex='M') and (age>=20);
       f:= (sex='F') and ((age>=18) and (age<=35));
       if h or f then
            begin
                write('Imposable');
            end
       else
            begin
                write('Non imposable');
             end;
   readln;
   end.

NB:L'instruction à partir de if n'est pas exécutée et, quel que soit l'âge, il m'envoie toujours 'Non imposable'. Cher sauveur veuillez m'aider à corriger l'erreur.
Merci.

[Jipété]

L'instruction à partir de if n'est pas exécutée et quelques soit l'âge il m'envoie toujours 'Non imposable'.

Ben oui, elle est exécutée ton instruction "if" puisque ça t'écrit "Non imposable".
Ça veut dire que tes booléens h et f ne sont pas vrais.
Cherche pourquoi...

Et quand on met du code sur un forum, on utilise le bouton "code" (le #) pour le mettre en forme, sinon c'est illisible. Merci.
Exemple :

Code :

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

1
2
3
4
5
6
7
8
if h or f then
begin
  write('Imposable');
end
else
begin
  write('Non imposable');
end;

[Prof]

Bonjour.

Le programme fonctionne parfaitement si on entre le sexe en Majuscule, mais il échoue si on entre une minuscule.

La solution consiste à ajouter l'instruction " sex:=UpCase(sex); " juste après l'instruction " readln(sex); ".