Ejercicios Rstudio

R

R es un lenguaje de programación y entorno de sotware estadístico y de ciencia de datos. R al ser un sotware de código abierto nos perimite tener una interacción con mas usuarios.

Rstudio

Es un entorno de desarrollo integrado (IDE) de código abierto, que se utiliza principalmente para trabajar con el lenguaje de programación R. Es una herramienta que utlizan estadísticos, científicos de datos y analistas de datos para realizar análisis de datos, visualización y creación de informes.

A contiuación presentaremos unos ejercicios que se han realizado en Rstudio:

#Escribe un programa que solicite los catetos de un triángulo rectángulo y muestre su hipotenusa

# Catetos de Triangulo
cateto1 <- 5
cateto2 <- 9

# Validar que sean valores numéricos y positivos
if (is.na(cateto1) || is.na(cateto2)) {
  cat("Error: Debe ingresar valores numéricos.\n")
} else if (cateto1 <= 0 || cateto2 <= 0) {
  cat("Error: Los catetos deben ser mayores que cero.\n")
} else {
  # Calcular la hipotenusa
  hipotenusa <- sqrt(cateto1^2 + cateto2^2)
  
  # Mostrar el resultado
  cat("La hipotenusa del triangulo rectangulo es:", hipotenusa,"\n")
}

## La hipotenusa del triangulo rectangulo es: 10.29563

---

#Calcular el área y perímetro de un rectángulo dado su base y altura.

#Datos
base <- 8
altura <-13 
#Cálculos
area <- base * altura
perimetro <- 2 * (base + altura)
# Resultados
cat("Área del rectángulo:", area)

## Área del rectángulo: 104

cat("Perímetro del rectángulo:", perimetro)

## Perímetro del rectángulo: 42

---

# Área y perímetro de una circunferencia (círculo)
# Constante PI
pi <- 3.1416
# Entrada del radio
radio <- 15
# Cálculos
area <- pi * radio^2
perimetro <- 2 * pi * radio
# Resultados
cat("Área de la circunferencia:", round(area, 2))

## Área de la circunferencia: 706.86

cat("Perímetro (longitud) de la circunferencia:", round(perimetro, 2))

## Perímetro (longitud) de la circunferencia: 94.25

---

#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 semejantes, el mensaje debe decir que son números iguales

m<- 13
k<- 28

igual<-m==k
resultado<-ifelse(igual,
                  "Los numeros son iguales",
                  paste("El mayor es", max(m,k), "y el menor es", min(m,k)))
cat(resultado)

## El mayor es 28 y el menor es 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

n <- 35

# Validar que sea positivo
if (n > 0) {
  # Calcular la suma usando la fórmula
  suma <- (n * (n + 1)) / 2
  
  # Mostrar el resultado
  cat("La suma de todos los enteros desde 1 hasta", n, "es:", suma, "\n")
} else {
  cat("Debe ingresar un número entero positivo.\n")
}

## La suma de todos los enteros desde 1 hasta 35 es: 630

---

#Escribir un programa que pida un número e indique si el número es primo o no

n <- 13
if (n > 1 && all(n %% 2:(n-1) != 0)) {
  cat(n, "es un número primo.\n")
} else {
  cat(n, "no es un número primo.\n")
}

## 13 es un número primo.