TALLER 6

#### **1. PEDIR TEMPERATURA Y UNIDAD AL USUARIO**

1. Convertir de Fahrenheit a Celsius
2. Convertir de celsius a fahrenheit


```r
temperatura <- as.numeric(readline("ingrese la temperatura : "))

## ingrese la temperatura :

unidad <- readline("ingrese la unidad de temperatura(Fahrenheit o Celsius): ")

## ingrese la unidad de temperatura(Fahrenheit o Celsius):

#REALIZAR LA CONVERSIÓN

if(tolower(unidad)== "fahrenheit"){
#Convertir de fahrenheit a celsius
  temperatura_convertida<- (temperatura -32) * 5/9
  unidad_convertida <- "celsius"
  
}else if (tolower(unidad)== "celsius"){
#Convertir de celsius a fahrenheit
  temperatura_convertida<-temperatura * 9/5+32
  unidad_convertida <- "fahrenheit"
  cat("la temperatura convertida es: ",temperatura_convertida, unidad_convertida)
}

2. PROGRAMA QUE CALCULA EL SUELDO TOTAL DE UN TRABAJADOR, INCLUIDO HORAS EXTRAS

H <- as.numeric(readline("Ingrese el número de las horas trabajadas: "))

## Ingrese el número de las horas trabajadas:

vh <- as.numeric(readline("Ingrese el valor por hora: "))

## Ingrese el valor por hora:

Sueldo <- H*vh
He <- readline(" ¿Tiene horas extras ? (S/N): ")

##  ¿Tiene horas extras ? (S/N):

if((toupper(He) == "S")) {
HE <- as.numeric(readline("Cuantas horas extras tiene: "))
VH <- as.numeric(readline("Ingrese el valor por hora: "))
vhe <- VH*HE
SUELDO <- (VH*HE)+Sueldo
SUELDO   
}

3. PROGRAMA QUE CALCULA LA SUMA DE LOS PRIMEROS N NÚMEROS ENTEROS

n<- as.numeric(readline("Ingrese el valor del entero positivo: "))

## Ingrese el valor del entero positivo:

if (isTRUE(n>0)) {
  suma<- n*(n+1)/2
  suma
}

4. PROGRAMA QUE CALCULE EL ÍNDICE DE MASA CORPORAL

Ingresar de las variables de peso y altura

peso <- as.numeric(readline("Por favor, ingrese el peso en kg: "))

## Por favor, ingrese el peso en kg:

estatura <- as.numeric(readline("Por favor, ingrese la estatura en metros: "))

## Por favor, ingrese la estatura en metros:

imc <- peso/ (estatura)^2
cat ("Tu índice de masa corporal es: ", imc)

## Tu índice de masa corporal es:  NA

5. PROGRAMA QUE CALCULA EL INTERÉS ANUAL

Ingresar de las variables de cantidad, interés y año

Cantidad <- as.numeric(readline("Ingrese la cantidad a invertir: "))

## Ingrese la cantidad a invertir:

Interés <- as.numeric(readline("Ingrese el interés anual (%): "))

## Ingrese el interés anual (%):

Año <- as.integer(readline("Ingrese el número de años de la inversión: "))

## Ingrese el número de años de la inversión:

I<- Cantidad*Interés*Año
I

## [1] NA

6. PROGRAMA QUE PRESENTA EN QUÉ TIPO ESTÁ, SEGUNDOS, HORAS O MINUTOS

A.- Horas a minutos y segundos B.- Minutos a horas y segundos C.- Segundos a minutos y horas

x <- as.character(readline("Ingrese A,B o C según desee: "))

## Ingrese A,B o C según desee:

#Ingrese A,B o C según desee:
if(x=="A")
{
  t<-as.numeric(readline("Digite el número de horas :"))
  cat("El número de horas ingresadas equivale a: ", t*(60/1), "minutos")
  cat("El número de horas equivale a: ",t*(3600/1),  " segundos")
}
if(x=="B")
{
  t<-as.numeric(readline("Digite el tiempo en minutos: "))
  cat("El número de minutos ingresados equivale a: ", t*(1/60), " horas")
  cat("El número de minutos equivale a: ",t*(60/1), "segundos")
}
if(x=="C")
{
  t<-as.numeric(readline("Digite el tiempo en segundos: "))
  cat("El número de segundos ingresados equivale a: ", t*(1/3600), " horas") 
  cat("El número de segundos equivale a: ", t*(1/60), "minutos")
}

7. PROGRAMA EN EL QUE SE DIGITA VARIOS NÚMEROS Y LUEGO ESTOS SE PRESENTAN DE MANERA ORDENADA

n1<- as.numeric(readline("Ingrese el primer número que desee: "))

## Ingrese el primer número que desee:

n2<- as.numeric(readline("Ingrese el segundo número que desee: "))

## Ingrese el segundo número que desee:

n3<- as.numeric(readline("Ingrese el tercer número que desee: "))

## Ingrese el tercer número que desee:

n4<- as.numeric(readline("Ingrese el cuarto número que desee: "))

## Ingrese el cuarto número que desee:

n5<- as.numeric(readline("Ingrese el quinto número que desee: "))

## Ingrese el quinto número que desee:

números<- c(n1,n2,n3,n4,n5)
cat("Los números en forma ordena son: ",sort(números))

## Los números en forma ordena son:

8. PROGRAMA QUE CALCULA EL FACTORIAL DE UN NÚMERO DIGITADO POR EL USUARIO

num1<- as.numeric(readline("Ingrese el número que desee: "))

## Ingrese el número que desee:

result<-factorial(num1)
cat("El factorial es: ", result)

## El factorial es:  NA

9. PROGRAMA QUE PIDE UN NÚMERO E INDICA SI EL NÚMERO ES PRIMO O NO

es_primo <- function(n) {
  if (n <= 1) {
    return(FALSE)
  }
  for (i in 2:(n-1)) {
    if (n %% i == 0) {
      return(FALSE)
    }
  }
  return(TRUE)
}

10. PROGRAMA QUE PIDA UN NÚMERO E INDIQUE SI EL NÚMERO ES PAR O IMPAR

 número <- as.numeric(readline("Ingrese un número: "))

## Ingrese un número:

if (isTRUE(número %% 2 == 0)) {
    cat("El número", número, "es par.\n")
  } else {
    cat("El número", número, "es impar.\n")
  }

## El número NA es impar.