Nombre en toutes lettres

Poster un nouveau sujet   Répondre au sujet

Voir le sujet précédent Voir le sujet suivant Aller en bas

Nombre en toutes lettres

Message par haiethem le Lun 17 Nov - 16:57

begin
readln(n);
case n mod 10 of
0:s1:='';
1:s1:='un';
2:s1:='deux';
3:s1:='trois';
4:s1:='quatre';
5:s1:='cinq';
6:s1:='six';
7:s1:='sept';
8:s1:='huit';
9:s1:='neuf';
end;
case n mod 20 of
0:s2:=' ';
10:s2:='dix';
11:s2:='onze';
12:s2:='douze';
13:s2:='treize';
14:s2:='quatorze';
15:s2:='quinze';
16:s2:='seize';
17:s2:='dix sept';
18:s2:='dix huit';
19:s2:='dix neuf';
end;
case n div 10 of
2:s3:='vingt';
3:s3:='trente';
4:s3:='quarente';
5:s3:='cinquante';
6,7:s3:='soixante';
8,9:s3:='quatre vingts';
end;
case n of
1..10:writeln(n,' ** ',s1,s2);

11..19: writeln(n,' ** ',s2);

20..69,80..89:if n mod 10 = 1 then writeln(n,' ** ',s3,' et ',s1)
                                              else writeln(n,' ** ',s3,' ',s1);
else if n mod 10 = 1 then writeln(n,' ** ',s3,' et ',s2)
                                else writeln(n,' ** ',s3,' ',s2)
end;
end;
end.

_________________
=================================
Haiethem Elguediri
Lycée Secondaire Mareth
+21652084191
+21652906038
+21631139805
+21675321050
haiethem@gmail.com
www.haiethem.tk
avatar
haiethem

Messages : 418
Points : 14190
Réputation : 3
Date d'inscription : 08/11/2010
Age : 40

Voir le profil de l'utilisateur http://www.haiethem.tk

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum