DESCRIPCIÓN

En este presente informe se encuentran alojados 20 ejercicios diferentes que fueron elaborados en el programa RStudio, cada uno con su respectivo planteamiento del problema y resultados.

EJERCICIO 1

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

Primero debemos conocer cual es el triangulo rectangulo, una vez que sepamos cuaal es procedemos a investigar la formula con la cual calcularemos la hipotenusa.

FÓRMULA DE LA HIPOTENUSA:

\[h= \sqrt{(b^2+c^2)}\]

Figura 1: Triangulo rectangulo

PROCEDIMIENTO

Paso 1: Definimos una variable j y k la cual representa al cateto menos y mayor que corresponden al triangulo rectángulo.

j<-as.numeric(readline("Ingrese el primer cateto"))
##INGRESE EL VALOR DEL CATETO MENOR:
k<- as.numeric(readline("Ingrese el segundo cateto"))
##INGRESE EL VALOR DEL CATETO MAYOR:

Paso 2: Escribimos la formula para calccular la hipotenusa.

hip<- sqrt((j^2)+(k^2)))

Paso 3: Utilizaremos el comando cat para que imprima el texto y el resultado deseado.

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

—————————————————————————————————————————————————————————————————

EJERCICIO 2

Escribe un programa que calcule las soluciones de una ecuación de segundo grado de la forma:

*Figura 2: Formula general

\[ax^2+bx+c=0ax^2+bx+c=0\] Tenemos que esta es una ecuación de segundo grado o también llamada ecuación cuadrática donde tenemos una sola variable la cual está representada por X y cuenta con tres constantes que están representadas por las letras a, b y c. A continuación, se presenta la fórmula para resolver:

\[ax^2+bx+c=0\] \[x=\frac{-b+{\sqrt{(b^2-4ac)}}}{2a}\]

PROCEDIMIENTO

PASO 1:Asignamos las variables las cuales están representadas por las letras num1, num2 y num3. ingresaremos el valor que deseemos a continuación.

a <-as.numeric(readline("Ingresa el valor de a: "))
## Ingresa el valor de a:
#Ingrese el valor de a:
b <-as.numeric(readline("Ingresa el valor de b: "))
## Ingresa el valor de b:
#Ingrese el valor de num2:
c <-as.numeric(readline("Ingresa el valor de c: "))
## Ingresa el valor de c:
#ingrese el valor de num3:

Paso 2: Mediante la aplicación del comando cat nos mostrara el resultado de la ecuación, mediante la utilización de la fórmula para despejar el problema que ya se ha indicado al inicio. Para fines prácticos a=2, b=3,c=6.

cat("El valor de x1 es: ",(-b+sqrt(b^2-4*a*c))/(2*a))
## El valor de x1 es:  NA
cat("El valor de x2 es: ",(-b-sqrt(b^2-4*a*c))/(2*a))
## El valor de x2 es:  NA

—————————————————————————————————————————————————————————————————

EJERCICIO 3

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

Formula para calcular el área de un triangulo rectangulo es: \[ Área\ del\ triangulo=\frac{b*h}{2}\]

Figura 3: área del triangulo

PROCEDIMIENTO

Paso 1: Asignamos una variable base y otra altura como se muestra a continuación:

n<-as.numeric(readline("Ingrese la base"))
## Ingrese la base
## INGRESE EL VALOR DE LA BASE:
m<-as.numeric(readline("ingrese la altura"))
## ingrese la altura
## INGRESE EL VALOR DE LA ALTURA:

Paso 2: Utilizamos la formula respectiva y cat para que imprima el resultado.

cat("El Area del triangulo es: ", (n*m)/2)
## El Area del triangulo es:  NA

—————————————————————————————————————————————————————————————————

EJERCICIO 4

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

Para conocer el área y el perimetro de un rectangulo, a continuación la formula: \[área= base* altura\] \[Perimetro= 2(base)+2(altura)\]

Figura 4: área y perimetro de un rectangulo

PROCEDIMIENTO

Paso 1: Creamos las variables numéricas donde “num7” es la altura y “num8” la base.

num7<-as.numeric(readline("Ingrese la base"))
## Ingrese la base
## Ingrese el número para el valor de la base:
num8<-as.numeric(readline("Ingrese la atura"))
## Ingrese la atura
## Ingrese el número para el valor de la altura:

Paso 2: Utilizamos las fórmulas que se necesita para calcular el área y perímetro.

cat("EL AREA DEL RECTANGULO: ", (num7*num8))
## EL AREA DEL RECTANGULO:  NA
cat("EL PERIMETRO DEL RECTANGULO: ", (num7^2)+(num8^2))
## EL PERIMETRO DEL RECTANGULO:  NA

—————————————————————————————————————————————————————————————————

EJERCICIO 5

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

Para calcular el promedio de las 3 notas vamos a utilizar la siguiente fórmula:

\[Promedio=\frac{nota1+nota2+nota2}{3}\]

Figura 5: promedio

PROCEDIMIENTO

Paso 1: Creamos las variables numéricas num4, num5, num6 donde num4 es la primera calificación, num5 la segunda calificación y num6 la tercera calificación.

num4<-as.numeric(readline("Ingrese la primera nota"))
## Ingrese la primera nota
## Ingrese la primera calificación:
num5<-as.numeric(readline("Ingrese la segunda nota"))
## Ingrese la segunda nota
## Ingrese la segunda calificación:
num6<-as.numeric(readline("Ingrese la tercera nota"))
## Ingrese la tercera nota
## Ingrese la tercera calificación:

Paso 2: Utilizamos las fórmulas para calcular el promedio y que la nota esté entre 0 y 20.

cat("El promedio es: ", (num4+num5+num6)/3) 
## El promedio es:  NA

—————————————————————————————————————————————————————————————————

EJERCICIO 6

Hallar área y perímetro:

Hallar el área y perímetro de un sector circular cuya cuerda es el lado del triángulo equilátero inscrito, siendo 7 cm el radio de la circunferencia.

Figura 6: área y circunferencia de un circulo

\[FÓRMULA \ DEL \ AREA \ DE \ LA \ CIRCUNFERENCIA= \pi*r^2\] \[FÓRMULA \ DEL \ PERÍMETRO \ DE \ LA \ CIRCUNFERENCIA= 2*\pi*r\]

PROCEDIMIENTO

Calcular el área y perimetro de la circunferencia dado el radio

########### SE INGRESA EL VALOR DEL RADIO ############

r<- as.numeric(readline("Por favor ingrese el valor del radio en cm: 7"))
## Por favor ingrese el valor del radio en cm: 7
perimetro <- 2*pi*(r)

area <-pi*(r)^2

cat("El perímetro de la circunferencia en cm es: ", 43.98 , "\n",
    
"El área de la circunferencia en cm es: ", 153.94)
## El perímetro de la circunferencia en cm es:  43.98 
##  El área de la circunferencia en cm es:  153.94

—————————————————————————————————————————————————————————————————

EJERCICIO 7

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

Figura 7: área y perimetro

\[FÓRMULA \ DEL \ ÁREA \ DEL \ TRAPECIO = \frac{B+b}{2}*h\] \[FÓRMULA \ DEL \ PERÍMETRO \ DEL \ TRAPECIO = B+b+L+L \]

PROCEDIMIENTO

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

#Ingresamos la base mayor
a<-as.numeric(readline("Ingrese el valor de la base mayor en m: 8"))
## Ingrese el valor de la base mayor en m: 8
#Ingresamos la base menor
b<-as.numeric(readline("Ingrese el valor de la base menor en m: 6"))
## Ingrese el valor de la base menor en m: 6
# Ingresamos la altura
h <- as.numeric(readline("Ingrese la altura del trapecio en m: 4"))
## Ingrese la altura del trapecio en m: 4
# Ingresamos el lado
h <- as.numeric(readline("Ingrese el lado del trapecio en m: 5"))
## Ingrese el lado del trapecio en m: 5
#Realizamos la operación de las fórmulas:

cat("El área del trapecio en m^2 son : 28 m^2 ", "\n",
    
"El perímetro del trapecio en m son : 24 m ")
## El área del trapecio en m^2 son : 28 m^2  
##  El perímetro del trapecio en m son : 24 m

—————————————————————————————————————————————————————————————————

EJERCICIO 8

Dados dos números, determine 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 numeros iguales”.

Figura 8: cálculo de los números mayores y menores

PROCEDIMIENTO

Paso1: Primero ingresamos los numeros en las variables p y m.

p<- as.numeric(readline("Ingrese el primer numero: 8"))
## Ingrese el primer numero: 8
m<-as.numeric(readline("Ingrese el segundo numero: 10"))
## Ingrese el segundo numero: 10
cat("El primer número es menor que el segundo número;" , 8<10, "\n",
  "El primer número es mayor que el segundo número;", 8>10, "\n",
  "Los números son iguales;", 8==10)
## El primer número es menor que el segundo número; TRUE 
##  El primer número es mayor que el segundo número; FALSE 
##  Los números son iguales; FALSE

—————————————————————————————————————————————————————————————————

EJERCICIO 9 - Adicional 1

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

Figura 9:operaciónes basicas

OPERACIONES  BÁSICAS

\[SUMA= a+b\] \[RESTA= a-b\] \[MULTIPLICACIÓN= a*b\] \[DIVISIÓN= \frac{a}{b}\]

PROCEDIMIENTO

Paso 1: ingresamos los numeros en las variables a y b y utilizamos cat para imprimir lo que nosotros queremos ver.

a<-as.numeric(readline("ingrese el primer número: 15"))
## ingrese el primer número: 15
b<-as.numeric(readline("ingrese el segundo número: 3"))
## ingrese el segundo número: 3
cat("La suma de los números es : ", 15+3)
## La suma de los números es :  18
cat("La resta de los números es: ", 15-3)
## La resta de los números es:  12
cat("La multiplicación de los números es: ", 15*3 )
## La multiplicación de los números es:  45
cat("La división de los números es:", 15/3)
## La división de los números es: 5

—————————————————————————————————————————————————————————————————

EJERCICIO 10 - Adicional 2

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

Figura 10: calculo del iva

\[FÓRMULA \ PARA \ OBTENER \ EL \ PRECIO \ CON \ IVA= (Precio * IVA)+Precio\] ## PROCEDIMIENTO

Paso 1: Se declara la variable X para ingresar el valor de $115 y se utiliza cat con la formula con el valor base por 0.12.

x<-as.numeric(readline("Ingrese el precio $: 115"))
## Ingrese el precio $: 115
cat("El IVA es: ", (115*0.12))
## El IVA es:  13.8
cat("El valor total a pagar es $:  ",(115*0.12)+115)
## El valor total a pagar es $:   128.8

—————————————————————————————————————————————————————————————————

DEBER 2

—————————————————————————————————————————————————————————————————

Problema N° 11

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

Figura 11 - Temperatura

Se desea transformar la temperatura.

PROCEDIMIENTO

medida<- as.character(readline("Por favor si su temperatura esta en Fahrenheit ingrese una F y si esta en Celsius ingrese una C: "))
## Por favor si su temperatura esta en Fahrenheit ingrese una F y si esta en Celsius ingrese una C:
temperatura<- as.numeric(readline("Por favor ingrese la temperatura: "))
## Por favor ingrese la temperatura:
if(medida=="F" | medida=="f"){
  Fahrenheit<- (temperatura*1.8)+32
  cat("Los grados en Fahrenheit es de: ",Fahrenheit, "F")
  
}else{
  Celsius<-(temperatura-32)/1.8
  cat("Los grados en Celsius es de: ",Celsius,"C")
}
## Los grados en Celsius es de:  NA C

—————————————————————————————————————————————————————————————————

Problema N° 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

Figura 12 - numero de horas trabajadas

PROCEDIMIENTO

usuario<-as.numeric(readline("Por favor señor usuario ingrese su total
                             de horas trabajadas: "))
## Por favor señor usuario ingrese su total
##                              de horas trabajadas:
usuario_ex<-as.numeric(readline("Por favor señor usuario ingrese su
                                total de horas extras trabajadas: "))
## Por favor señor usuario ingrese su
##                                 total de horas extras trabajadas:
horas_trabajadas<- as.numeric(usuario*10)
horas_extras<- as.numeric(usuario_ex*15)
sueldo_total<-as.numeric(horas_trabajadas*horas_extras)

cat("Señor usuario su total de horas trabajadas es de: ",horas_trabajadas, "\n",
    "Señor usuario su total de horas extras trabajadas es de: ",horas_extras, "\n",
    "Señor usuario por lo tanto su valor a recibir es de: ", sueldo_total)
## Señor usuario su total de horas trabajadas es de:  NA 
##  Señor usuario su total de horas extras trabajadas es de:  NA 
##  Señor usuario por lo tanto su valor a recibir es de:  NA

—————————————————————————————————————————————————————————————————

Problema N° 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

Figura 13 - Numeros primos y enteros

PROCEDIMIENTO

x <- as.numeric(readline("Por favor introduzca un número entero: "))
## Por favor introduzca un número entero:
suma <- (x*(x+1))/2
cat("La suma de un número entero es: ", suma)
## La suma de un número entero es:  NA

—————————————————————————————————————————————————————————————————

Problema N° 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

Figura 14 - Peso

PROCEDIMIENTO

peso_kg<- as.numeric(readline("Ingrese por favor su peso en kilogramos (kg) :"))
## Ingrese por favor su peso en kilogramos (kg) :
estatura_metros<- as.numeric(readline("Ingrese por favor su estatura en (metros) :"))
## Ingrese por favor su estatura en (metros) :
imc<-peso_kg/estatura_metros^2

cat("Tu indice de masa corporal es de (imc): ", round(imc,2))
## Tu indice de masa corporal es de (imc):  NA

—————————————————————————————————————————————————————————————————

Problema N° 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.

Figura 15 - Inversion

PROCEDIMIENTO

inv <- as.numeric(readline("Ingrese la cantidad invertida: "))
## Ingrese la cantidad invertida:
## Ingrese la cantidad invertida:
int <- as.numeric(readline("Ingrese el interes anual: "))
## Ingrese el interes anual:
## Ingrese el interes anual:
añ <- as.numeric(readline("Ingrese los años: "))
## Ingrese los años:
## Ingrese los años:
tasaint <- int/100
capital <- inv*(1+tasaint)^añ
cat("El capital obtenido es: ",round(capital,digits = 2))
## El capital obtenido es:  NA

—————————————————————————————————————————————————————————————————

Problema N° 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.

Figura 16 - Transformación de minutos, segundos y horas

PROCEDIMIENTO

Se desea transformar 5000 segundos en horas y minutos.

x <- as.character(readline("Ingrese E, J o S segun desee: "))
## Ingrese E, J o S segun desee:
##Ingrese E, J o S segun desee: 

{
if(x=="E")
{
  t<-as.numeric(readline("DIGITAR ELNUMERO DE HORAS :"))
  cat("El numero de horas ingresadas equivale a: ", t*(60/1), "minutos")
  cat("El numero de horas equivale a: ",t*(3600/1),  " segundos")
}
if(x=="J")
{
  t<-as.numeric(readline("DIGITAR EL TIEMPO EN MINUTOS: "))
  cat("El numero de minutos ingresados equivale a: ", t*(1/60), " horas")
  cat("El numero de minutos equivale a: ",t*(60/1), "segundos")
}  
if(x=="S")
{
    t<-as.numeric(readline("DIGITAR EL TIEMPO EN SEGUNDOS: "))
  cat("El numero de segundos ingresados equivale a: ", t*(1/3600), " horas") 
  cat("El numero de segundos equivale a: ", t*(1/60),"minutos")
}
}

—————————————————————————————————————————————————————————————————

Problema N°17

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

Figura 17 - Orden de números

PROCEDIMIENTO

Escribir un programa en el que se digite varios números y luego los números se representen en pantalla ordenada.

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:
n3 <- as.numeric(readline(" Ingrese el tercero número: "))
##  Ingrese el tercero número:
n4 <- as.numeric(readline(" Ingrese el cuarto número: "))
##  Ingrese el cuarto número:
n5 <- as.numeric(readline(" Ingrese el quinto número: "))
##  Ingrese el quinto número:
numeros <- c(n1, n2, n3, n4, n5)
cat("Orden de forma ascendente: ", sort(numeros))
## Orden de forma ascendente:

—————————————————————————————————————————————————————————————————

Problema N°18

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

Figura 18 - Calculo de un factorial

PROCEDIMIENTO

num <- as.integer

num <- 5

resultado <- seq(num)

cat("El factorial del valor: ", 5, "es:", factorial(num))
## El factorial del valor:  5 es: 120

—————————————————————————————————————————————————————————————————

Problema N°19 - Adicional 1

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

Figura 19 - Números primos

PROCEDIMIENTO

library(primes)
## Warning: package 'primes' was built under R version 4.2.3
num<-as.numeric

num <- 5

if(is_prime(num)==TRUE){"Su número es primo"
  
}else{"Su número no es primo"}
## [1] "Su número es primo"

—————————————————————————————————————————————————————————————————

Problema N°20 - Adicional 2

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

Figura 20 - Números pares e impares

PROCEDIMIENTO

num<-as.numeric

num <- 0

if(num%%2==0){"Su número es par"
  
}else{"Su número es impar"}
## [1] "Su número es par"