Manual Primeras Practicas en R

EJERCICIOS RESUELTOS EN R

Ejercicio 1

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

Para este ejercicio lo primero que necesitamos es conocer la fórmula para el cálculo de la hipotenusa.

\[ c=√(a^2+b^2) \]

Sabiendo que:

c= Hipotenusa
a= Cateto Opuesto
b= Cateto Adyacente

Procedemos a pedirle al usuario que ingrese los valores de los catetos (opuesto y adyacente) de su triángulo. Para ello utilizamos los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.

Con la ayuda de los dos comandos, definimos una variable que almacené los datos que ingresará el usuario.

cato1<-as.numeric(readline("Ingrese el número del primer cateto ")) cato2<-as.numeric(readline("Ingrese el número del segundo cateto "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos una variable que contenga la fórmula para el cálculo de la hipotenusa.

hipo<-sqrt(((cato1^2)+(cato2^2)))

Corremos la línea que contiene la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la fórmula, de la siguiente manera:

cat("La hipotenusa de su triángulo rectángulo es:",hipo)

El comando “cat” nos permitirá producir resultados en funciones definidas por el usuario.

Ejecución del código en R

SINTAXIS COMPLETA

cato1<-as.numeric(readline("Ingrese el número del primer cateto "))
cato2<-as.numeric(readline("Ingrese el número del segundo cateto "))

hipo<-sqrt((cato1^2)+(cato2^2))

cat("La hipotenusa de su triángulo rectángulo es: ",hipo)

RESULTADO FINAL

## Ingrese el número del primer cateto

## [1] 5

## Ingrese el número del segundo cateto

## [1] 12

## La hipotenusa de su triángulo rectángulo es:  13

Ejercicio 2

Escriba un programa que calcule la solución de una ecuación de segundo grado.

Para este ejercicio lo primero que necesitamos es conocer tanto la forma de la ecuación de segundo grado, como la fórmula que nos permitirá calcular las dos soluciones para esta ecuación.

Ecuación de la Forma

\[ ax^2+bx+c \]

Formula general de una ecuación de segundo grado

\[ x=(\frac{-b±√b^2-4ac}{2a}) \]

Procedemos a pedirle al usuario que ingrese los valores de los coeficientes y del término independiente.

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.

Con la ayuda de los dos comandos, definimos una variable que almacené los datos que ingresará el usuario.

a<-as.numeric(readline("Ingrese el coeficiente a")) b<-as.numeric(readline("Ingrese el coeficiente b")) c<-as.numeric(readline("Ingrese el termino independiente "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos una variable que contenga la fórmula para el cálculo de las dos soluciones.

x1<-(-b+(sqrt((b^2)-(4*a*c))))/(2*a) x2<-(-b-(sqrt((b^2)-(4*a*c))))/(2*a)

Corremos cada línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la formula, de la siguiente manera:

cat("Las soluciones de su ecuación son: \n") x1 x2

El comando “cat” nos permitirá producir resultados en funciones definidas por el usuario.

Ejecución del código en R

SINTAXIS COMPLETA

a<-as.numeric(readline("Ingrese el coeficiente a  "))
b<-as.numeric(readline("Ingrese el coeficiente b  "))
c<-as.numeric(readline("Ingrese el termino independiente  "))

x1<-(-b+(sqrt((b^2)-(4*a*c))))/(2*a)
x2<-(-b-(sqrt((b^2)-(4*a*c))))/(2*a)

cat("Las soluciones de su ecuación son: \n")
x1
x2

RESULTADO FINAL

## Ingrese el coeficiente a

## [1] 2

## Ingrese el coeficiente b

## [1] -3

## Ingrese el termino independiente

## [1] -9

## Las soluciones de su ecuación son:

## [1] 3

## [1] -1.5

Ejercicio 3

Calcula el área del triángulo rectángulo dada sus bases y altura.

Para realizar el código que nos permita encontrar el área del triángulo rectángulo debemos conocer su respectiva fórmula.

\[área \ rectángulo = (\frac{base * altura}{2}) \]

Vamos a pedir al usuario que ingrese los datos tanto de la base como de la altura con la ayuda de los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos las variables que almacenen los datos que ingresará el usuario.

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

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo del área del rectángulo a una variable llamada “área”.

area<-(b*h)/2

Corremos la línea que contiene la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código:

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

Ejecución del código en R

SINTAXIS COMPLETA

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

area<-(base*altura)/2

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

RESULTADO FINAL

## Ingrese la altura:

## [1] 18

## Ingrese la base:

## [1] 11

## El área del triángulo rectángulo es: 99

Ejercicio 4

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

Para realizar el código que nos permita encontrar el área y el perímetro de un rectángulo, debemos conocer cuáles son las respectivas fórmulas.

\[área \ rectángulo = (base*altura) \]

\[perímetro \ rectángulo = 2(base+altura) \]

Vamos a pedir al usuario que ingrese los datos tanto de la base como de la altura con la ayuda de los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

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

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo del área del rectángulo a una variable llamada “área” y de igual forma para el perímetro.

area<-base*altura perimetro<-2*(base+altura)

Corremos las líneas que contienen las fórmulas para que se realicen los respetivos cálculos y los resultados queden almacenados en las variables correspondientes.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("El área de su rectángulo es:", area, "\n");cat("El perímetro de su rectángulo es:", perimetro)

Ejecución del código en R

SINTAXIS COMPLETA

base<-as.numeric(readline("Ingrese el tamaño de la base "))
altura<-as.numeric(readline("Ingrese el tamaño de la base "))

area<-base*altura
perimetro<-2*(base+altura)

cat("El área de su rectángulo es:", area, "\n"); cat("El perímetro de su rectángulo es:", perimetro)

RESULTADO FINAL

## Ingrese el tamaño de la base

## [1] 10

## Ingrese el tamaño de la base

## [1] 12

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

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

Ejercicio 5

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

Para realizar el programa que permita encontrar el promedio de cualquier conjunto de datos debemos conocer la siguiente formula.

\[promedio \ =\frac{\sum_{i=1}^n \ xi}{n}\]

Puesto que vamos a realizar un promedio de tres notas, la formula a aplicarse quedará de la siguiente forma:

\[promedio \ =\frac{\ x_1+x_2+x_3}{3} \]

Vamos a solicitar al usuario que ingrese las notas y para ello nos vamos a valer de los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

prom<- (num1+num2+num3)/3

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar el dato desde la consola de Rstudio. Luego de ser digitado, este quedara almacenado en nuestra variable.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("El promedio de sus notas es: ",prom)

Ejecución del código en R

SINTAXIS COMPLETA

num1<- as.numeric(readline("ingrese la primera nota: "))
num1
num2<- as.numeric(readline("ingrese la segunda nota: "))
num2
num3<- as.numeric(readline("ingrese la tercera nota: "))
num3
prom<- (num1+num2+num3)/3
prom
cat("El promedio de sus notas es: ",prom)

RESULTADO FINAL

## ingrese la primera nota:

## [1] 17

## ingrese la segunda nota:

## [1] 18

## ingrese la tercera nota:

## [1] 20

## El promedio de sus notas es:  18.33333

Ejercicio 6

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

Para realizar el código que nos permita encontrar el área y el perímetro de la circunferencia debemos conocer cuáles son las respectivas.

\[área \ circunferencia = (pi*r^2) \]

\[perímetro \ circunferencia = 2(pi*r) \]

Sabiendo que:

r= Radio

Vamos a pedir al usuario que ingrese los datos tanto el área como el perímetro con la ayuda de los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

r <- as.numeric(readline(" Ingrese el radio de la circunferencia: "))

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar el dato desde la consola de Rstudio. Luego de ser digitado, este quedara almacenado en nuestra variable.

Asignamos el cálculo del área a una variable llamada “a” y la “p” de perímetro.

a <- pi*r^2 p <- 2(pi*r)

Corremos las líneas que contienen las fórmulas para que se realicen los respetivos cálculos y los resultados queden almacenados en las variables correspondientes.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("El área de la circunferencia es: ", a ) cat("El perímetro de la circunferencia es: " , p)

Ejecución del código en R

SINTAXIS COMPLETA

r <- as.numeric(readline(" Ingrese el radio de la circunferencia: "))
a <- pi*r^2
p <- 2*pi*r

cat("El área de la circunferencia es: ", a )
cat("El perímetro de la circunferencia es: " , p)

RESULTADO FINAL

##  Ingrese el radio de la circunferencia:

## [1] 5

## El área de la circunferencia es:  78.53982

## El perímetro de la circunferencia es:  31.41593

Ejercicio 7

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

Primero debemos saber cómo es la fórmula para calcular el área de un trapecio.

\[area \ trapecio = (\frac{bma+bme}{2}*h) \]

Sabiendo que:

bma = Base mayor del trapecio.
bme = Base menor del trapecio.
h = altura del trapecio.

Procedemos a pedirle al usuario que ingrese los valores de la base mayor, Base menor y altura. Para ello utilizamos los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

bma<-as.numeric(readline("Ingrese el valor de la base mayor del trapecio")) bme<-as.numeric(readline("Ingrese el valor de la base menor del trapecio")) h<-as.numeric(readline("Ingrese el valor de la altura del trapecio"))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo del área del trapecio a una variable llamada “área”.

area<-((bma+bme)/2)*h

Corremos la línea que contienen la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat(" El área del trapecio es igual a : ",area)

Ejecución del código en R

SINTAXIS COMPLETA

bma<-as.numeric(readline("Ingrese el valor de la base mayor del trapecio"))
bme<-as.numeric(readline("Ingrese el valor de la base menor del trapecio"))

h<-as.numeric(readline("Ingrese el valor de la altura del trapecio"))
area<-(((bma+bme)/2)*h)

cat(" El área del trapecio es igual a : ",area)

RESULTADO FINAL

## Ingrese el valor de la base mayor del trapecio

## [1] 24

## Ingrese el valor de la base menor del trapecio

## [1] 18

## Ingrese el valor de la altura del trapecio

## [1] 25

##  El área del trapecio es igual a :  525

Ejercicio 8

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

Procedemos a pedirle al usuario que ingrese dos números. Para ello utilizamos los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.

Definimos una variable que almacené los datos que ingresará el usuario.

num1<- as.numeric(readline("ingrese un número : ")) num2<- as.numeric(readline("ingrese el segundo número : "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo del área de los números a las variables llamadas “mayor”, “menor” e “igual”.

mayor<- ((num1+num2)+abs(num2-num1))/2 menor<- ((num1+num2)-abs(num2-num1))/2 igual<-num1==num2

Corremos las líneas que contienen las fórmulas para que se realicen los respetivos cálculos y los resultados queden almacenados en las variables correspondientes.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("los números son iguales", igual) cat("el número mayor es: " , mayor, "y el número menor es: ", menor)

Ejecución del código en R

SINTAXIS COMPLETA

num1<- as.numeric(readline("ingrese un número : "))
num2<- as.numeric(readline("ingrese el segundo número : "))

mayor<- ((num1+num2)+abs(num2-num1))/2
menor<- ((num1+num2)-abs(num2-num1))/2
igual<-num1==num2

cat("los números son iguales", igual)
cat("el número mayor es: " , mayor, "y el número menor es: ", menor)

RESULTADO FINAL

## ingrese un número :

## [1] 5

## ingrese el segundo número :

## [1] 10

## los números son iguales FALSE

## el número mayor es:  10 y el número menor es:  5

Ejercicio 9

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

Procedemos a pedirle al usuario que ingrese el valor de los dos números a operar:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Con la ayuda de estos comandos, definimos una variable que almacené los datos que ingresará el usuario.

num1<-as.numeric(readline("Ingrese el primer número")) num2<-as.numeric(readline("Ingrese el segundo número"))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos una variable que contenga las operaciones.

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

Corremos cada línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a las variables que contienen las operaciones, de la siguiente manera:

cat("La suma entre estos dos números es : ",suma) cat("La resta entre estos dos números es : ",resta) cat("La multiplicación entre estos dos números es : ",multiplicacion) cat("La división entre estos dos números es : ",division)

Ejecución del código en R

SINTAXIS COMPLETA

num1<-as.numeric(readline("Ingrese el primer número"))
num2<-as.numeric(readline("Ingrese el segundo número"))

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

cat("La suma entre estos dos números es : ",suma)
cat("La resta entre estos dos números es : ",resta)
cat("La multiplicación entre estos dos números es : ",multiplicacion)
cat("La división entre estos dos números es : ",division)

RESULTADO FINAL

## Ingrese el primer número

## [1] 84

## Ingrese el segundo número

## [1] -4

## La suma entre estos dos números es :  80

## La resta entre estos dos números es :  88

## La multiplicación entre estos dos números es :  -336

## La división entre estos dos números es :  -21

Ejercicio 10

Realizar un programa que pida la cantidad en dólares y como resultado se visualice el IVA (12%) y el valor total a pagar

Para realizar el programa que nos permita ver el IVA y el valor total debemos conocer su fórmula.

\[IVA = \frac{12}{100}*(Valor\ en\ dolares) \]

2.Vamos a pedir al usuario que ingrese el monto de su artículo con la ayuda de los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

num4<-as.numeric(readline("ingrese la cantidad de dinero: "))

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar el dato desde la consola de Rstudio. Luego de ser digitado, este quedara almacenado en nuestra variable.

Asignamos una variable llamada total donde se alojará la suma del valor ingresado y el valor del IVA:

tot<- (num4+((num4)*(12/100)))

Corremos la línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la operación, de la siguiente manera:

cat("IVA :$ ",iva,"\n");cat("Total:$ ",tot)

Ejecución del código en R

SINTAXIS COMPLETA

num4<-as.numeric(readline("ingrese la cantidad de dinero: "))

iva<- (num4)*(12/100)
iva
tot<- (num4+((num4)*(12/100)))
tot

cat("IVA  :$  ",iva,"\n");cat("Total:$ ",tot)

RESULTADO FINAL

## ingrese la cantidad de dinero:

## [1] 1000

## Entonces su iva y su total son de:

## [1] ""

## IVA  :$   120

## Total:$  1120

Ejercicio 11

Escribir un programa que pida la temperatura y si esta es en FAHRENHEIT o CELSIUS y presentar en su pantalla la transformación a la otra medida.

Para este ejercicio lo primero que necesitamos es conocer las fórmulas de transformación de Celsius a Fahrenheit y de Fahrenheit a Celsius.

Celcius a Fharenheit

\[ °F=(°C*1,8)+32 \]

Fharenheit a Celcius

\[ °C=(\frac{°F-32}{1,8}) \]

Procedemos a pedirle al usuario que ingrese los grados de temperatura que desea convertir y la escala de esta. Para ello utilizamos los siguientes comandos.

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.
as.character= Nos ayuda a definir la variable como carácter.

Con la ayuda de los comandos, definimos una variable que almacené los datos que ingresará el usuario.

temp=as.numeric(readline("Ingrese la temperatura: ")) cond=as.character(readline("Ingrese la escala de temperatura, sea F para Fahrenheit o C para celsius: "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos variables que contengan las respectivas fórmulas de transformación.

fahr=(temp*1.8)+32 cel=(temp-32)/1.8

Utilizaremos un condicional que identifique los datos egresados y realice la respectiva transformación.

if(cond=="C" | cond=="F"){ fahr=(temp*1.8)+32 cat("La temperatura es ", fahr, " grados Fahrenheit") } else { cel=(temp-32)/1.8 cat("La temperatura es ", cel, " grados Celsius") }

Finalmente corremos todo el código para obtener los resultados.

Ejecución del código en R

SINTAXIS COMPLETA

temp=as.numeric(readline("Ingrese la temperatura: "))
cond=as.character(readline("Ingrese la escala de temperatura, sea F para Fahrenheit o C para celsius: "))

if(cond=="C" | cond=="F"){
  fahr=(temp*1.8)+32
  cat("La temperatura es ", fahr, " grados Fahrenheit")
} else { 
  cel=(temp-32)/1.8 
  cat("La temperatura es ", cel, " grados Celsius")
}

RESULTADO FINAL

## Ingrese la temperatura:

## [1] 27

## Ingrese la escala de temperatura, sea F para Fahrenheit o C para celsius:

## [1] FALSE

## La temperatura es  -2.777778  grados Celsius

Ejercicio 12

Escribir un programa que pregunte al usuario por el número de horas trabajadas y el coste por ellas. Mostrar la paga que le corresponde, además debe preguntar si existen horas extras que tienen un valor diferente. Calcule la paga correspondiente.

Procedemos a pedirle al usuario que ingrese el número de horas a la semana y el número de horas extras trabajadas. Para ello utilizamos los siguientes comandos:

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.

Con la ayuda de los dos comandos, definimos una variable que almacené los datos que ingresará el usuario.

horas=as.numeric(readline("Número de horas trabajadas en la semana: ")) hextra=as.numeric(readline("Número de horas extra trabajadas: "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos una variable que contenga el cálculo del sueldo, tomando en cuenta la tabla de costo por hora.

COSTO POR HORA DE TRABAJO

Regular	Extra
12 dólares	20 dólares

semana=horas*12 extra=hextra*20 TOTAL=extra+semana

Corremos cada línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la fórmula, de la siguiente manera:

cat("Su salario total por las horas trabajadas es $",TOTAL)

El comando “cat” nos permitirá producir resultados en funciones definidas por el usuario.

Ejecución del código en R

SINTAXIS COMPLETA

horas=as.numeric(readline("Número de horas trabajadas en la semana: "))
hextra=as.numeric(readline("Número de horas extra trabajadas: "))

semana=horas*20
extra=hextra*22
TOTAL=extra+semana

cat("Su salario total por las horas trabajadas es $",TOTAL)

RESULTADO FINAL

## Número de horas trabajadas en la semana:

## [1] 40

## Número de horas extra trabajadas:

## [1] 10

## Su salario total por las horas trabajadas es $ 1020

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

Para realizar el código que nos permita encontrar la suma de los n primeros enteros positivos debemos conocer cuales es la respectiva fórmula.

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

Vamos a pedir al usuario que ingrese el número con la ayuda de los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

n<- as.numeric(readline("Introduzca el numero: "))

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestra variable.

Asignamos el cálculo de la suma a una variable llamada “suma”.

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

Corremos la línea que contienen la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código:

   cat("El resultado es :" , suma)

Ejecución del código en R

SINTAXIS COMPLETA

n<- as.numeric(readline("Introduzca el numero: "))
n<-14
n

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

cat("El resultado es :" , suma)

RESULTADO FINAL

## Introduzca el numero:

## El resultado es : NA

Ejercicio 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 IMC" donde IMC es el índice de masa corporal calculado redondeado con dos decimales

Para realizar el código que nos permita encontrar el IMC, debemos conocer cuáles son la respectiva formula.

\[IMC = (\frac{base}{altura^2}) \]

Esta tabla permite evaluar si la persona se encuentra dentro del peso que es considerado ideal para su altura.

TABLA IMC

IMC	Categorías
<16.00	Infrapeso: Delgadez Severa
16.00 - 16.99	Infrapeso: Delgadez moderada
17.00 - 18.49	Infrapeso: Delgadez aceptable
18.50 - 24.99	Peso Normal
25.00 - 29.99	Sobrepeso
30.00 - 34.99	Obeso: Tipo I
35.00 - 40.00	Obeso: Tipo II
>40.00	Obeso: Tipo III

Vamos a pedir al usuario que ingrese los datos tanto de su altura en kilogramos como de la altura en metros con la ayuda de los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

peso<-as.numeric(readline("Ingrese su peso (Kg) ")) altura<-as.numeric(readline("Ingrese su altura (m)) "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo del IMC a una variable llamada “IMC”.

imc<-peso/(altura^2) IMC<-round(imc,2)

Corremos cada línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la fórmula, de la siguiente manera:

cat("Tu índice de masa corporal es ", IMC)

Ejecución del código en R

SINTAXIS COMPLETA

peso<-as.numeric(readline("Ingrese su peso (Kg) "))
altura<-as.numeric(readline("Ingrese su altura (m)) "))

imc<-peso/(altura^2)
IMC<-round(imc,2)

cat("Tu índice de masa corporal es ", IMC)

RESULTADO FINAL

## Ingrese su peso (Kg)

## [1] 51

## Ingrese su altura (m))

## [1] 1.56

## Tu índice de masa corporal es  20.96

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

Para realizar el programa que permita encontrar el capital obtenido debemos conocer la siguiente formula.

\[capital\ final \ =\ capital* (1+interes\ anual)^{años} \]

Vamos a solicitar al usuario que ingrese el capital inicial, el interés anual y los años que vaya a invertir para ello nos ayudamos de los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

cap<-as.numeric(readline("Por favor ingrese su capital: ")) inta<-as.numeric(readline("Por favor ingrese los el interés anual: ")) años<-as.numeric(readline("Ingrese los años de la inversión: "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo para obtener el cálculo del capital final.

capf<-cap*((1+inta)^años)

Corremos la línea que contiene la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la fórmula, de la siguiente manera:

cat("Su capital dentro de ",años," será de: $",capf)

Ejecución del código en R

SINTAXIS COMPLETA

cap<-as.numeric(readline("Por favor ingrese su capital: "))
cap
inta<-as.numeric(readline("Por favor ingrese los el interés anual: "))
inta
años<-as.numeric(readline("Ingrese los años de la inversión: "))
años
capf<-cap*((1+inta)^años)
capf
cat("Su capital dentro de ",años," será de: $",capf)

RESULTADO FINAL

## Por favor ingrese su capital:

## [1] 2000

## Por favor ingrese los el interés anual:

## [1] 0.2

## Ingrese los años de la inversión:

## [1] 5

## Su capital dentro de  5  años será de: $ 4976.64

Ejercicio 16

Realizar el programa que pida el tiempo ya sea en horas, minutos o segundos, luego indicar en qué tipo de tiempo desea transformar y luego presentar los resultados.

Para realizar el código que nos permita encontrar el tiempo ya sea en horas, minutos o segundos debemos conocer cuáles son la respectiva formula.

HORAS

\[minutos \ = horas*60 \]

\[segundos \ = horas*3600 \]

MINUTOS

\[horas \ = minutos*60 \]

\[segundos \ = 60*minutos \]

SEGUNDOS

\[horas \ = segundos*3600 \]

\[minutos \ = segundo*60 \]

Vamos a pedir al usuario que ingrese las horas, minutos y segundos con la ayuda de los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

h <- as.numeric(readline("Ingrese las horas: ")) m<-as.numeric(readline("Ingrese los minutos: ")) s <- as.numeric(readline("Ingrese los segundos: "))

Una vez declaradas las variables procedemos a correr cada línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Asignamos el cálculo de las horas, minutos y segundos a las variables llamadas “min, seg, hr, sg, hor, mn”.

min<-h*60 seg<- h*3600 hr<- m/60 sg<- 60*m hor<- s/3600 mn <- s/60

Corremos cada línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("las horas en minutos son: " , min, "minutos") cat( "Las horas en segundos son:", seg, "segundos") cat("las horas en minutos son: " , min, "minutos") cat( "Las horas en segundos son:", seg, "segundos") cat("Los segundos a horas son: ", hor,"horas" ) cat("Los segundos a minutos son: ", mn, "minutos")

Ejecución del código en R

SINTAXIS COMPLETA

##HORAS
h <- as.numeric(readline("Ingrese las horas: "))
h<-15
h

min<-h*60
seg<- h*3600

cat("las horas en minutos son: " , min, "minutos")
cat( "Las horas en segundos son:", seg, "segundos")
##MINUTOS
m<-as.numeric(readline("Ingrese los minutos: "))
m<-56
m

hr<- m/60
sg<- 60*m

cat("Los minutos a horas son: ", hr,"horas" )
cat("Los minutos a segundos son: ", sg, "segundos")
#SEGUNDOS
s <- as.numeric(readline("Ingrese los segundos: "))
s<-24
s

hor<- s/3600
mn <- s/60

cat("Los segundos a horas son: ", hor,"horas" )
cat("Los segundos a minutos son: ", mn, "minutos")

RESULTADO FINAL

## Ingrese las horas:

## las horas en minutos son:  NA minutos

## Las horas en segundos son: NA segundos

## Ingrese los minutos:

## Los minutos a horas son:  NA horas

## Los minutos a segundos son:  NA segundos

## Ingrese los segundos:

## Los segundos a horas son:  NA horas

## Los segundos a minutos son:  NA minutos

Ejercicio 17

Escriba un programa en donde se digiten varios números y luego se presenten en orden.

Procedemos a pedirle al usuario que ingrese los valores que desea ordenar con la ayuda de los siguientes comandos.

sort= Lo ocupamos para devolver ordenado ascendente por defecto, el vector que pases como entrada.
scan= Lee datos en un vector o lista desde un archivo o la consola de R.

Definimos una variable que almacené los datos que ingresará el usuario.

num<-scan()

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestra variable.

Declaramos una variable que contenga la función que permita ordenar los números.

orden<-sort(num)

Corremos la línea para que se realice el respetivo ordenamiento de los valores ingresados y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la formula, de la siguiente manera:

cat("Los números ingresados en orden quedarían así :",orden)

El comando “cat” nos permitirá producir resultados en funciones definidas por el usuario.

Ejecución del código en R

SINTAXIS COMPLETA

cat("Introduzca los números que desea ordenar : ")
num<-scan()
orden<-sort(num)
cat("Los números ingresados en orden quedarían así :",orden)

RESULTADO FINAL

## Introduzca los números que desea ordenar :

##  [1] 4 8 6 7 9 4 2 3 8 9 5 2

## Los números ingresados en orden quedarían así : 2 2 3 4 4 5 6 7 8 8 9 9

Ejercicio 18

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

Vamos a pedir al usuario que ingrese un número con la ayuda de los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

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

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestra variable.

Asignamos el cálculo del factorial del número con el siguiente código:

facto<-function(){ num12<-as.numeric(readline("Ingrese un número")) fact=1 for(i in 1:num12){ fact=fact*i } cat("El factorial del valor:",num12," es =",fact) } facto()

Corremos el código para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código.

Ejecución del código en R

SINTAXIS COMPLETA

facto<-function(){
  num12<-as.numeric(readline("Ingrese un número"))
 
  fact=1
  for(i in 1:num12){
    fact=fact*i
  }
  cat("El factorial del valor:",num12," es =",fact)
}  
facto()

RESULTADO FINAL

## Ingrese un número
## El factorial del valor: 5  es = 120

Ejercicio 19

Escriba un programa donde a partir de un número, se indique si es primo o no.

Procedemos a pedirle al usuario que ingrese el número.

as.numeric= Nos ayuda a definir la variable como numérica. 
readline= Permitirá al programa leer los datos ingresados desde la consola.

Con la ayuda de los dos comandos, definimos una variable que almacené los datos que ingresará el usuario.

num3<-as.integer(readline("INGRESE UN NUMERO: "))

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser digitados, estos quedaran almacenados en nuestras variables.

Declaramos una variable que contenga la operación que determine si el número ingresado es primo.

residuo<-(sum(num3/1:num3==num3%/%1:num3))

Corremos la línea para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente daremos el resultado llamando a la variable que contiene la formula, de la siguiente manera:

cat("El nÃºmero ",num3," es un primo : ",residuo==2)

El comando “cat” nos permitirá producir resultados en funciones definidas por el usuario.

Ejecución del código en R

SINTAXIS COMPLETA

num3<-as.integer(readline("INGRESE UN NUMERO: "))
residuo<-(sum(num3/1:num3==num3%/%1:num3))
cat("El número ",num3," es un primo : ",residuo==2)

RESULTADO FINAL

## INGRESE UN NUMERO:

## [1] 29

## El número  29  es un primo :  TRUE

## INGRESE UN NUMERO:

## [1] 10

## El número  10  es un primo :  FALSE

Ejercicio 20

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

Para realizar el programa que identifique si el número es necesario conocer su residuo para ello vamos a usar la siguiente fórmula.

\[par = \frac{x}{2}=residuo\ =0\]

\[impar = \frac{x}{2}=residuo\ =1\]

Vamos a pedir al usuario que ingrese el número para lo cual vamos a necesitar los siguientes comandos:

as.numeric= Lo ocupamos para definir que esta variable es numérica.
readline= Lo ocupamos para que lea los datos ingresados desde la consola.
cat= Lo ocupamos para producir resultados en funciones definidas por el usuario.

Definimos una variable que almacené los datos que ingresará el usuario.

num11<-as.numeric(readline("Por favor ingrese el número: "))

Una vez declarada la variable procedemos a correr la línea para que el usuario pueda ingresar los datos desde la consola de Rstudio. Luego de ser dijitados, estos quedaran almacenados en nuestra variable.

Asignamos las operaciones que me arroje el residuo y dependiendo de eso va asignar si el número ingresado es par o impar.

par<-num11%%2==0 imp<-num11%%2==1iva<- (num4)*(12/100)

Corremos la línea que contiene la fórmula para que se realice el respetivo cálculo y el resultado quede almacenado en la variable correspondiente.

Finalmente comprobamos su funcionamiento ejecutando el código:

cat("El número",num11," es impar",imp) cat("El número ",num11," es par",par)

Ejecución del código en R

SINTAXIS COMPLETA

num11<-as.numeric(readline("Por favor ingrese el número: "))
par<-num11%%2==0
par
imp<-num11%%2==1
imp
cat("El número",num11," es impar",imp)
cat("El número ",num11," es par",par)

RESULTADO FINAL

Número par

## Por favor ingrese el número:

## [1] 12

## El número 12  es impar FALSE

## El número  12  es par TRUE

Número Impar

## Por favor ingrese el número:

## [1] 13

## El número 13  es impar TRUE

## El número  13  es par FALSE

Manual Primeras Practicas en R

Gabriela Alulema, Jefferson Llangari, Abigail Chasi, Josue Vargas

16/6/2022

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

CARRERA DE ESTADÍSTICA

PRIMERAS PRACTICAS EN R

Manual

EJERCICIOS RESUELTOS EN R

Ejercicio 1

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 2

Ecuación de la Forma

Formula general de una ecuación de segundo grado

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 3

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 4

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 5

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 6

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 7

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 8

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 9

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 10

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 11

Celcius a Fharenheit

Fharenheit a Celcius

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 12

COSTO POR HORA DE TRABAJO

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 13

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 14

Esta tabla permite evaluar si la persona se encuentra dentro del peso que es considerado ideal para su altura.

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 15

Ejecución del código en R

SINTAXIS COMPLETA

RESULTADO FINAL

Ejercicio 16

HORAS

MINUTOS

SEGUNDOS

Ejecución del código en R