Ejercicios en RStudio

CARRERA DE ESTADÍSTICA

Autores
- Ayala Tania
- Callatasig Katherine
- Iñiguez Yessica
- Vera Melany
Curso
- Estadistica_002

EJERCICIOS REALIZADOS EN R

En el presente documento podrá encontrar 20 ejercicios diferentes que fueron elaborados en el programa RStudio, cada uno con su respectivo planteamiento del problema.

EJERICICIO N°1

Elabore un programa el cual solicite al usuario ingrese los valores de Solicitar los dos catetos de un triángulo rectángulo y mostrar su hipotenusa.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener la hipotenusa.

cat1<-as.numeric(readline("Ingrese el valor del cateto mayor:\n"))

## Ingrese el valor del cateto mayor:

cat1<-8

cat2<-as.numeric (readline ("Ingrese el valor del cateto menor:\n"))

## Ingrese el valor del cateto menor:

cat2<-5

hipotenusa<-sqrt((cat1^2)+(cat2^2))
hipotenusa

## [1] 9.433981

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola

cat("El valor de los catetos del triángulo rectángulo son: ","\n",
    "Valor del cateto mayor es : ",cat1,"\n",
    "Valor del Cateto menor es : ",cat2,"\n",
    "La hipotenusa del triángulo rectángulo es: ",hipotenusa)

## El valor de los catetos del triángulo rectángulo son:  
##  Valor del cateto mayor es :  8 
##  Valor del Cateto menor es :  5 
##  La hipotenusa del triángulo rectángulo es:  9.433981

EJERICICIO N°2

Calcular las soluciones de una ecuación de segundo grado de la forma ax^2-bx+c=0.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para la resolución de una ecuación de segundo grado

a<-as.numeric(readline("Escriba el valor que le pertenece a:\n"))

## Escriba el valor que le pertenece a:

a<-1
b<-as.numeric(readline("Escriba el valor que le pertenece b:\n "))

## Escriba el valor que le pertenece b:
##

b<-7
c<-as.numeric(readline("Escriba el valor que le pertenece c:\n"))

## Escriba el valor que le pertenece c:

c<-8
discriminante<-((b^2)-4*a*c)
discriminante

## [1] 17

x1<- (-b/(2*a))+((sqrt(discriminante))/(2*a))
x1

## [1] -1.438447

x2<- (-b/(2*a))-((sqrt(discriminante))/(2*a))
x2

## [1] -5.561553

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("La ecuación de segundo grado de la forma: ax^2+bx+c=0","\n",
    "con los datos ingresados queda de la siguiente manera:\n\n",
    "- El discriminante de esta ecuación es: ",discriminante,"\n\n",
    "- El resultado de la primera solución de x es: ",x1,"\n", 
    "- El resultado de la segunda solución de x es: ",x2,"\n")

## La ecuación de segundo grado de la forma: ax^2+bx+c=0 
##  con los datos ingresados queda de la siguiente manera:
## 
##  - El discriminante de esta ecuación es:  17 
## 
##  - El resultado de la primera solución de x es:  -1.438447 
##  - El resultado de la segunda solución de x es:  -5.561553

EJERICICIO N°3

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el área del triángulo rectángulo.

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

## Ingresar el valor de la base:

b<-8
h <- as.numeric(readline("Ingresar el valor de la altura:\n"))

## Ingresar el valor de la altura:

h<-4
areatr <- (b*h)/2

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El área del triángulo rectángulo es",areatr)

## El área del triángulo rectángulo es 16

EJERICICIO N°4

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el perímetro y área del rectángulo

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

## Ingresar el valor de la base:

b<-4
h<-as.numeric(readline("Ingresar el valor de la altura:"))

## Ingresar el valor de la altura:

h<-8
área<-(b*h)
perímetro<-2*(b+h)

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El área del rectángulo es:",área)

## El área del rectángulo es: 32

cat("El perímetro del rectángulo es:",perímetro)

## El perímetro del rectángulo es: 24

EJERICICIO N°5

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para calcular el promedio de las 3 notas.

a<-as.numeric(readline("Ingresar la primera calificación:"))

## Ingresar la primera calificación:

a<-12
b<-as.numeric(readline("Ingresar la segunda calificación:"))

## Ingresar la segunda calificación:

b<-16
c<-as.numeric(readline("Ingresar la tercera calificación:"))

## Ingresar la tercera calificación:

c<-12
promedio<-(a+b+c)/3

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El promedio de las 3 notas es:", promedio)

## El promedio de las 3 notas es: 13.33333

EJERICICIO N°6

Calcular el área y perímetro de la circunferencia dado el radio.

Procedimiento

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

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

## Ingresar el valor de la base:

b <- 5
h <- as.numeric(readline("Ingresar el valor de la altura:\n"))

## Ingresar el valor de la altura:

h <-7
areatr <- (b*h)/2

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola

cat("El área del triángulo rectángulo es",areatr)

## El área del triángulo rectángulo es 17.5

EJERICICIO N°7

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el área y perímetro de un trapecio.

Bmayor<-as.numeric(readline("Ingrese el valor de la base mayor del trapecio :\n"))

## Ingrese el valor de la base mayor del trapecio :

Bmayor<-9

bmenor<-as.numeric(readline("Ingrese el valor de la base menor del trapecio :\n"))

## Ingrese el valor de la base menor del trapecio :

bmenor<-5
h<-as.numeric(readline("Ingrese la altura del trapecio : "))

## Ingrese la altura del trapecio :

h<-10
lados<-(Bmayor-bmenor)
ladot<-lados+(h^2)
sqrt(ladot)

## [1] 10.19804

perime<-sqrt(ladot)+bmenor+sqrt(ladot)+Bmayor
area<-((Bmayor+bmenor)*h)/2
areatr <- (b*h)/2

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El perímetro del trapecio: \n\n",perime)

## El perímetro del trapecio: 
## 
##  34.39608

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

## El área del trapecio es: 
## 
##  70

EJERICICIO N°8

Determinar el mayor, menor o igual de dos números.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el mayor, el menor o igual.

num1 <- as.numeric(readline("Ingresar el primer número:\n"))

## Ingresar el primer número:

num1 <-8
num2 <- as.numeric(readline("Ingresar un segundo número:\n"))

## Ingresar un segundo número:

num2 <-6

•Declaracion de variables

if(num1>num2){
  cat(num1,"es mayor a",num2,"\n");cat(num1,">",num2)}else if(num1<num2){
    cat(num1,"es menor a",num2,"\n");cat(num1,"<",num2)}else{cat(num1,"es igual a",num2,"\n");cat(num1,"=",num2)}

## 8 es mayor a 6 
## 8 > 6

EJERICICIO N°9

Calcular suma, resta, multiplicación y división de dos números.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y las fórmulas de operaciones básicas entre dos números.

 v1 <- as.numeric(readline("Ingresar el primer valor:\n"))

## Ingresar el primer valor:

v1 <-6
v2 <- as.numeric(readline("Ingresar el segundo valor:\n"))

## Ingresar el segundo valor:

v2 <-3
vsum <- v1+v2
vrest <- v1-v2
vmult <- v1*v2
vdiv <- v1/v2

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("La suma es:",vsum,"\n")

## La suma es: 9

cat("la resta es:",vrest,"\n")

## la resta es: 3

cat("La multiplicación es:",vmult,"\n")

## La multiplicación es: 18

cat("La división es:",vdiv,"\n")

## La división es: 2

EJERICICIO N°10

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar para obtener el valor total a pagar

val<-readline("Ingresar un valor : ")

## Ingresar un valor :

val<-100
val <- as.numeric(val)

iva<-val*0.12
iva

## [1] 12

c<-val+iva
c

## [1] 112

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("     Subtotal  :",val,"\n",
    "      IVA 12% : ",iva,"\n",
    "        Total :",c)

##      Subtotal  : 100 
##        IVA 12% :  12 
##          Total : 112

EJERICICIO N°11

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

• Solicitar al usuario ingresar los valores de las variables.

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

## Ingrese la temperatura:

grad<-14
tipo<-as.character(readline("Ingrese (C) si es Celcius y (F) si es Fahrenheit:\n"))

## Ingrese (C) si es Celcius y (F) si es Fahrenheit:

tipo<-"C"

• Colocar la función if (), la cual indica que una operación se ejecute únicamente cuando una condición se cumple y la función cat (), la cual imprime los resultados que desea mostrar en la consola.

if(tipo=="C")
{cel <- ((grad-32)/1.8)
  cat("La transformación de ",grad,"° Celcius a Fahrenheit es",cel,"\n")}

## La transformación de  14 ° Celcius a Fahrenheit es -10

if(tipo=="F")
{cel <- ((grad*1.8)+32)
cat("La transformación de ",grad,"° Fahrenheit a Celcius es ",cel,"\n")}

EJERICICIO 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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el valor del pago.

hora<-as.numeric(readline("Ingrese el número de horas trabajadas:\n"))

## Ingrese el número de horas trabajadas:

hora<-5
coste<-as.numeric(readline("Ingrese el costo por hora trabajada:\n"))

## Ingrese el costo por hora trabajada:

coste<- 4
extra <- as.numeric(readline("Ingrese el número de horas extras trabajadas:\n"))

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

extra <-2
vnorm <- hora*coste
cosext <- (coste+(coste/2))
vextra <- extra*cosext
ptotal <- vextra+vnorm

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El valor a pagar sin horas extras es: ",vnorm,"\n")

## El valor a pagar sin horas extras es:  20

cat(hora,"horas * $",coste," =",vnorm)

## 5 horas * $ 4  = 20

cat("El valor a pagar con horas extras es: ",ptotal,"\n")

## El valor a pagar con horas extras es:  32

cat("El valor a pagar $",vnorm,"+ $",vextra,"por extras = $",ptotal)

## El valor a pagar $ 20 + $ 12 por extras = $ 32

EJERICICIO 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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener la suma de los números.

n <- as.numeric(readline("Introduce un número entero: "))

## Introduce un número entero:

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

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("La suma de los enteros ´positivos desde 1 hasta",n,"es", suma)

## La suma de los enteros ´positivos desde 1 hasta 8 es 36

EJERICICIO 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.

Procedimiento

• Solicitar al usuario ingresar el peso y estatura para los valores de las variables a utilizar.

peso<-as.numeric(readline("Ingrese su peso en kg, por favor : "))

## Ingrese su peso en kg, por favor :

peso<-50
estatura<-as.numeric(readline("Ingrese su estatura en metros, por favor : "))

## Ingrese su estatura en metros, por favor :

estatura<-1.65

• Implementar la fórmula del IMC para llamar la variable IMC y redondear la respuesta.

imc<-(peso/(estatura^2))
imc

## [1] 18.36547

imc1<-round(imc,2)

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola

cat(" Tu índice de masa corporales de : ", imc1)

##  Tu índice de masa corporales de :  18.37

EJERICICIO 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.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para calcular el capital obtenido.

x<-as.numeric(readline("Ingrese la cantidad que desea invertir : $ "))

## Ingrese la cantidad que desea invertir : $

x<-5000

tasa_interes<-as.numeric(readline("Igrese la tasa de interés anual dado : "))

## Igrese la tasa de interés anual dado :

tasa_interes<-12

años<-as.numeric(readline("Ingrese el número de años : "))

## Ingrese el número de años :

años<-3
capital<-(x*(tasa_interes/100)*años)+x

•Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El capital total que se va ha invertir es de : $",capital,"a una tasa de interés del : ",tasa_interes," % y a un número de años de :",años)

## El capital total que se va ha invertir es de : $ 6800 a una tasa de interés del :  12  % y a un número de años de : 3

EJERICICIO 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.

Procedimiento

• Solicitar al usuario ingresar los valores de las variables y el tipo.

h <- as.numeric(readline("INGRESE SU TIEMPO:"))

## INGRESE SU TIEMPO:

h <-17
tipo<-as.character(readline("Ingrese (H) si está en horas o (M) si está en minutos:\n"))

## Ingrese (H) si está en horas o (M) si está en minutos:

tipo<-"M"

if(tipo=="H")
{seg <- (h*3600)
min<-(h*60)
cat("Su hora transformada a minutos es:",min,"\n")
cat("Su hora transformada a segundos es:",seg,"\n")}
if(tipo=="M")
{seg<-(h*60)
cat("Sus minutos transformados a segundos es:",seg,"\n")}

## Sus minutos transformados a segundos es: 1020

EJERICICIO N°17

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

Procedimiento

• Solicitar al usuario ingresar los números y estos incorporarlos en un vector.

n1<-as.numeric(readline("INGRESE EL PRIMER NÚMERO:"))

## INGRESE EL PRIMER NÚMERO:

n1<-5
n2<-as.numeric(readline("INGRESE EL SEGUNDO NÚMERO:"))

## INGRESE EL SEGUNDO NÚMERO:

n2<-8
n3<-as.numeric(readline("INGRESE EL TERCER NÚMERO:"))

## INGRESE EL TERCER NÚMERO:

n3<-4
n4<-as.numeric(readline("INGRESE EL CUARTO NÚMERO:"))

## INGRESE EL CUARTO NÚMERO:

n4<-3
n5<-as.numeric(readline("INGRESE EL QUINTO NÚMERO:"))

## INGRESE EL QUINTO NÚMERO:

n5<-2
números<-c(n1,n2,n3,n4,n5)

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("LOS NÚMEROS ORDENADOS DE FORMA ASCENDENTE:",sort(números))

## LOS NÚMEROS ORDENADOS DE FORMA ASCENDENTE: 2 3 4 5 8

EJERICICIO N°18

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

Procedimiento

• Solicitar al usuario ingresar los valores de las variables a utilizar y la fórmula para obtener el mayor, el menor o igual.

x<-as.numeric(readline("Ingrese un número: "))

## Ingrese un número:

x<-7

• Pedir al usuario ingresar un número que requiera buscar su factorial

fac<-factorial(x)

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("El  número  factorial es: ",fac)

## El  número  factorial es:  5040

EJERICICIO N°19

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

Procedimiento

Solicitar al usuario ingresar un número y con la función while determinar si es primo o no.

x<-as.numeric(readline("Ingrese un número: "))

## Ingrese un número:

x<- 8
numero <- as.numeric(readline("ingrese un número : "))

## ingrese un número :

numero <-4

Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

i <- 1

c <-0

numero <-5

Aplicaciòn de la funcion (while) permite ejecutar un codigo hasta que se cumpla una condiciòn.

while ( i <= numero ) {

if ( numero %% i == 0 ){

c<-c+1

}

i<-i+1

}

Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

if ( c==2 ) {

cat("EL NUMERO ES PRIMO")

} else {

cat ("EL NUMERO NO ES PRIMO")

}

## EL NUMERO ES PRIMO

EJERICICIO N°20

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

Procedimiento

• Solicitar al usuario ingresar un número y para determinar si el número ingresado es par o impar, se asigna dos variables denominas par, imp para los cálculos correspondientes

x<-as.numeric(readline("Introduzca un numero: "))

## Introduzca un numero:

x<-9
par<-(x%%2==0)
imp<-(x%%2==1)

• Colocar la función cat (), la cual imprime los resultados que desea mostrar en la consola.

cat("\n","El número introducido  ",x," es par:",par,"\n",
    "El número introducido ",x," es impar:",imp)

## 
##  El número introducido   9  es par: FALSE 
##  El número introducido  9  es impar: TRUE

Ejercicios en RStudio

Ayala Tania,Callatasig Katherine,Iñiguez Yessica,Vera Melany

2022-12-11

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÒMICAS

CARRERA DE ESTADÍSTICA

EJERCICIOS REALIZADOS EN R

EJERICICIO N°1

Procedimiento

EJERICICIO N°2

Procedimiento

EJERICICIO N°3

Procedimiento

EJERICICIO N°4

Procedimiento

EJERICICIO N°5

Procedimiento

EJERICICIO N°6

Procedimiento

EJERICICIO N°7

Procedimiento

EJERICICIO N°8

Procedimiento

EJERICICIO N°9

Procedimiento

EJERICICIO N°10

Procedimiento

EJERICICIO N°11

Procedimiento

EJERICICIO N°12

Procedimiento

EJERICICIO N°13

Procedimiento

EJERICICIO N°14

Procedimiento

EJERICICIO N°15

Procedimiento

EJERICICIO N°16

Procedimiento

EJERICICIO N°17

Procedimiento

EJERICICIO N°18

Procedimiento

EJERICICIO N°19

Procedimiento

EJERICICIO N°20

Procedimiento