Exercice (nombres 1 - 99 en toutes lettres):

Poster un nouveau sujet   Répondre au sujet

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

Exercice (nombres 1 - 99 en toutes lettres):

Message par haiethem le Lun 5 Jan - 16:19

Analyse :
Résultat = [ ] pour i de 1 à 99 faire
                     Selon n mod 10 faire
        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"
        Finselon


        selon n mod 20 faire
        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"
        finselon


        selon n div 10 faire
        2 : s3←"vingt"
        3 : s3←"trente"
        4 : s3←"quarente"
        5 : s3←"cinquante"
        6,7 : s3←"soixante"
        8,9 : s3←"quatre vingts"
        finselon
 
        selon n faire
        20..69,80..89 : écrire (n," ** ",s3," ",s1)
        11..19 : écrire (n," ** ",s2)
        1..10 : écrire (n," ** ",s1,s2)
        sinon écrire (n," ** ",s3," ",s2)
        finselon
finpour

=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
Pascal :
program nombre;
uses wincrt;
var s1,s2,s3:string;
n:integer;


begin
for n :=1 to 99 do
begin
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
20..69,80..89:if n mod 10 = 1 then writeln(n:3,' ** ',s3,' et ',s1)
else writeln(n:3,' ** ',s3,' ',s1);
11..19: writeln(n:3,' ** ',s2);
1..10:writeln(n:3,' ** ',s1,s2);
else if n mod 10 = 1 then writeln(n:3,' ** ',s3,' et ',s2)
else writeln(n:3,' ** ',s3,' ',s2)
end;
end;

end.


Dernière édition par haiethem le Dim 18 Jan - 23:01, édité 3 fois

_________________
=================================
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

Re: Exercice (nombres 1 - 99 en toutes lettres):

Message par haiethem le Lun 5 Jan - 16:53

1 ** un
  2 ** deux
  3 ** trois
  4 ** quatre
  5 ** cinq
  6 ** six
  7 ** sept
  8 ** huit
  9 ** neuf
 10 ** dix
 11 ** onze
 12 ** douze
 13 ** treize
 14 ** quatorze
 15 ** quinze
 16 ** seize
 17 ** dix sept
 18 ** dix huit
 19 ** dix neuf
 20 ** vingt 
 21 ** vingt et un
 22 ** vingt deux
 23 ** vingt trois
 24 ** vingt quatre
 25 ** vingt cinq
 26 ** vingt six
 27 ** vingt sept
 28 ** vingt huit
 29 ** vingt neuf
 30 ** trente 
 31 ** trente et un
 32 ** trente deux
 33 ** trente trois
 34 ** trente quatre
 35 ** trente cinq
 36 ** trente six
 37 ** trente sept
 38 ** trente huit
 39 ** trente neuf
 40 ** quarente 
 41 ** quarente et un
 42 ** quarente deux
 43 ** quarente trois
 44 ** quarente quatre
 45 ** quarente cinq
 46 ** quarente six
 47 ** quarente sept
 48 ** quarente huit
 49 ** quarente neuf
 50 ** cinquante 
 51 ** cinquante et un
 52 ** cinquante deux
 53 ** cinquante trois
 54 ** cinquante quatre
 55 ** cinquante cinq
 56 ** cinquante six
 57 ** cinquante sept
 58 ** cinquante huit
 59 ** cinquante neuf
 60 ** soixante 
 61 ** soixante et un
 62 ** soixante deux
 63 ** soixante trois
 64 ** soixante quatre
 65 ** soixante cinq
 66 ** soixante six
 67 ** soixante sept
 68 ** soixante huit
 69 ** soixante neuf
 70 ** soixante dix
 71 ** soixante et onze
 72 ** soixante douze
 73 ** soixante treize
 74 ** soixante quatorze
 75 ** soixante quinze
 76 ** soixante seize
 77 ** soixante dix sept
 78 ** soixante dix huit
 79 ** soixante dix neuf
 80 ** quatre vingts 
 81 ** quatre vingts et un
 82 ** quatre vingts deux
 83 ** quatre vingts trois
 84 ** quatre vingts quatre
 85 ** quatre vingts cinq
 86 ** quatre vingts six
 87 ** quatre vingts sept
 88 ** quatre vingts huit
 89 ** quatre vingts neuf
 90 ** quatre vingts dix
 91 ** quatre vingts et onze
 92 ** quatre vingts douze
 93 ** quatre vingts treize
 94 ** quatre vingts quatorze
 95 ** quatre vingts quinze
 96 ** quatre vingts seize
 97 ** quatre vingts dix sept
 98 ** quatre vingts dix huit
 99 ** quatre vingts dix neuf

_________________
=================================
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