TALLER-APE 4: Publicar mis Conocimientos en RPUBS’

TALLER 2

PROGRAMA 1

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

PROCEDIMIENTO

Solicitamos al usuario que ingrese el valor de los catetos y calculamos la hipotenusa

cateto1 <- as.numeric(readline("Ingrese el primer cateto: "))

## Ingrese el primer cateto:

cateto2 <- as.numeric(readline("Ingrese el segundo cateto: "))

## Ingrese el segundo cateto:

hipotenusa <- sqrt(cateto1^2 + cateto2^2)

Mostramos el resultado

cat("La hipotenusa del triángulo rectángulo es:", hipotenusa, "\n")

## La hipotenusa del triángulo rectángulo es: NA

PROGRAMA 2

Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma ax2+bx+c=0 \[ax^2+bx+c=0\]

PROCEDIMIENTO

Solicitamos al usuario que ingrese los coeficientes

a <- as.numeric(readline("Ingresa el coeficiente a: "))

## Ingresa el coeficiente a:

b <- as.numeric(readline("Ingresa el coeficiente b: "))

## Ingresa el coeficiente b:

c <- as.numeric(readline("Ingresa el coeficiente c: "))

## Ingresa el coeficiente c:

#Calculamos el discriminante*

discriminante <- b^2 - 4 * a * c

Calcular las soluciones según el discriminante (positivo, negativo o cero)

raiz_discriminante <- sqrt(discriminante)
solucion1 <- (-b + raiz_discriminante) / (2 * a)
solucion2 <- (-b - raiz_discriminante) / (2 * a)
solucion_doble <- -b / (2 * a)
parte_real <- -b / (2 * a)
parte_imaginaria <- raiz_discriminante / (2 * a)

Imprimimos las soluciones en pantalla (solo hace que el texto comience en una nueva línea, para que sea mas legible

cat("Las soluciones son:")

## Las soluciones son:

cat("\nSolución 1:", solucion1)

## 
## Solución 1: NA

cat("\nSolución 2:", solucion2)

## 
## Solución 2: NA

cat("\nSolución doble:", solucion_doble)

## 
## Solución doble: NA

cat("\nParte real de las soluciones complejas:", parte_real)

## 
## Parte real de las soluciones complejas: NA

cat("\nParte imaginaria de las soluciones complejas:", parte_imaginaria, "i\n")

## 
## Parte imaginaria de las soluciones complejas: NA i

PROGRAMA 3

Calcular el área del triángulo rectángulo dadas su base y altura.

PROCEDIMIENTO

Solicitamos al usuario que ingrese la base y la altura

base <- as.numeric(readline("Ingresa la longitud de la base del triángulo: "))

## Ingresa la longitud de la base del triángulo:

altura <- as.numeric(readline("Ingresa la altura del triángulo: "))

## Ingresa la altura del triángulo:

#Calculamos el área del triángulo con la formula
area <- 0.5 * base * altura

Imprimimos el resultado en pantalla

cat("El área del triángulo es:", area, "\n")

## El área del triángulo es: NA

PROGRAMA 4

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

\[Área \ del \ triángulo=\frac{b*h}{2}\] \[Perímetro=a+b+c\]

PROCEDIMIENTO

Creamos las variables numéricas “a” y “b” donde a vendría a ser la altura y b la base

b<-as.numeric(readline("Ingresar número para el valor de la base: "))

## Ingresar número para el valor de la base:

a<-as.numeric(readline("Ingresar número para el valor de la altura: "))

## Ingresar número para el valor de la altura:

#Utilizamos las fórmulas que se necesita para calcular el área y perímetro, asignando a cada fórmula una variable

rea<-b*a
perimetro<-2*(b+a)

Realizar los cálculos y utilizar la función cat

cat("El área de su rectángulo es:", area, "\n")

## El área de su rectángulo es: NA

cat("El perímetro de su rectángulo es:", perimetro)

## El perímetro de su rectángulo es: NA

PROGRAMA 5

Calcular el promedio de 3 notas que estén entre 0 y 20

PROCEDIMIENTO

Crear tres variables numéricas n1, n2 y n3 donde n1 es la primera calificación, n2 la segunda calificación y n3 la tercera calificación

n1 <- as.numeric(readline("Ingrese la primera calificación: "))

## Ingrese la primera calificación:

n2 <- as.numeric(readline("Ingrese la segunda calificación: "))

## Ingrese la segunda calificación:

n3 <- as.numeric(readline ("Ingrese la tercera calificación: "))

## Ingrese la tercera calificación:

#Utilizar las fórmulas para calcular el promedio y que las notas deben estar entre 0 y 20

promedio<-(n1+n2+n3)/3
mayorque0<-promedio>0
menorque20<-promedio<20

Utilizamos la función cat para conocer el promedio de las calificaciones y obtener un resultado

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

## El promedio de las calificaciones es: NA

PROGRAMA 6

Programa que permite calcular el área y perímetro de la circunferencia

PROCEDIMIENTO

#Solicitamos al usuario que ingrese el valor del radio 

radio<-as.numeric(readline("Por favor introduzca el radio del circulo: "))

## Por favor introduzca el radio del circulo:

#Fórmula para calcular el área de una circunferencia  

area <- (pi*radio*radio) 

#Imprimimos el resultado 

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

## El área del circulo es:  NA

# Fómula para calcular el perimetro de una circunferencia 

perimetro <- (2*pi*radio)  

#Imprimimos el resultado 

cat( "El perimetro del circulo es: ", perimetro )

## El perimetro del circulo es:  NA

PROGRAMA 7

Programa que permite calcular el área y perímetro de un trapecio dado su base mayor, base menor y altura

\[ Área \ del \ trapesio = \frac{(B*h)}{2}*h\] \[ Perímetro = B + b + 2l\]

PROCEDIMIENTO

# Solicitamos al usuario que ingrese los valores solicitados. 

B<-as.numeric(readline("Por favor introduzca un valor para la base mayor: "))

## Por favor introduzca un valor para la base mayor:

b<-as.numeric(readline("Por favor introduzca un valor para la base menor: "))

## Por favor introduzca un valor para la base menor:

h<-as.numeric(readline("Por favor introduzca un valor para la altura: "))

## Por favor introduzca un valor para la altura:

L<-as.numeric(readline("Por favor introduzca el valor de los lados: "))

## Por favor introduzca el valor de los lados:

# Fómula para calcular el perímetro de un trapecio  

perimetro2<-B+b+L+L

cat("El perímetro del trapecio es: ", perimetro)

## El perímetro del trapecio es:  NA

# Fómula para calcular el área de un trapecio  

area2<-((B+b)/2)*h 

#Imprimimos el resultado 
cat("El área del trapecio es: ", area2)

## El área del trapecio es:  NA

PROGRAMA 8

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

PROCEDIMIENTO

# Se crean las variebles: 
# ingrese cualquier número  

num1<-3

num2<-2

-*Fórmulas para determinar cual es mayor

# Comprobar si los números son iguales
if(num1 == num2){
  print("Los números son iguales")
} else {
  # Determinar el número mayor
  if(num1 > num2){
    print(paste("El número mayor es", num1))
  } else {
    print(paste("El número mayor es", num2))
  }

  # Determinar el número menor
  if(num1 < num2){
    print(paste("El número menor es", num1))
  } else {
    print(paste("El número menor es", num2))
  }
}

## [1] "El número mayor es 3"
## [1] "El número menor es 2"

PROGRAMA 9

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

PROCEDIMIENTO

# Ingrese cualquier número  

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

## Ingrese el primer número:

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

## Ingrese el segundo número:

-Realizamos los calculos matemáticos

-Utilizando la función cat para imprimir el resultado

cat("La suma de los números ingresados es: ", n1+n2, "\n",  
    
    "La resta de los números ingresados es: ", n1-n2, "\n",  
    
    "La multiplicación de los números ingresados es: ", n1*n2,"\n", 
    
    "La división de los números ingresados es: ", n1/n2,"\n")

## La suma de los números ingresados es:  NA 
##  La resta de los números ingresados es:  NA 
##  La multiplicación de los números ingresados es:  NA 
##  La división de los números ingresados es:  NA

PROGRAMA 10

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

PROCEDIMIENTO

-Creamos la variable

#Ingrese la cantidad en dólares: 
dolares<- as.numeric(readline("Ingrese la cantidad en dólares: "))

## Ingrese la cantidad en dólares:

-Hacemos el cálculo para el IVA

iva<-dolares*0.12

-calculo para el Total

total<-iva+dolares

-Muestra el valor del iva

cat("El IVA es de: ", iva)

## El IVA es de:  NA

-Imprime el resultado con el IVA incluido

cat("El valor total a pagar es de: ", total)

## El valor total a pagar es de:  NA

TALLER 3

PROGRAMA 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

PROCEDIMIENTO

Se crea una variable numérica, para pedirle al usuario que ingrese la temperatura

temperatura <- as.numeric(readline("Ingrese la temperatura: "))

## Ingrese la temperatura:

#Pedir al usuario que indique la escala de temperatura (Fahrenheit o Celsius)
unidad <- readline("Ingrese la unidad en mayúsculas (F o C): ")

## Ingrese la unidad en mayúsculas (F o C):

#Realizar la conversión y mostrar el resultado#
if (unidad == "C") {
  fahrenheit <- (1.8 * temperatura) + 32
  cat("La temperatura en Fahrenheit es: ", fahrenheit, " °F")
} else if (unidad == "F") {
  celsius <- (temperatura - 32) / 1.8
  cat("La temperatura en Celsius es: ", celsius, " °C")
} else {
  cat("Unidad no válida. Por favor, ingrese F o C.")
}

## Unidad no válida. Por favor, ingrese F o C.

Fórmula para transformar grados Fahrenheit a Celsius

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

PROCEDIMIENTO

# Mensaje de lo que se trata el programa
cat(" Programa que calcule, el pago correspondiente del trabajador por hora")

##  Programa que calcule, el pago correspondiente del trabajador por hora

# Ingreso de los valores correspondientes
hora  <- as.numeric(readline(" Ingrese las horas trabajadas (hora): "))

##  Ingrese las horas trabajadas (hora):

costo <- as.numeric(readline(" Ingrese el costo por hora ($):       "))

##  Ingrese el costo por hora ($):

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

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

# Se multiplica el número de horas por el costo.
valor <- hora*costo
 
# Se calcula las horas extra por el costo por 2 ya que es el doble
pagaextra <- (extras*(costo*2))
 
# Se calcula el sueldo total sumando el valor obtenido con el pago extra.
sueldototal <- valor+pagaextra
 
# Se imprime el resultado haciendo uso de cat
cat("Su sueldo sin horas extras es de:", valor, "dólares")

## Su sueldo sin horas extras es de: NA dólares

cat("Su sueldo total es de:", sueldototal, "dólares")

## Su sueldo total es de: NA dólares

PROGRAMA 3

Programa 3: 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

PROCEDIMIENTO

#     

#Paso 1: Se crea una variable numérica, para colocar el mensaje
#        que aparecerá al usuario, para ello se utilizará la función
#         readline.

n1 <- as.numeric(readline("Ingrese un numero entero positivo"))

## Ingrese un numero entero positivo

n1<- as.numeric(sample(10:80,1,replace = T))
#Paso 2: Se ingresa la fórmula
suma <- (n1*(n1+1)/2)
suma

## [1] 325

\[Suma=\frac{n_1*(n_1+1)}{2}\]

#     se asigna a suma uno el acumulado de 1 
#     hasta el número entero ingresado haciendo
#     uso de ":" para concatenar el valor
suma1 <-(1:n1)
#    Se asigna a respuesta la suma acumulada del valor ingresado haciendo uso
#    de la función cumsum que nos ayuda a calcular la suma acumulada
respuesta<- cumsum(suma1) 
# Se imprime los valores obtenidos haciendo uso de la función cat.
cat("Los números a sumar son: ", suma1)

## Los números a sumar son:  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

cat("El resultado acumulado de la suma de dichos números",
"se expresa así: ", respuesta)

## El resultado acumulado de la suma de dichos números se expresa así:  1 3 6 10 15 21 28 36 45 55 66 78 91 105 120 136 153 171 190 210 231 253 276 300 325

PROGRAMA 4

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

PROCEDIMIENTO

# Pedir al usuario que ingrese peso y estatura (prompt  sirve para mostrar un 
#mensaje o una solicitud al usuario cuando está esperando la entrada.)
peso <- as.numeric(readline(prompt = "Ingresa tu peso en kg: "))

## Ingresa tu peso en kg:

estatura <- as.numeric(readline(prompt = "Ingresa tu estatura en metros: "))

## Ingresa tu estatura en metros:

# Calcular el índice de masa corporal (IMC)
imc <- peso / (estatura ^ 2)
# Redondear el IMC a dos decimales (round se utiliza para redondear números a 
#un número específico de decimales o a la cantidad de dígitos deseados.)
imc <- round (imc, 2)
# Mostrar el resultado
cat("Tu índice de masa corporal es", imc)

## Tu índice de masa corporal es NA

PROGRAMA 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

PROCEDIMIENTO

# Se pide al usuario ingresar la cantidad que va a invertir
cantidad <- as.numeric(readline("Por favor, ingrese la cantidad a invertir: "))

## Por favor, ingrese la cantidad a invertir:

# Se ingresa el interés anual en porcentaje
interes <- as.numeric(readline("Por favor, ingrese el interés anual (en porcentaje): "))

## Por favor, ingrese el interés anual (en porcentaje):

# Se pide el número de años
años <- as.numeric(readline("Por favor, ingrese el número de años: "))

## Por favor, ingrese el número de años:

# Calculamos el capital obtenido en la inversión
capital <- cantidad * ((1 + interes/100) ^ años)

# Nos muestra el capital obtenido en la inversión

PROGRAMA 6

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

PROCEDIMIENTO

Solicitamos al usuario que ingrese el tiempo inicial

cat("Ingrese el tiempo inicial en formato HH:MM:SS\n")

## Ingrese el tiempo inicial en formato HH:MM:SS

tiempo <- readline(prompt = "Tiempo: ")

## Tiempo:

- Luego se convertirá el tiempo ingresado a segundos*

tiempo_segundos <- as.numeric(strsplit(tiempo, ":") [[1]][1]) * 3600 + as.numeric(strsplit(tiempo, ":")[[1]][2]) * 60 + as.numeric(strsplit(tiempo, ":")[[1]][3])

Se realizará la conversión según el tipo de tiempo seleccionado

if (tiempo == "horas") {
 resultado <- tiempo_segundos / 3600
 cat("El tiempo en horas es:", resultado, "\n")
} else if (tiempo == "minutos") {
 resultado <- tiempo_segundos / 60
 cat("El tiempo en minutos es:", resultado, "\n")
} else if (tiempo == "segundos") {
 cat("El tiempo en segundos es:", tiempo_segundos, "\n")
} else {
  cat("Tipo de tiempo ingresado no válido. Intente 'horas', 'minutos' o 'segundos'.\n")
}

## Tipo de tiempo ingresado no válido. Intente 'horas', 'minutos' o 'segundos'.

PROGRAMA 7

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

PROCEDIMIENTO

Pedir al usuario que ingrese los números separados por espacios (what = numeric() en scan() asegura que la entrada se interprete como valores numéricos

cat("Ingresa varios números separados por espacios y luego presiona Enter:\n")

## Ingresa varios números separados por espacios y luego presiona Enter:

numeros <- scan (what = numeric (), quiet = TRUE)

Ordenar los números (sort ordena los elementos de un vector)

numeros_ordenados <- sort(numeros)

Mostrar los números ordenados

cat("Números ordenados:", numeros_ordenados, "\n")

## Números ordenados:

PROGRAMA 8

Programa para calcular el valor factorial de un número que ha sido digitado por el usuario

PROCEDIMIENTO

Solicitar al usuario que ingrese un número para efectuar el cálculo factorial

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

## Ingresa un número:

Asignar el valor de 1 para dar comienzo del vectorial

resultado<- 1

Utilizando for se calculará la factorial y Se establecerá un bucle que va desde 1 hasta el número ingresado.

num1<-5
for (i in 1:num1) {
 resultado <- resultado * i
}

Se imprime los resultados usando la función cat

cat("El factorial de", num1, "es",resultado, "\n")

## El factorial de 5 es 120

PROGRAMA 9

Programa que pida un número e indique si el número es primo o no

PROCEDIMIENTO

Solicitamos al usuario que ingrese un número

num2<-as.integer(readline("Ingresa un número: "))

## Ingresa un número:

Se establecerá un bucle que va desde 1 hasta el número ingresado y con la función cat se imprime el resultado obtenido.

num2<-5
residuo<-(sum(num2/1:num2==num2%/%1:num2))
if(residuo==2)
{
 cat("El número", num2, "ES PRIMO")
}else
{
cat("El número", num2, "NO ES PRIMO")
}

## El número 5 ES PRIMO

PROGRAMA 10

Programa que pida un número e indique si el número es par o impar

PROCEDIMIENTO

Solicitamos al usuario que ingrese un número

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

## Ingresa un número:

Se utilizará los condicionales if y else para identificar si es par o impar el número ingresado
Con la condición if, se mostrará con un mensaje si el número es par, caso contrario será un número impar

num3<- 2

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

## El número 2 es par

TALLER-APE 4: Publicar mis Conocimientos en RPUBS’

Grupo 3

24 de Noviembre del 2023

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE INGENIERÍA ESTADÍSTICA

INTEGRANTES:

TALLER 2

PROGRAMA 1

PROCEDIMIENTO

PROGRAMA 2

PROCEDIMIENTO

PROGRAMA 3

PROCEDIMIENTO

PROGRAMA 4

PROCEDIMIENTO

PROGRAMA 5

PROCEDIMIENTO

PROGRAMA 6

PROCEDIMIENTO

PROGRAMA 7

PROCEDIMIENTO

PROGRAMA 8

PROCEDIMIENTO

PROGRAMA 9

PROCEDIMIENTO

PROGRAMA 10

PROCEDIMIENTO

TALLER 3

PROGRAMA 1

PROCEDIMIENTO

PROGRAMA 2

PROCEDIMIENTO

PROGRAMA 3

PROCEDIMIENTO

PROGRAMA 4

PROCEDIMIENTO

PROGRAMA 5

PROCEDIMIENTO

PROGRAMA 6

PROCEDIMIENTO

PROGRAMA 7

PROCEDIMIENTO

PROGRAMA 8

PROCEDIMIENTO

PROGRAMA 9

PROCEDIMIENTO

PROGRAMA 10

PROCEDIMIENTO