1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
|
program chiffreetdeslettres;
uses crt,dos;
var
a:integer;
s:string;
function tran(nombre:integer):string;
begin
if nombre=0 then tran:='zero';
if nombre=1 then tran:='un';
if nombre=2 then tran:='deux';
if nombre=3 then tran:='trois';
if nombre=4 then tran:='quatres';
if nombre=5 then tran:='cinques';
if nombre=6 then tran:='six';
if nombre=7 then tran:='sept';
if nombre=8 then tran:='huit';
if nombre=9 then tran:='neuf';
end;
begin
write('Entrer votre chiffre');
read(s);
val(s,a);
case s[1] of
'0':write(tran(a));
'1':begin case s[2] of
'1':write('onze');
'2':write('douze');
'3':write('treze');
'4':write('quatorze');
'5':write('quinze');
'6':write('seize');
'7':write('dix sept');
'8':write('dix huit');
'9':write('dix neuf');
end;
end;
'2':begin val(s[2],a);write('vingt et ',tran(a));end;
'3':begin val(s[2],a);write('trente et ',tran(a));end;
'4':begin val(s[2],a);write('qurente et ',tran(a));end;
'5':begin val(s[2],a);write('cinquante et ',tran(a));end;
'6':begin val(s[2],a);write('soixante et ',tran(a));end;
'7':begin val(s[2],a);write('soixante dix et ',tran(a));end;
'8':begin val(s[2],a);write('quantre vingt et ',tran(a));end;
'9':begin val(s[2],a);write('qautre vingt dix et ',tran(a));end;
else write('erreur');
end;
readln;
readln;
end. |
Partager