Julien Sopena

function moisEnLitteral (m : word) : string ;
begin
    case m of 
        1 :  moisEnLitteral := 'Janvier';
        2 :  moisEnLitteral := 'Février';
        3 :  moisEnLitteral := 'Mars';
        4 :  moisEnLitteral := 'Avril';
        5 :  moisEnLitteral := 'Mai';
        6 :  moisEnLitteral := 'Juin';
        7 :  moisEnLitteral := 'Juillet';
        8 :  moisEnLitteral := 'Août';
        9 :  moisEnLitteral := 'Septembre';
        10 : moisEnLitteral := 'Octobre';
        11 : moisEnLitteral := 'Novembre';
        12 : moisEnLitteral := 'Décembre';
    end;

function dateEnLitteral () : string ;
var
    annee, mois, jour, joursem : word ;
    anneeEnLitteral, jourEnLitteral : string;
begin
    getdate(annee, mois, jour, joursem);
    str(jour,jourEnLitteral);
    str(annee,anneeEnLitteral);
    ceJour := concat(jourEnLitteral,' ',moisEnLitteral (mois),' ',anneeEnLitteral);
end ;

function dateEnLitteral () : string ;
var
    annee, mois, jour, joursem : word ;
    anneeEnLitteral, jourEnLitteral : string;
begin
    getdate(annee, mois, jour, joursem);
    str(jour,jourEnLitteral);
    str(annee,anneeEnLitteral);
    ceJour := concat(jourEnLitteral,' ',moisEnLitteral (mois),' ',anneeEnLitteral);
end ;

var 
    chaine : string ;

begin 
    repeat
        write ('entrez une chaîne : ') ; readln (chaine);
        remplaceDate (chaine);
        writeln ('après modification : ',chaine);
    until length(chaine)=0;
end.

function queDesChiffres (s : string) : boolean ;
var
    i : word ;
begin
    i := 1 ;
    while (i <= length(s)) and ( '0' <= s[i] ) and ( s[i] <= '9' ) do
        i := i + 1 ;
    if (i > length(s)) then
        queDesChiffres := true
    else
        queDesChiffres := false
end ;

procedure toutEnMajuscules (var s : string) ;
var
    i : word ;
begin
    for i := 1 to length(s) do 
        s[i] := UpCase(s[i]) ;
end ;

function transformeChaineEnEntier (s : string) : word ;
var
    i,sum,unite : word ;
begin
    sum := 0;
    unite := 1;
    for i := length(s) downto 1 do 
    begin
        sum := sum + (ord(s[i])-ord('0')) * unite;
        unite := unite * 10;
    end;
    transformeChaineEnEntier := sum;
end ;

function traductionLitterale ( n : word ) : string ;
begin
    case n of 
        0 :  traductionLitterale := 'ZERO';
        1 :  traductionLitterale := 'UN';
        2 :  traductionLitterale := 'DEUX';
        3 :  traductionLitterale := 'TROIS';
        4 :  traductionLitterale := 'QUATRE';
        5 :  traductionLitterale := 'CINQ';
        6 :  traductionLitterale := 'SIX';
        7 :  traductionLitterale := 'SEPT';
        8 :  traductionLitterale := 'HUIT';
        9 :  traductionLitterale := 'NEUF';
        10 : traductionLitterale := 'DIX';
        11 : traductionLitterale := 'ONZE';
        12 : traductionLitterale := 'DOUZE';
        13 : traductionLitterale := 'TREIZE';
        14 : traductionLitterale := 'QUATORZE';
        15 : traductionLitterale := 'QUINZE';
        16 : traductionLitterale := 'SEIZE';
        17 : traductionLitterale := 'DIX SEPT';
        18 : traductionLitterale := 'DIX HUIT';
        19 : traductionLitterale := 'DIX NEUF';
        20 : traductionLitterale := 'VINGT';
    end ;

var 
    chaine : string ;

begin 
    repeat
        write ('entrez une chaine : ') ; readln (chaine);
        if queDesChiffres (chaine) then
        begin
            writeln (' - Il n''y a que des chiffres.');
            if transformeChaineEnEntier (chaine) <= 20 then
                writeln (' - La traduction littérale de ce nombre est : ',
                             traductionLitterale (transformeChaineEnEntier(chaine)));   
        end;
    until length(chaine)=0;
end.