Ejercicio 1:

Calcular la hipotenusa de un triángulo rectángulo

Definimos la variable del primer cateto

cateto1 <- as.numeric(25)

Definimos la variable del segundo cateto

cateto2 <- as.numeric(7)

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: 25.96151

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(5)
b <- as.numeric(9)
c <- as.numeric(1.5)

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: 5 x^2 + 9 x + 1.5 = 0 Las soluciones son: x1 = -0.1858572 y x2 = -1.614143

EJERCICIO 3

Crear un programa que nos permita calcular el area de un triangulo rectangulo basado en la base y altura ingresadas por el usuario

Definimos la variable de la base

base<-as.numeric(10)

Definimos la variable de la altura

altura<-as.numeric(15)

Definimos la variable area y realizamos la operacion base por altura, dividido entre 2

area<-((base*altura)/2)

Reflejamos el resultado

cat("El area resultante del triangulo rectangulo es:", area)

## El area resultante del triangulo rectangulo es: 75

EJERCICIO 4

Crear un programa para calcular el area y perimetro de un rectangulo dado su base y altura

Definimos la base y altura del triangulo

base<- as.numeric(20)
altura<- as.numeric(25)

Se muestra el area y el perimetro del rectangulo

cat("El C!rea del rectC!ngulo es =", base*altura)

## El C!rea del rectC!ngulo es = 500

cat("El perC-metro del rectC!ngulo es =", 2*base+2*altura)

## El perC-metro del rectC!ngulo es = 90

EJERCICIO 5

Crear un progrma que identifique 3 notas ingresadas por el usuario y calcule el promedio

Definimos las variables que seran para las notas

not1 <- as.numeric(15)
not2 <- as.numeric(12)
not3 <- as.numeric(19.5)

Definimos la variable promedio

promedio <- ((not1+not2+not3)/3)

mostramos el resultado

cat("El promedio de las calificaciones", not1,not2,not3,  "es: ", promedio)

## El promedio de las calificaciones 15 12 19.5 es:  15.5

EJERCICIO 6

Calcular el area y perimetro de la circunferencia dado el radio

definimos el valor del radio

r <- as.numeric(9.8)

Calculamos el radio

area <- pi * r^2

Calculamos el perimetro

perimetro <- 2 * pi * r

mostramos el resultado

cat("El C!rea del circulo es: ", area)

## El C!rea del circulo es:  301.7186

cat("El perC-metro del circulo es: ",perimetro)

## El perC-metro del circulo es:  61.57522

EJERCICIO 7

Calcular el area y perimetro de un trapecio dado su base mayor, base menor y altura.

primero definimos las bases y la altura

base_mayor<- as.numeric(8)
base_menor<- as.numeric(5)
altura<- as.numeric(9)

hacemos las operaciones y mostramos el area del trapecio

cat("el area del trapecio es =",((base_mayor+base_menor)/2)*(altura),"cm^2")

## el area del trapecio es = 58.5 cm^2

#Para calcular el perimetro de un trapecio necesitamos utilizar el teorema de PitCagoras que nos dice que los lados del trapecio son igual a: c^2=a2+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 = 83.25

lado<-sqrt(c)

mostramos el resultado

cat("el lado del trapecio es =",lado)

## el lado del trapecio es = 9.124144

cat("el perC-metro del trapecio es =",lado+lado+base_mayor+base_menor,"cm")

## el perC-metro del trapecio es = 31.24829 cm

EJERCICIO 8

crear un programa que Dados dos numeros, determinar cual es el numero mayor y cual es el numero menor, si los dos numeros son iguales y el mensaje debe decir que son numeros iguales

definimos las variables del primer y segundo numero

n1 <- as.numeric(-4)
n2 <- as.numeric(-1)

hacemos las operaciones y mostramos el resultado

if (n1 > n2) {
  cat(n1, "es mayor. ", n2, "es menor.")
} else if (n1 < n2) {
  cat(n2, "es mayor. ", n1, "es menor.")
} else {
  cat("Ambos nC:meros son iguales.")
}

## -1 es mayor.  -4 es menor.

EJERCICIO 9

Escribe un programa que lea dos numeros y muestre en la salida su suma, resta, multiplicacion y division

num1 <- as.numeric(5)
num2 <- as.numeric(-2)

realizamos las operaciones correspondientes

suma <-  num1 + num2
resta <-  num1 - num2
multiplicacion <-  num1 * num2
division <- num1 / num2

mostramos los resultados

cat("La suma del numero 1:", num1, "con el numero 2:" , num2, "es: ", suma)

## La suma del numero 1: 5 con el numero 2: -2 es:  3

cat("La resta del numero 1:", num1, "con el numero 2:" , num2, "es: ", resta)

## La resta del numero 1: 5 con el numero 2: -2 es:  7

cat("La multiplicaciC3n del numero 1:", num1, "con el numero 2:" , num2, "es: ", multiplicacion)

## La multiplicaciC3n del numero 1: 5 con el numero 2: -2 es:  -10

cat("La division del numero 1:", num1, "con el numero 2:" , num2, "es: ", division)

## La division del numero 1: 5 con el numero 2: -2 es:  -2.5

EJERCICIO 10

Realice un programa que pida una cantidad en dolares y como resultado se visualice el IVA (12%) y el valor total a pagar.

Definimos una variable para oder digitar la cantidad en $$

a<- as.numeric(1800)

calculamos el IVA total

iva<- a*0.12
total<- a+iva

Mostramos el resultado

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

## Su dinero incluido el IVA es igual a:  2016

EJERCICIO 1

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.

Definimos la temperatura

tem <- as.numeric(15)

cambiamos a Fahrenheit o Celcius (centigrados) segun querramos

grad <- tolower("celcius")

hacemos las operaciones y mostramos el resultado

if (grad == "celcius") {
  temp_f <- (tem * 9/5) + 32
  cat("La temperatura en Fahrenheit es:", temp_f, " grados Fahrenheit \n")
} else {
  temp_c <- (tem - 32) * 5/9
  cat("La temperatura en Celsius es:", temp_c, " grados celsius\n")
}

## La temperatura en Fahrenheit es: 59  grados Fahrenheit

EJERCICIO 2

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áss debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente

Solicitar el número de horas trabajadas y calcular la paga básica

horas_t <- as.numeric(8)

coste_h <- as.numeric(4.50)

paga_b <- horas_t * coste_h

Calcular la paga de horas extra y la paga total

horas_et <- as.numeric(15)
coste_he <- as.numeric(5)

pago_e <- horas_et * coste_he
paga_t <- paga_b + pago_e
cat("La paga total, incluyendo las horas extras, es:", paga_t, "\n")

## La paga total, incluyendo las horas extras, es: 111

EJERCICIO 3:

Escribir un programa que lea un entero positivo, n, introducido por elusuario y despues muestre en pantalla la suma de todos los enteros desde 1 hasta n.La suma delos n primeros enteros positivos puede ser calculada de la siguiente forma:

suma=n(n+1)/2

n<- as.numeric(15)

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

cat("La suma de los primeros ", n, " terminos es igual a ", suma)

## La suma de los primeros  15  terminos es igual a  120

EJERCICIO 4

Solicitar al usuario su peso en kilogramos

p <- as.numeric(59)

Solicitar al usuario su estatura en metros

e <- as.numeric(1.70)

Calcular el Índice de Masa Corporal (IMC)

imc <- p / (e^2)
# Mostrar el resultado redondeado a 2 decimales
cat("Tu índice de masa corporal es:", round(imc, 2), "\n")

## Tu índice de masa corporal es: 20.42

EJERCICIO 5:

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

c<- as.numeric(5000)
i<- as.numeric(1.5)
a<- as.numeric(3)

i<-i/100

capital<-c*(1-i)^a

cat("el capital obtenido es de ", capital)

## el capital obtenido es de  4778.358

EJERCICIO 6

Realizar un programa que pida el tiempo en horas, minutos o segundos y permita convertirlo a otra unidad

Solicitar al usuario que ingrese el número de horas, minutos o segundos

tiempo <- as.numeric(30)

Especificar en qué medida se encuentra el valor ingresado h, m o s

tim_e <- tolower("h")

Especificar a qué unidad se quiere convertir h, m o s

conv <- tolower("m")

Realizar las conversiones

if (tim_e == "s" & conv == "h") {
  tim_h <- tiempo / 3600
  cat(tiempo, "segundos convertidos a horas son:", round(tim_h, 4), "horas\n")
} else if (tim_e == "s" & conv == "m") {
  tim_m <- tiempo / 60
  cat(tiempo, "segundos convertidos a minutos son:", round(tim_m, 4), "minutos\n")
} else if (tim_e == "s" & conv == "s") {
  cat(tiempo, "segundos siguen siendo:", tiempo, "segundos\n")
} else if (tim_e == "m" & conv == "s") {
  tim_s <- tiempo * 60
  cat(tiempo, "minutos convertidos a segundos son:", tim_s, "segundos\n")
} else if (tim_e == "m" & conv == "h") {
  tim_h <- tiempo / 60
  cat(tiempo, "minutos convertidos a horas son:", round(tim_h, 4), "horas\n")
} else if (tim_e == "m" & conv == "m") {
  cat(tiempo, "minutos siguen siendo:", tiempo, "minutos\n")
} else if (tim_e == "h" & conv == "m") {
  tim_m <- tiempo * 60
  cat(tiempo, "horas convertidas a minutos son:", tim_m, "minutos\n")
} else if (tim_e == "h" & conv == "s") {
  tim_s <- tiempo * 3600
  cat(tiempo, "horas convertidas a segundos son:", tim_s, "segundos\n")
} else if (tim_e == "h" & conv == "h") {
  cat(tiempo, "horas siguen siendo:", tiempo, "horas\n")
} else {
  cat("Unidad no válida. Ingresa 'h' para horas, 'm' para minutos o 's' para segundos.\n")
}

## 30 horas convertidas a minutos son: 1800 minutos

Ejercicio 7

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

num1<-as.numeric(6)

num2<-as.numeric(9)

num3 <-as.numeric(15)

num4 <-as.numeric(25)

num5 <-as.numeric(2)

num6<-as.numeric(12)

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 descendente son:", sort(numeros,decreasing = TRUE))

## Los números de forma descendente son: 25 15 12 9 6 2

cat("Los números de forma ascendente son:", sort(numeros,decreasing = FALSE))

## Los números de forma ascendente son: 2 6 9 12 15 25

Ejercicio 8

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

Solicitar el número al usuario

num <- as.numeric(6)

#calcular el factorial

if (num < 0 || floor(num) != num) {
  cat("Por favor ingresa un n??mero entero no negativo.\n")
} else {
  factorial <- 1
  
  # Calcular el factorial usando un bucle
  for (i in 1:num) {
    factorial <- factorial * i
  }
  
  # Mostrar el resultado
  cat("El factorial de", num, "es:", factorial, "\n")
}

## El factorial de 6 es: 720

Ejercicio 9

Ver si un número es primo o no

# Función para verificar si un número es primo
es_primo <- function(num) {
  if (num <= 1) {
    return(FALSE)
  }
  
  for (i in 2:sqrt(num)) {
    if (num %% i == 0) {
      return(FALSE)
    }
  }
  return(TRUE)
}

Solicitar al usuario un número

numero <- as.integer(15)

Mostrar si el número es primo o no

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

## 15 no es un número primo.

Ejercicio 10

Programa que pide un número e indica si es par o impar

numero <- as.numeric(25)

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

## El número 25 es impar.

TALLER 4 GRUPO 8

Erik Remache

2025-05-05

Ejercicio 1:

Calcular la hipotenusa de un triángulo rectángulo

Definimos la variable del primer cateto

Definimos la variable del segundo cateto

Definimos la variable hipotenusa y asignamos la raíz de la suma de los catetos con el comando sqrt

Reflejamos el resultado con el comando cat

Ejercicio 2:

Calcular las soluciones de una ecuación de segundo grado

Definimos 3 variables como tipo numérico (a, b, c)

Calculamos el valor del discriminante

Definimos nuestras variables para las soluciones

Mostramos el resultado con el comando cat

EJERCICIO 3

Crear un programa que nos permita calcular el area de un triangulo rectangulo basado en la base y altura ingresadas por el usuario

Definimos la variable de la base

Definimos la variable de la altura

Definimos la variable area y realizamos la operacion base por altura, dividido entre 2

Reflejamos el resultado

EJERCICIO 4

Crear un programa para calcular el area y perimetro de un rectangulo dado su base y altura

Definimos la base y altura del triangulo

Se muestra el area y el perimetro del rectangulo

EJERCICIO 5

Crear un progrma que identifique 3 notas ingresadas por el usuario y calcule el promedio

Definimos las variables que seran para las notas

Definimos la variable promedio

mostramos el resultado

EJERCICIO 6

Calcular el area y perimetro de la circunferencia dado el radio

definimos el valor del radio

Calculamos el radio

Calculamos el perimetro

mostramos el resultado

EJERCICIO 7

Calcular el area y perimetro de un trapecio dado su base mayor, base menor y altura.

primero definimos las bases y la altura

hacemos las operaciones y mostramos el area del trapecio

mostramos el resultado

EJERCICIO 8

crear un programa que Dados dos numeros, determinar cual es el numero mayor y cual es el numero menor, si los dos numeros son iguales y el mensaje debe decir que son numeros iguales

definimos las variables del primer y segundo numero

hacemos las operaciones y mostramos el resultado

EJERCICIO 9

Escribe un programa que lea dos numeros y muestre en la salida su suma, resta, multiplicacion y division

realizamos las operaciones correspondientes

mostramos los resultados

EJERCICIO 10

Realice un programa que pida una cantidad en dolares y como resultado se visualice el IVA (12%) y el valor total a pagar.

Definimos una variable para oder digitar la cantidad en $$

calculamos el IVA total

Mostramos el resultado

EJERCICIO 1

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.

Definimos la temperatura

cambiamos a Fahrenheit o Celcius (centigrados) segun querramos

hacemos las operaciones y mostramos el resultado

EJERCICIO 2

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áss debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente

Solicitar el número de horas trabajadas y calcular la paga básica

Calcular la paga de horas extra y la paga total

EJERCICIO 3:

Escribir un programa que lea un entero positivo, n, introducido por elusuario y despues muestre en pantalla la suma de todos los enteros desde 1 hasta n.La suma delos n primeros enteros positivos puede ser calculada de la siguiente forma:

suma=n(n+1)/2

EJERCICIO 4

Solicitar al usuario su peso en kilogramos

Solicitar al usuario su estatura en metros

Calcular el Índice de Masa Corporal (IMC)

EJERCICIO 5:

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

EJERCICIO 6

Realizar un programa que pida el tiempo en horas, minutos o segundos y permita convertirlo a otra unidad

Solicitar al usuario que ingrese el número de horas, minutos o segundos

Especificar en qué medida se encuentra el valor ingresado h, m o s

Especificar a qué unidad se quiere convertir h, m o s

Realizar las conversiones

Ejercicio 7

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