Le programme s'exécute, sauf certaines instructions
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:
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.
