Salut tout le monde
Je viens de chercher une autre methode pour remplacer la mienne qui est trop longue. Voici l'énoncé :
voici ma méthode :Traduire en toute lettre un entier naturel composé de deux chiffres au maximum.
voila . c'est trop long d'ecrire 99 nombres en toute lettre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 program moyenne; uses wincrt ; var nomb : integer ; lettre : string ; begin readln (nomb) ; case nomb of 0 : lettre := 'Zero' ; 1 : lettre := 'Un' ; 2 : lettre := 'Deux' ; 3 : lettre := 'Trois' ; 4 : lettre := 'Quatre' ; 5 : lettre := 'Cinq' ; 6 : lettre := 'Six' ; 7 : lettre := 'Sept' ; 8 : lettre := 'Huit' ; 9 : lettre := 'Neuf' ; 10 : lettre := 'Dix' ; 11 : lettre := 'Onze' ; 12 : lettre := 'Douze' ; ............ 99 : lettre := 'Qutre vingnt et dix neuf' ; else lettre := 'Erreur'; end; writeln (lettre); end.![]()
Partager