Exercice (nombres 1 - 99 en toutes lettres):
Exercice (nombres 1 - 99 en toutes lettres):
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.
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
Re: Exercice (nombres 1 - 99 en toutes lettres):
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
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
Sujets similaires
» Nombre en toutes lettres
» 20000 nombres
» Exercice 17-11-2014
» Sujet Algo & Prog. Juin 2012
» Exercice :
» 20000 nombres
» Exercice 17-11-2014
» Sujet Algo & Prog. Juin 2012
» Exercice :
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
|
|