Nombre en toutes lettres

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

haiethem

Messages : 410
Points : 13703
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 ne pouvez pas répondre aux sujets dans ce forum