Ejercicio 1:

Calcular la hipotenusa de un triángulo rectángulo

# Definimos la variable del primer cateto
cateto1 <- as.numeric(readline("Coloque el primer cateto:"))
## Coloque el primer cateto:
# Definimos la variable del segundo cateto
cateto2 <- as.numeric(readline("Coloque el segundo cateto:"))
## Coloque el segundo cateto:
# Definimos la variable hipotenusa y asignamos la raíz de la suma de los catetos
# con el comando sqrt
hipotenusa <- sqrt((cateto1^2) + (cateto2^2))

# Reflejamos el resultado con el comando cat
cat("La hipotenusa del triángulo rectángulo es:", hipotenusa)
## La hipotenusa del triángulo rectángulo es: NA

Ejercicio 2:

Calcular las soluciones de una ecuación de segundo grado

# Definimos 3 variables como tipo numérico (a, b, c)
a <- as.numeric(readline("Ingrese el valor de a:"))
## Ingrese el valor de a:
b <- as.numeric(readline("Ingrese el valor de b:"))
## Ingrese el valor de b:
c <- as.numeric(readline("Ingrese el valor de c:"))
## Ingrese el valor de c:
# Calculamos el valor del discriminante
discriminante <- ((b^2) - (4 * a * c))

# Definimos nuestras variables para las soluciones
solu1 <- ((-b + (sqrt(discriminante))) / (2 * a))
solu2 <- ((-b - (sqrt(discriminante))) / (2 * a))

# Mostramos el resultado con el comando cat
cat("La ecuación de segundo grado ingresada es:", a, "x^2 +", b, "x +", c, "= 0",
    "Las soluciones son:", "x1 =", solu1, "y x2 =", solu2)
## La ecuación de segundo grado ingresada es: NA x^2 + NA x + NA = 0 Las soluciones son: x1 = NA y x2 = NA

Ejercicio 3:

Calcular el área de un triángulo rectángulo

# Definimos la variable de la base
base <- as.numeric(readline("Ingrese el valor de la base del triángulo rectángulo:"))
## Ingrese el valor de la base del triángulo rectángulo:
# Definimos la variable de la altura
altura <- as.numeric(readline("Ingrese el valor de la altura del triángulo rectángulo:"))
## Ingrese el valor de la altura del triángulo rectángulo:
# Calculamos el área del triángulo rectángulo: (base * altura) / 2
area <- ((base * altura) / 2)

# Mostramos el resultado con el comando cat
cat("El área resultante del triángulo rectángulo es:", area)
## El área resultante del triángulo rectángulo es: NA

Ejercicio 4:

Calcular área y perímetro de un rectángulo

# Definimos la base y la altura como variables numéricas ingresadas por el usuario
base <- as.numeric(readline("Ingrese la base del rectángulo:"))
## Ingrese la base del rectángulo:
altura <- as.numeric(readline("Ingrese la altura del rectángulo:"))
## Ingrese la altura del rectángulo:
# Calculamos el área del rectángulo
area <- base * altura

# Calculamos el perímetro del rectángulo
perimetro <- 2 * base + 2 * altura

# Mostramos al usuario el área y el perímetro del rectángulo usando la función cat
cat("El área del rectángulo es =", area)
## El área del rectángulo es = NA
cat("El perímetro del rectángulo es =", perimetro)
## El perímetro del rectángulo es = NA

Ejercicio 5:

Calcular el promedio de notas

# Definimos las variables para las notas ingresadas por el usuario
not1 <- as.numeric(readline("Ingrese la calificación de la primera nota:"))
## Ingrese la calificación de la primera nota:
not2 <- as.numeric(readline("Ingrese la calificación de la segunda nota:"))
## Ingrese la calificación de la segunda nota:
not3 <- as.numeric(readline("Ingrese la calificación de la tercera nota:"))
## Ingrese la calificación de la tercera nota:
# Calculamos el promedio de las notas
promedio <- (not1 + not2 + not3) / 3

# Mostramos el resultado con la función cat
cat("El promedio de las calificaciones", not1, not2, not3, "es:", promedio)
## El promedio de las calificaciones NA NA NA es: NA

Ejercicio 6

Calcular el área y perímetro de la circunferencia dado el radio

Planteamiento del problema: para poder calcular el área y perímetro de una circunferencia, debemos conocer las siguientes fórmulas:

\[area\ circunferencia = \pi*r^2 \] \[perímetro\ circunferncia = 2 * \pi * r \]

SCRIPT

# Este paso imprime en pantalla la descripción del problema
print("Calcular el área y perímetro de la circunferencia dado el radio")
## [1] "Calcular el área y perímetro de la circunferencia dado el radio"
# Este paso imprime lo que va hacer el programa
print("Programa que devuelve el área y perímetro de una circunferencia dado su radio")
## [1] "Programa que devuelve el área y perímetro de una circunferencia dado su radio"
# asignamos el valor del radio y lo convertimos en numérico
r <- 3 
# cálculamos el área
area <- pi * r^2
# cálculamos el perímetro
perimetro <- 2 * pi * r
# Imprimimos el resultado
cat("El área del circulo es: ", area)
## El área del circulo es:  28.27433
cat("El perímetro del circulo es: ",perimetro)
## El perímetro del circulo es:  18.84956

Ejercicio Adicional 1

Calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura.

Planteamiento del problema: para poder calcular el área y perímetro de un trapecio se debe tener en cuenta las siguientes fórmulas:

\[area\ trapecio = \frac {B+b} 2 *h\] \[perímetro\ trapecio = B+b+L+L \] B: base mayor b: base menor L: lado h: altura

SCRIPT

base_mayor<- 15
base_menor<- 9
altura<- 6

cat("el área del trapecio es =",((base_mayor+base_menor)/2)*(altura),"cm^2")
## el área del trapecio es = 72 cm^2
#Para calcular el perímetro de un trapecio necesitamos utilizar el teorema
# de Pitágoras que nos dice que los lados del trapecio son igual a:
# c^2=a^2+b^2

c <- as.numeric(((base_mayor - base_menor)/2)^2 + altura^2)
cat("El valor de c^2 es =", c)
## El valor de c^2 es = 45
lado<-sqrt(c)
cat("el lado del trapecio es =",lado)
## el lado del trapecio es = 6.708204
cat("el perímetro del trapecio es =",lado+lado+base_mayor+base_menor,"cm")
## el perímetro del trapecio es = 37.41641 cm

Ejercicio Adicional 2

Dados dos números, determinar cuál es el número mayor y cuál es el número menor, si los dos números son iguales el mensaje debe decir que son números iguales

Planteamiento del problema: para poder determinar si un número es mayor, menor o igual a otro, se utilizará los comandos if y else

SCRIPT

# definimos las variables del primer y segundo numero
n1 <- 12
n2 <- 10
# Utilizaremos los comandos IF y Else para comprobar si es mayor, menor o igual

if (is.na(n1) || is.na(n2)) {
  cat("Por favor, ingrese números válidos.")
} else {
  # Utilizaremos los comandos IF y Else para comprobar si es mayor, menor o igual
  if (n1 > n2) {
    cat(n1, "es mayor. ", n2, "es menor.")
  } else if (n1 < n2) {
    cat(n2, "es mayor. ", n1, "es menor.")
  } else {
    cat("Ambos números son iguales.")
  }
}
## 12 es mayor.  10 es menor.

Ejercicio Adicional 3

Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división

Planteamiento del problema: para poder calcular las operaciones básicas de suma, resta, multiplicación y división utilizaremos los siguientes símbolos: +, - , / , *

SCRIPT

# Este paso imprime en pantalla la descripción del problema
print("Problema: Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división")
## [1] "Problema: Escribe un programa que lea dos números y muestre en la salida su suma, resta, multiplicación y división"
# Este paso imprime lo que va hacer el programa
print("Programa que devuelve una suma, resta, multiplicación y división de dos números")
## [1] "Programa que devuelve una suma, resta, multiplicación y división de dos números"
# en este paso toma dos valores que ingresados por el usuario y los convertimos a numeros
num1 <- 15
num2 <- 13

# En este paso hacemos las operaciones correspondientes para despues mostrar en el programa
suma <-  num1 + num2
resta <-  num1 - num2
multiplicacion <-  num1 * num2
division <- num1 / num2

# En este paso mostramos por pantalla los numeros ingresados y su operacion correspondiente
cat("La suma del numero 1:", num1, "más el numero 2:" , num2, "es: ", suma)
## La suma del numero 1: 15 más el numero 2: 13 es:  28
cat("La resta del numero 1:", num1, "más el numero 2:" , num2, "es: ", resta)
## La resta del numero 1: 15 más el numero 2: 13 es:  2
cat("La multiplicación del numero 1:", num1, "más el numero 2:" , num2, "es: ", multiplicacion)
## La multiplicación del numero 1: 15 más el numero 2: 13 es:  195
cat("La división del numero 1:", num1, "más el numero 2:" , num2, "es: ", division)
## La división del numero 1: 15 más el numero 2: 13 es:  1.153846

Ejercicio Adicional 4

Realice un Programa que pida una cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar

Planteamiento del problema: conocer cuánto se debería pagar al realizar una compra, teniendo en consideración el IVA, para ello, se debe tener en consideración la siguiente fórmula:

\[total \ iva = precio \ sin \ iva*12\]

SCRIPT

#Definimos una variable para oder digitar la cantidad en $$

a<- 15

#Colocamos la variable iva con su fórmula

iva<- a*0.12

#Colocamos una variable para el total

total<- a+iva

#Reflejamos el resultado con el comando cat

cat("Su dinero incluido el IVA es igual a: ", total)
## Su dinero incluido el IVA es igual a:  16.8

EJERCICIO 11

Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius y presentar en pantalla su transformación en la otra medida.

Paso 1

Definir una variable para que el ususario ingrese la temperatura

temp <- as.numeric(readline("Ingrese el valor  de la temperatura: "))
## Ingrese el valor  de la temperatura:

Paso 2

Ingresar el tipo de temperatura a calcular sea Celcius o Fahrenheit

escala <- as.character(readline("Escribir C si el valor ingresado esta en grados Celsius o F si es grados Fahrenheit: "))
## Escribir C si el valor ingresado esta en grados Celsius o F si es grados Fahrenheit:

Paso 3

Utilizaremos los comandos if y else para establecer las condiciones y cat para mostrar el resultado

if (escala == "C"){
  f <- (temp*1.8)+32
  cat("Los grados Celcius transformados a Fahrenheit son :", f, "° Fahrenheit\n ")
} else{
  c <- (temp-32)/1.8
  cat(" Los grados Fahrenheit transformados a Celsius son :", c, "° Celsius\n ")
}
##  Los grados Fahrenheit transformados a Celsius son : NA ° Celsius
##

EJERCICIO 12

Escribir un programa que pregunte al usuario por el número de horas trabajadas y el coste por hora. Después debe mostrar por pantalla la paga que le corresponde, además debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente.

Paso 1

Definimos nuestra variable para las horas trabajadas

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

Paso 2

Definimos la variable para el costo

c <- as.numeric(readline("Ingrese el costo por cada hora trabajada: "))
## Ingrese el costo por cada hora trabajada:

Paso 3

Definimos la variable para las horas

h_e <- as.numeric(readline("Ingrese el número de horas extras trabajadas: "))
## Ingrese el número de horas extras trabajadas:

Paso 4

Definimos la variable para el coste de las horas extras

c_h <- as.numeric(readline("Ingrese el costo por cada hora extra: "))
## Ingrese el costo por cada hora extra:

Paso 5

Definimos variables para el cálculo

sal <- h*c+(h_e*c_h)

Paso 6

Imprimimos el resultado con la función cat

cat("El sueldo a recibir, con ", h_e, "horas extras trabajadas es: ", sal)
## El sueldo a recibir, con  NA horas extras trabajadas es:  NA

EJERCICIO 13

Escribir un programa que lea un entero positivo, n, introducido por el usuario y después muestre en pantalla la suma de todos los enteros desde 1 hasta n. La suma de los n primeros enteros positivos puede ser calculada de la siguiente forma: suma=n(n+1)/2

Paso 1

Pedimos al usuario que ingrese un número entero positivo

num <- abs(as.integer(readline(prompt = "Ingrese un entero positivo: ")))
## Ingrese un entero positivo:

Paso 2

Calcular la suma utilizando la fórmula suma = n * (n + 1) / 2

suma <- (num * (num + 1) / 2)

Paso 3

Mostramos por pantalla el resultado final con la función cat

cat("La suma de los enteros desde 1 hasta", num, "es:", suma, "\n")
## La suma de los enteros desde 1 hasta NA es: NA

EJERCICIO 14

Escribir un programa que pida al usuario su peso (en kg) y estatura (en metros), calcule el índice de masa corporal y lo almacene en una variable, y muestre por pantalla la frase Tu índice de masa corporal es donde es el índice de masa corporal calculado redondeado con dos decimales

Paso 1

Definir la variables peso como numérica

peso<- as.numeric(readline("Ingrese su peso en kg: "))
## Ingrese su peso en kg:

Paso 2

Definir la variable altura como numérica

altura<- as.numeric(readline("Ingrese su altura en metros: "))
## Ingrese su altura en metros:

Paso 3

Definir la variable imc para que contenga a la fórmula del IMC

imc<-round(peso/(altura*altura)*2)

Paso 4

Mostrar el resultado con el comando cat

cat("Su IMC es de",imc)
## Su IMC es de NA

EJERCICIO 15

Escribir un programa que pregunte al usuario una cantidad a invertir, el interés anual y el número de años, y muestre por pantalla el capital obtenido en la inversión

Paso 1

Pedimos los datos al usuario

cantidad_invertir <- as.numeric(readline("Ingrese la cantidad a invertir: "))
## Ingrese la cantidad a invertir:
tasa_interes_anual <- as.numeric(readline("Ingrese el interés anual (%): "))
## Ingrese el interés anual (%):
años <- as.integer(readline("Ingrese el número de años: "))
## Ingrese el número de años:

Paso 2

Calculamos la tasa de interés convirtiéndola a decimal

tasa_interes_decimal <- tasa_interes_anual / 100

Paso 3

Calculamos el capital obtenido con los datos ingresados

capital_obtenido <- cantidad_invertir * (1 + tasa_interes_decimal)**años

Paso 4

Utilizamos cat para mostrar el resultado

cat("El capital obtenido después de", años, "años es: $", round(capital_obtenido, 2), "\n")
## El capital obtenido después de NA años es: $ NA

EJERCICIO 11

Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius y presentar en pantalla su transformación en la otra medida.

Paso 1

Definir una variable para que el ususario ingrese la temperatura

temp <- as.numeric(readline("Ingrese el valor  de la temperatura: "))
## Ingrese el valor  de la temperatura:

Paso 2

Ingresar el tipo de temperatura a calcular sea Celcius o Fahrenheit

escala <- as.character(readline("Escribir C si el valor ingresado esta en grados Celsius o F si es grados Fahrenheit: "))
## Escribir C si el valor ingresado esta en grados Celsius o F si es grados Fahrenheit:

Paso 3

Utilizaremos los comandos if y else para establecer las condiciones y cat para mostrar el resultado

if (escala == "C"){
  f <- (temp*1.8)+32
  cat("Los grados Celcius transformados a Fahrenheit son :", f, "° Fahrenheit\n ")
} else{
  c <- (temp-32)/1.8
  cat(" Los grados Fahrenheit transformados a Celsius son :", c, "° Celsius\n ")
}
##  Los grados Fahrenheit transformados a Celsius son : NA ° Celsius
##

EJERCICIO 12

Escribir un programa que pregunte al usuario por el número de horas trabajadas y el coste por hora. Después debe mostrar por pantalla la paga que le corresponde, además debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente.

Paso 1

Definimos nuestra variable para las horas trabajadas

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

Paso 2

Definimos la variable para el costo

c <- as.numeric(readline("Ingrese el costo por cada hora trabajada: "))
## Ingrese el costo por cada hora trabajada:

Paso 3

Definimos la variable para las horas

h_e <- as.numeric(readline("Ingrese el número de horas extras trabajadas: "))
## Ingrese el número de horas extras trabajadas:

Paso 4

Definimos la variable para el coste de las horas extras

c_h <- as.numeric(readline("Ingrese el costo por cada hora extra: "))
## Ingrese el costo por cada hora extra:

Paso 5

Definimos variables para el cálculo

sal <- h*c+(h_e*c_h)

Paso 6

Imprimimos el resultado con la función cat

cat("El sueldo a recibir, con ", h_e, "horas extras trabajadas es: ", sal)
## El sueldo a recibir, con  NA horas extras trabajadas es:  NA

EJERCICIO 13

Escribir un programa que lea un entero positivo, n, introducido por el usuario y después muestre en pantalla la suma de todos los enteros desde 1 hasta n. La suma de los n primeros enteros positivos puede ser calculada de la siguiente forma: suma=n(n+1)/2

Paso 1

Pedimos al usuario que ingrese un número entero positivo

num <- abs(as.integer(readline(prompt = "Ingrese un entero positivo: ")))
## Ingrese un entero positivo:

Paso 2

Calcular la suma utilizando la fórmula suma = n * (n + 1) / 2

suma <- (num * (num + 1) / 2)

Paso 3

Mostramos por pantalla el resultado final con la función cat

cat("La suma de los enteros desde 1 hasta", num, "es:", suma, "\n")
## La suma de los enteros desde 1 hasta NA es: NA

EJERCICIO 14

Escribir un programa que pida al usuario su peso (en kg) y estatura (en metros), calcule el índice de masa corporal y lo almacene en una variable, y muestre por pantalla la frase Tu índice de masa corporal es donde es el índice de masa corporal calculado redondeado con dos decimales

Paso 1

Definir la variables peso como numérica

peso<- as.numeric(readline("Ingrese su peso en kg: "))
## Ingrese su peso en kg:

Paso 2

Definir la variable altura como numérica

altura<- as.numeric(readline("Ingrese su altura en metros: "))
## Ingrese su altura en metros:

Paso 3

Definir la variable imc para que contenga a la fórmula del IMC

imc<-round(peso/(altura*altura)*2)

Paso 4

Mostrar el resultado con el comando cat

cat("Su IMC es de",imc)
## Su IMC es de NA

EJERCICIO 15

Escribir un programa que pregunte al usuario una cantidad a invertir, el interés anual y el número de años, y muestre por pantalla el capital obtenido en la inversión

Paso 1

Pedimos los datos al usuario

cantidad_invertir <- as.numeric(readline("Ingrese la cantidad a invertir: "))
## Ingrese la cantidad a invertir:
tasa_interes_anual <- as.numeric(readline("Ingrese el interés anual (%): "))
## Ingrese el interés anual (%):
años <- as.integer(readline("Ingrese el número de años: "))
## Ingrese el número de años:

Paso 2

Calculamos la tasa de interés convirtiéndola a decimal

tasa_interes_decimal <- tasa_interes_anual / 100

Paso 3

Calculamos el capital obtenido con los datos ingresados

capital_obtenido <- cantidad_invertir * (1 + tasa_interes_decimal)**años

Paso 4

Utilizamos cat para mostrar el resultado

cat("El capital obtenido después de", años, "años es: $", round(capital_obtenido, 2), "\n")
## El capital obtenido después de NA años es: $ NA

Ejercicio 16

Realizar un programa que pida el tiempo ya sea en horas, minutos o segundos, luego indicar en qué tipo de tiempo desea transformar y luego presentar el resultado

Paso 1

Definimos una variable de tiempo

tiempo<-as.numeric(readline("Ingrese la hora que desee transformar:"))
## Ingrese la hora que desee transformar:

usamos cat para llamar a la variable y realizar las conversiones

cat("Su hora en minutos son:", tiempo*60, "minutos") 
## Su hora en minutos son: NA minutos
cat("Su hora en segundos son:", tiempo*3600, "segundos")
## Su hora en segundos son: NA segundos

Ejercicio 17

Escribir un programa en el que se digiten varios números y luego los números se presenten en pantalla ordenados

num1<-as.numeric(readline("Ingrese el primer número:"))
## Ingrese el primer número:
num2<-as.numeric(readline("Ingrese el segundo número:"))
## Ingrese el segundo número:
num3 <-as.numeric(readline("Ingrese el tercer número:"))
## Ingrese el tercer número:
num4 <-as.numeric(readline("Ingrese el cuarto número:"))
## Ingrese el cuarto número:
num5 <-as.numeric(readline("Ingrese el quito número:"))
## Ingrese el quito número:
num6<-as.numeric(readline("Ingrese el sexto número:"))
## Ingrese el sexto número:

definimos una variable como objeto

numeros<- c(num1,num2,num3,num4,num5,num6)

con la funcion sort se ordena de forma descendente y ascendente

cat("Los números de forma descendiente son:", sort(numeros,decreasing = TRUE))
## Los números de forma descendiente son:
cat("Los números de forma ascendiente son:", sort(numeros,decreasing = FALSE))
## Los números de forma ascendiente son:

Ejercicio 18

##Escribir un programa que calcule el factorial de un número que ha sido digitado por el usuario

Definimos una variable para ingreso de información

fact <- as.numeric(readline("Ingrese el número para calcular su factorial: "))
## Ingrese el número para calcular su factorial:
facts <- function(fact) {
  if (fact == 0 || fact == 1){
    return(1)
  } else {
      return(fact*facts(fact-1))
    }
}
sol <- facts(4)
cat("El factorial de", fact, "es: ", sol, "\n")
## El factorial de NA es:  24

Ejercicio 19

Ver si un número es primo o no

Paso 1: Creamos una función que recibirá un número y verificara si es primo o no

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

Paso 2: Verificamos que el número no sea divisible para los numero anteriores desde el número 2 hasta un numero anterior al ingresado y retornamos si es verdadero o falso

Paso 3: Pedimos al usuario que ingrese un número

numero <- as.integer(readline(prompt = "Ingrese un número: "))
## Ingrese un número:

Paso 4: Mostramos el resultado si es primo o no verificando con las funciones creadas

if (es_primo(4)) {
  cat(numero, "es un número primo.\n")
} else {
  cat(numero, "no es un número primo.\n")
}
## NA no es un número primo.

Ejercicio 20

##Escribir un programa que pida un número e indique si el número es par o impar

Paso 1: Definimos a “número” como una var. numerica y con readline pedimos que se ingrese un numero

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

Utilizando if y else definimos si es par o impar

if(4 %% 2==0){
  cat("El número",número, "es par")
} else {
  cat("El número",número, "es impar")
}
## El número NA es par