################################################################################
#
# fonctions pour saisie et conversion pouce/cm
#
################################################################################

saisieConversion <- function() {

      # on pose la question 1 et on lit la réponse

      valeur <- as.numeric(readline(
                prompt="quelle quantité voulez-vous convertir ? "))

      # on pose la question 2 et on lit la réponse

      unite <- readline(prompt="en quelle unité ? ")

      # on renvoie les deux valeurs

      return( c(valeur,unite))

} # fin de fonction saisieConversion

## ------------------------------------------------------

convPouceCm <- function(valeur,unite) {

     if (missing(valeur) | missing(unite)) {
       cat("\n")
       cat(" syntaxe  :  convPouceCm(valeur,unite) avec unite = pouces ou cm\n")
       cat(" exemples :  convPouceCm(10,\"pouces\")\n")
       cat("             convPouceCm(20,\"cm\")\n\n")
       stop()
     } ; # finsi

     # pouce on multiplie, sinon on divise

     facteurConv <- 2.54
     uniteOk     <- 0

     if (unite=="pouces") {
         autreu  <- "cm" ;
         uniteOk <- 1
     } ;

     if (unite=="cm") {
         facteurConv <- 1/facteurConv ;
         autreu      <- "pouces" ;
         uniteOk     <- 1
     } ; # fin si

     if (uniteOk==0) {
       cat(" unité incorrecte. il faut écrire exactement ",
           " \"pouces\" ou \"cm\" comme unité.\n")
     } else {
       resultatConv <- valeur*facteurConv
       cat(valeur," ",unite," = ", resultatConv," ",autreu,".\n",sep="") ;
     } # finsi

     return( c(resultatConv,autreu) )

} # fin de fonction convPouceCm