TALLER-APE 4: Publicar mis Conocimientos en RPUBS’

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE INGENIERÍA ESTADÍSTICA

INTEGRANTES:

• John Escorza
• Luis Jacome
• Alisson Mendez
• Andrea Obando

---

---

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

---