Ejercicios en R

UNIVERSIDAD CENTRAL DEL ECUADOR

Sistemas de información aplicados a la economía

Grupo N°1

Facultad de economía

Ejercicios propuestos en clase

Ejercicio N°1

1. PEDIR TEMPERATURA Y UNIDAD AL USUARIO

1. Convertir de Fahrenheit a Celsius

2. Convertir de celsius a fahrenheit

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)
}

—————————————————————————————————————————————————————————————

Ejercicio N°2

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   
}

————————————————————————————————————————————————————————————-

Ejercicio N°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
}

—————————————————————————————————————————————————————————————

Ejercicio N°4

4. PROGRAMA QUE CALCULE EL ÍNDICE DE MASA CORPORAL

4.1 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

————————————————————————————————————————————————————————————— >> Ejercicio N°5

5 ROGRAMA QUE CALCULA EL INTERÉS ANUAL

5.1 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

—————————————————————————————————————————————————————————————

Ejercicio N°6

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

6.2 asignamos variables

A.- Horas a minutos y segundos

B.- Minutos a horas y segundos

C.- Segundos a minutos y hora

6.3 desarrollamos

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")
  
}

—————————————————————————————————————————————————————————————–

Ejercicio N°7

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:

—————————————————————————————————————————————————————————————- >> Ejercicio N°8

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

———————————————————————————————————————————————————————————————– >> Ejercicio N°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.