Bonjour
Je n'ai pas compris pourquoi mon programme ne marche pas.
Voilà l'énoncé :
Voilà mon programme :Écrire un programme qui permet d'afficher le pluriel d'un mot donné selon seulement les règles suivantes (toute autre règle et les exceptions sont exclues) :
Si le mot se termine par un « u », on ajoute « X » : « eau » => « eaux »
Si le mot se termine par « el », la fin au pluriel devient « eux » : « Ciel » => « cieux »
Si le mot se termine par « al », la fin au pluriel devient « aux » : « animal » => « animaux » C
Le reste des mots au pluriel prend « S » à la fin.
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 program pluriel; uses wincrt; var mot:string; begin writeln('saisir un mot');readln(mot); if mot[length(mot)]='l' then if mot[length(mot)-1]='e' insert('eux',mot,length(mot)-2) else if mot[length(mot)-1]='a' insert('aux',mot,length(mot)-2) else if mot[length(mot)]='u' then insert('u',mot,length(mot)+1) else insert('s',mot,length(mot)+1) end.
Partager