écrire une année en toute lettre

ÉNONCÉ

Ecrire l’analyse, l’algorithme et une traduction pascal d’un programme Intitulé ANNEE qui permet de saisir une année A (2000<=A<=2005) et de l’afficher en toute lettres.

ANALYSE

Nom :Annee
LDE
Résultat= Lettre
Lettre=[]
Selon A faire
2000: Ecrire("Deux Milles")
2001 : Ecrire("Deux Milles Un")
2002 : Ecrire(" Deux Milles Deux")
2003 : Ecrire(" Deux Milles Trois")
2004 : Ecrire(" Deux Milles Quatre")
2005 : Ecrire(" Deux Milles Cinq")
Sinon
Ecrire("Vérifier la date saisie")
Fin Selon
A : Donnée("saisir Votre année")
Fin Annee

ALGORITHME

0)Debut Annee
1) Ecrire("saisir votre année")Lire (A)
2) Selon A faire
2000: Ecrire("Deux Milles")
2001 : Ecrire("Deux Milles Un")
2002 : Ecrire("Deux Milles Deux")
2003 : Ecrire("Deux Milles Trois")
2004 : Ecrire("Deux Milles Quatre"
2005 : Ecrire("Deux Milles Cinq")
Sinon
Ecrire ("Vérifier l'année saisie")
Fin Selon
Fin Annee

PASCAL

Program Annee ;
Uses Wincrt;
Var a: Integer;
Begin
Write ('saisir votre Année');
Read(a);
case A of
2000: Write('Deux Milles');
2001 :Write('Deux Milles Un');
2002 : Write(' Deux Milles Deux');
2003 : Write(' Deux Milles Trois');
2004 : Write(' Deux Milles Quatre');
2005 : Write(' Deux Milles Cinq');
Else Write('Vérifier l''année saisie');
end;
End.