script shell

[invite97b21456]

saluut
j'ai essayé d'ecrire un script shell qui convertis des nombre en lettre par ex :
1 donne "un"
2 donne "deux"
...................
................
jusqu'a mille

#!/bin/sh
echo "donnez un nombre inferieur a 1000"
read r
centaine='expr $r\/100'
dizaine='expr \( $r - $centaine\*100\)\/10'
unite='expr\( $r - $centaine\*100\)-\($dizaine\*10\)'
case $centaine in
  0)break;;
  1)echo "cent";
    break;;
  2)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
        echo "deux cents"
     else 
        echo"deux cent"
     fi;
     break;;
  3)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "trois cents"
     else 
       echo"trois cent"
     fi;
     break;;
  4)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "quatre cents"
     else
       echo"quatre cent"
     fi;
     break;;
  5)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "cinq cents"
     else
       echo"cinq cent"
     fi;
     break;;
  6)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "six cents"
     else 
       echo"six cent"
     fi;
     break;;
  7)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "sept cents"
     else 
       echo"sept cent"
     fi;
     break;;
  8)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "huit cents"
     else 
       echo"huit cent"
     fi;
     break;;
  9)if [\($dizaine -eq 0\) -a \($unite -eq 0\)] 
     then 
       echo "neuf cents"
     else 
       echo"neuf cent"
     fi;;
esac
case $dizaine in
  0)break;;
  1)break;;
  2)echo"vingt";
    break;;
  3)echo"trente";
    break;;
  4)echo"quarante"
    break;;
  5)echo"cinquante";
    break;;
  6)echo"soixante";
    break;;
  7)echo"soixante";
    break;;
  8)eho"quatre-vingt";
    break;;
  9)echo"quatre vingt";;
esac
case $unite in
  1)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"onze"
     else echo"un"
     fi;
     break;;
  2)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"douze"
     else echo"deux"
     fi;
     break;;
  3)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"treize"
     else echo"trois"
     fi;
     break;;
  4)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"quatorze"
     else echo"quatre"
     fi;
     break;;
  5)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"quinze"
     else echo"cinq"
     fi;
     break;;
  6)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"seize"
     else echo"six"
     fi;
     break;;
  7)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"dix-sept"
     else echo"sept"
     fi;
     break;;
  8)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"dix-huit"
     else echo"huit"
     fi;
     break;;
  9)if [ \( $dizaine -eq 0 \) -o \( $dizaine -eq 7 \) -o \( $dizaine -o 9 \) ] 
     then echo"dix-neuf"
     else echo"neuf"
     fi;
     break;;
esac

malheuresement aprés l'exécution le programme ne donne rien
je sais pas vraiment ou il y'a le probleme
merci
-----

[Philou67]

Merci d'utiliser la balise CODE pour poster un script (icône ).
Philou67 pour la modération.

[danyvio]

Pour commencer intercale des echo juste derrière le calcul de centaine, dizaine et unité pour vérifier que c'est ok.

[polo974]

centaine=$(( $r/100 ))
(un simple echo $centaine aurait montré le pb)

mais ce n'est pas aussi simple...

 Cliquez pour afficher

#!/bin/sh
# copyright polo974 (forums.futura-sciences.com) sous licence gpl

# faute de tableau en pur sh...
lunit=" un deux trois quatre cinq six sept huit neuf dix onze douze treize quatorze quinze seize dix-sept dix-huit dix-neuf"
unit() 
{ echo "$lunit" |cut -d" " -f$(($1+1)); }

ldeca="  vingt trente quarante cinquante soixante soixante quatre-vingt quatre-vingt"
deca() 
{ echo "$ldeca" |cut -d" " -f$(($1+1)); }

let="0 0 1 1 1 1 1 1 0 0"	# "et" entre dizaine et unité suivant dizaine
et() 
{ echo "$let" |cut -d" " -f$(($1+1)); }

lvingt="1 1 1 0 0 0 1 1 1 1"	# modulo 20 ou 10
vingt() 
{ echo "$lvingt" |cut -d" " -f$(($1+1)); }

ChiffreEnLettre () # (nombre)
{
	nombre=$1

	if [ $nombre -eq 0 ]
	then
		echo "zero"
		return
	fi

link=0
lettre=''

	for i in 1000000 1000 1
	do
		y=$(( nombre / i))
		if [ $y -ne 0 ]
		then
			centaine=$(( y / 100))
			dizaine=$(( (y - (100 * centaine)) / 10 ))
			unite=$(( y % 20 ))	# modulo20

			if [ $centaine -gt 1 ]	# centaine avec omission 0 et 1
			then 
				[ $link -eq 1 ] && lettre=$lettre"-"
				lettre=$lettre$(unit $centaine)
				link=1
			fi

			if [ $centaine -ne 0 ]		# multipliant par 100
			then 
				[ $link -eq 1 ] && lettre=$lettre"-"
				lettre=$lettre"cent"
				link=1
			fi

			if [ $dizaine -gt 1 ]	# dizaine avec omission 0 et 1
			then 
				[ $link -eq 1 ] && lettre=$lettre"-"
				lettre=$lettre$(deca $dizaine)
				link=1
			fi
			if [ $(( ($(vingt $dizaine) == 0) && (unite >= 10) )) -ne 0 ]
			then 	# gestion modulo 10 pour 30, (40) et 50
				unite=$(( unite -10 ))
			fi

			if [ $(( (unite > 1) || (unite && ((y>1) || (i != 1000))) )) -ne 0 ]
			then 	# unité sauf si 1 de 1000
				if [ $(( $(et $dizaine) && ((unite==1) || (unite==11)) )) -ne 0 ]
				then	# le et pour certains 1 et 11
					[ $link -eq 1 ] && lettre=$lettre"-"
					lettre=$lettre"et"
					link=1
				fi
				[ $link -eq 1 ] && lettre=$lettre"-"
				lettre=$lettre$(unit $unite)
				link=1
			fi
			case $i in
			1000000 )
				if [ $y -gt 1 ]
				then
					lettre=$lettre"-millions"
				else
					lettre=$lettre"-million"
				fi
			;;
			1000 )
				[ $link -eq 1 ] && lettre=$lettre"-"
				lettre=$lettre"mille"
				link=1
			;;
			1)
				if [ $(( (centaine>1 && dizaine==0 && unite==0) || (dizaine==8 && unite==0) )) -ne 0 ]
				then 	# fin et accord centaines ou 80
						lettre=$lettre"s"
				fi
			esac
		fi # end if(y!=0)
		nombre=$(( nombre - (y*i) ))
	done # end for
	echo $lettre
}

echo "Introduire un nombre entier : "
read num

echo $num
[ ${#num} -gt 9 ] && { echo "trop long ! ! !"; exit 1; }

c1=$(ChiffreEnLettre $num )

echo $c1

version allant jusqu'à 999 999 999 et respectant l'écriture recommandée par l'académie française

[A voir en vidéo sur Futura]