3 4— title: “TRABAJO GRUPAL” author: “GRUPO 3” date: “14/6/2022” output: html_document editor_options: chunk_output_type: inline —

MANUAL DE EJERCICIOS EN R Markdown

PRIMER EJERCICIO

ESCRIBE UN PROGRAMA QUE SOLICITE LOS CATETOS DE UN TRIÁNGULO RECTÁNGULO Y MUESTRE SU HIPOTENUSA

A CONTINUACION SE MUESTRA LA ESTRUCTURA DEL CODIGO EN LA CUAL SE LA PIDE AL USUARIO QUE INGRESE CUALQUIER VALOR POR TECLADO Y AL FINAL LE MOSTRARA EL RESULTADO.

EL CODIGO SE MOSTRARA VACIO YA QUE AL EJECUTAR LA OPCION DE KNIT “HTML” NO PODREMOS USAR LA CONSOLA PARA INGRESAR LOS VALORES QUE EL USUARIO DESEA, POR LO CUAL EN EL RESULTADO NOS INDICARA NA, INDICANDO QUE NO EXISTE UN VALOR INGRESADO

catetoA<-as.numeric(readline("Coloque el primer cateto: "))

## Coloque el primer cateto:

catetoB<-as.numeric(readline("Coloque el segundo cateto: "))

## Coloque el segundo cateto:

resultado1<-(catetoA^2)+(catetoB^2)

resultado2<-sqrt(resultado1)

cat("El resultado de la hipotenusa es: ", resultado2)

## El resultado de la hipotenusa es:  NA

ASIGNAREMOS COMO VARIABLES A LOS CATETOS Y A LAS FORMULAS, PARA QUE NOS SALGAN EL RESULTADO AL MOMENTO DE CORRER EL CODIGO.

catetoA <- 4

catetoB <- 6

resultado1 <- (catetoA^2)+(catetoB^2)
resultado1

## [1] 52

resultado2 <- sqrt(resultado1)
resultado2

## [1] 7.211103

SEGUNDO EJERCICIO

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.

x<- as.numeric(readline("por favor introduzca un numero entero: "))

## por favor introduzca un numero entero:

suma <- (x*(x+1))/2
cat("la suma de un numero entero es: ", suma)

## la suma de un numero entero es:  NA

~~~~ DE LA MISMA MANERA ASIGNAREMOS VALORES A LA SUMA PARA QUE NOS CORRA EL CODIGO SIN INCONVENIENTE Y EL RESULTADO SE PUEDA VER. ~~~

x <- 5
suma <- (x*(x+1))/2
suma

## [1] 15

TERCER EJERCICIO

CALCULAR EL ÁREA DEL TRIÁNGULO RECTÁNGULO DADAS SU BASE Y ALTURA

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

## Ingrese la base del triángulo:

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

## Ingrese la altura del triángulo:

cat("El Área total es:", ((base*altura)/2))

## El Área total es: NA

ASIGANAREMOS A LA BASE Y A LA ALTURA PARA QUE NOS DE EL RESULTADO AL MOMENTO DE CORRER EL CODIGO, COMPROBANDO LA SOLUCION AL EJERCICIO ANTERIOR.

base <- 6

altura <- 4

areatotal <- (base*altura)/2
areatotal

## [1] 12

CUARTO EJERCICIO

ESCRIBE UN PROGRAMA QUE CALCULE LAS SOLUCIONES DE UNA ECUACIÓNDE SEGUNDO GRADO DE LA FORMA ax2+bx+c=0

cat("Siguiento la secuencia de la ecuacion ingrese los digitos ")

## Siguiento la secuencia de la ecuacion ingrese los digitos

cat("ax2+bx+c=0")

## ax2+bx+c=0

x2<-as.numeric(readline("Ingrese a: "))

## Ingrese a:

x<-as.numeric(readline("Ingrese b: "))

## Ingrese b:

n<-as.numeric(readline("Ingrese c: "))

## Ingrese c:

rx1<-(x^2)-(4*x2*n)
result1<-((-x)+sqrt(rx1))/(2*x2)
result2<-((-x)-sqrt(rx1))/(2*x2)
cat("El resultado de X1 es igual a: ", result1)

## El resultado de X1 es igual a:  NA

cat("El resultado de X2 es igual a: ", result2)

## El resultado de X2 es igual a:  NA

PARA QUE NOS MUESTRE EL RESULTADO A LA HORA DE CORRER EL PROGRAMA ASIGANAMOS VALORES A LA ECUACION

x2 <- 4
x <- 9
n <- 2

rx1<-(x^2)-(4*x2*n)
rx1

## [1] 49

result1<-((-x)+sqrt(rx1))/(2*x2)
result1

## [1] -0.25

result2<-((-x)-sqrt(rx1))/(2*x2)
result2

## [1] -2

QUINTO EJERCICIO

EL EJERCICIO NOS PIDE QUE DEBEMOS CALCULAR EL ÁREA Y EL PERÍMETRO DE UN RECTÁNGULO MEDIANTE OPERACIONES MATEMÁTICAS INGRESANDO SU BASE Y SU ALTURA MEDIANTE EL TECLADO

num3<-as.numeric(readline("Ingrese la base del Rectángulo: "))

## Ingrese la base del Rectángulo:

num4<-as.numeric(readline("Ingrese la altura del Rectángulo: "))

## Ingrese la altura del Rectángulo:

cat("El area del Rectángulo es: ",(num3*num4),"\n")

## El area del Rectángulo es:  NA

cat("El perimetro del Rectángulo es: ",(2*num3)+(2*num4))

## El perimetro del Rectángulo es:  NA

ASIGANAMOS VALORES AL AREA Y AL PERIMETRO DE UN RECTANGULO

baseRectangulo <- 10 
alturaRectangulo <- 3
areaRectángulo <- (baseRectangulo*alturaRectangulo)
areaRectángulo

## [1] 30

perimetroRectángulo <- (2*num3)+(2*num4)
perimetroRectángulo

## [1] NA

SEXTO EJERCICIO

CALCULAR EL PROMEDIO DE 3 NOTAS QUE ESTEN ENTRE 0 Y 20

nota_individual<- as.numeric(readline("INGRESE SU NOTA INDIVIDUAL: "))

## INGRESE SU NOTA INDIVIDUAL:

nota_Grupal<- as.numeric(readline("INGRESE SU NOTA GRUPAL: "))

## INGRESE SU NOTA GRUPAL:

nota_examen<- as.numeric(readline("INGRESE SU NOTA EXAMEN: "))

## INGRESE SU NOTA EXAMEN:

promedio<- (nota_individual+nota_Grupal+nota_examen) /3
cat("SU NOTA FINAL ES:", "\n", "Programación ", round(promedio, digits=2))

## SU NOTA FINAL ES: 
##  Programación  NA

DAMOS VALORES A LAS VARIABLES PARA PODER EJECUTAR LOS EJERCICIOS Y PODER OBTENER EL PROMEDIO DE LAS TRES NOTAS INGRESADAS

nota_individual<- 15
nota_Grupal<- 17
nota_examen<- 18
promedio<- (nota_individual+nota_Grupal+nota_examen) /3
cat("SU NOTA FINAL ES:", "\n", "Programación ", round(promedio, digits=2))

## SU NOTA FINAL ES: 
##  Programación  16.67

SEPTIMO EJERCICIO

CALCULAR EL RADIO DE LA CIRCUNFERENCIA DADO EL RADIO

#AREA
area_circunferencia<- function(r)
{
  area<-pi*(r)^2
  print(paste0("radio de la circunferencia es =: ",r))
  print("El valor del area de la circunferencia es: ")
  return(area)
}
r<- as.numeric(readline("AREA DE LA CIRCUNFERENCIA \n Ingrese el valor del radio: "))

## AREA DE LA CIRCUNFERENCIA 
##  Ingrese el valor del radio:

area_circunferencia(r)

## [1] "radio de la circunferencia es =: NA"
## [1] "El valor del area de la circunferencia es: "

## [1] NA

ACONTINUACIÓN SE MUESTRA EL EJERCICIO CON UN VALOR ASIGNADO

#AREA
area_circunferencia<- function(r)
{
  area<-pi*(r)^2
  print(paste0("radio de la circunferencia es =: ",r))
  print("El valor del area de la circunferencia es: ")
  return(area)
}
r<- 6
area_circunferencia(r)

## [1] "radio de la circunferencia es =: 6"
## [1] "El valor del area de la circunferencia es: "

## [1] 113.0973

CALCULAR EL PERÍMETRO DE UNA CIRCUNFERENCIA DADO EL RADIO

#PERIMETRO
perimetro_circunferencia<- function(r)
{
 perimetro<-2*pi* r
 print(paste0("El radio de la circunferencia es =: ",r))
 print("El valor del area de la circunferencia es: ")
 return(perimetro)
}
r<- as.numeric(readline("PERIMETRO DE LA CIRCUNFERENCIA \n Ingrese el valor del  radio: "))

## PERIMETRO DE LA CIRCUNFERENCIA 
##  Ingrese el valor del  radio:

perimetro_circunferencia(r)

## [1] "El radio de la circunferencia es =: NA"
## [1] "El valor del area de la circunferencia es: "

## [1] NA

ASIGNAMOS UN VALOR AL EJEMPLO PARA QUE NOS PUEDA MOSTRAR EL RESULTADO

perimetro_circunferencia<- function(r)
{
 perimetro<-2*pi*r
 print(paste0("El radio de la circunferencia es =: ",r))
 print("El valor del area de la circunferencia es: ")
 return(perimetro)
}
r<- 8
perimetro_circunferencia(r)

## [1] "El radio de la circunferencia es =: 8"
## [1] "El valor del area de la circunferencia es: "

## [1] 50.26548

OCTAVO EJERCICIO

CALCULAR EL ÁREA Y PERÍMETRO DE UN TRAPECIO DADO SU BASE MAYOR, BASE MENOR Y ALTURA.

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

## Ingrese la base mayor:

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

## Ingrese la base menor:

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

## Ingrese la altura:

cat(" El area es: ", (bmayor+bmenor)/2*altura)

##  El area es:  NA

SE ASGINA UN VALOR NUMERICO AL EJERCICIO PARA COMPROBAR QUE FUNCIONE CORRECTAMENTE

bmayor <- 8
bmenor <- 5
altura <- 6
cat(" El area es: ", (bmayor+bmenor)/2*altura)

##  El area es:  39

NOVENO EJERCICIO

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**

COLOCAMOS DOS VALORES IGUALES PARA QUE NOS MUESTRE EL MENSAJE **SON NÚMEROS IGUALES**

num1<- 5
num2<- 5
if(num1>num2){
 print(paste("El número", num1, "Es mayor que", num2))

}else{
 if(num1<num2){
 print(paste("El número", num1, "Es menor que", num2))
 }else
 if(num1==num2){
 print(paste("El número", num1, " Es igual que", num2))
 }
}

## [1] "El número 5  Es igual que 5"

DECIMO EJERCICIO

ESCRIBE UN PROGRAMA QUE LEA DOS NÚMEROS Y MUESTRE EN LA SALIDA SU SUMA, RESTA, MULTIPLICACIÓN Y DIVISIÓN

x <- as.numeric(readline("ingrese el primer número: "))

## ingrese el primer número:

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

## ingrese el segundo número:

cat("la suma de los numeros es :", x+y, "\n",
 "la resta de los numeros es :", x-y, "\n",
 "la multiplicacion de los numeros es :", x*y, "\n",
 "la division de los numeros es :", x/y)

## la suma de los numeros es : NA 
##  la resta de los numeros es : NA 
##  la multiplicacion de los numeros es : NA 
##  la division de los numeros es : NA

REMPLAZAMOS EL ANTERIOR CODIGO CON NÚMEROS PARA QUE EL EJERCICIO PUEDA REALIZAR LAS 4 OPERACIONES INDICADAS

x <- 5
y <- 6
cat("la suma de los numeros es :", x+y, "\n",
 "la resta de los numeros es :", x-y, "\n",
 "la multiplicacion de los numeros es :", x*y, "\n",
 "la division de los numeros es :", x/y)

## la suma de los numeros es : 11 
##  la resta de los numeros es : -1 
##  la multiplicacion de los numeros es : 30 
##  la division de los numeros es : 0.8333333

UNDECIMO EJERCICIO

REALICE UN PROGRAMA QUE PIDA UNA CANTIDAD EN DÓLARES Y COMO 
RESULTADO SE VISUALICE EL IVA (12%) Y EL VALOR TOTAL A PAGAR

dine<- as.numeric(readline("Dijite su cantidad de dinero: "))

## Dijite su cantidad de dinero:

iva<- dine*0.12

total<- dine+iva

cat("Su dinero incluido el iva es igual a: ", total)

## Su dinero incluido el iva es igual a:  NA

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

dine<- 200

iva<- dine*0.12

total<- dine+iva

cat("Su dinero incluido el iva es igual a: ", total)

## Su dinero incluido el iva es igual a:  224

DUODECIMO EJERCICIO

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.

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

temp<- 50
grad<- 1

if(grad<1){
  
  Tempt<- (temp*1.8)+32
  
  cat("La temperatura en Fareheit es: ",Tempt)
}else{
  
  TempF<- (temp-32)/1.8
  
  cat("La temperatura en Celsius es: ",TempF)
}

## La temperatura en Celsius es:  10

DECIMOTERCERO EJERCICIO

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

Htr<- as.numeric(readline("Ingrese las horas trabajadas: "))

## Ingrese las horas trabajadas:

Ctr<- as.numeric(readline("Ingrese el coste por hora: "))

## Ingrese el coste por hora:

cat("EN CASO DE NO HABER TRABAJADO HORAS EXTRA INGRESE 0 ")

## EN CASO DE NO HABER TRABAJADO HORAS EXTRA INGRESE 0

Htre<- as.numeric(readline("Ingrese las horas extra trabajadas: "))

## Ingrese las horas extra trabajadas:

Ctre<- as.numeric(readline("Ingrese el coste por hora extra: "))

## Ingrese el coste por hora extra:

Cal<-Htr*Ctr

cat("El total de las horas trabajadas es: ", Cal)

## El total de las horas trabajadas es:  NA

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

Htr<- 28
Ctr<- 3.5

cat("EN CASO DE NO HABER TRABAJADO HORAS EXTRA INGRESE 0 ")

## EN CASO DE NO HABER TRABAJADO HORAS EXTRA INGRESE 0

Htre<- as.numeric(readline("Ingrese las horas extra trabajadas: "))

## Ingrese las horas extra trabajadas:

Ctre<- as.numeric(readline("Ingrese el coste por hora extra: "))

## Ingrese el coste por hora extra:

Cal<-Htr*Ctr

cat("El total de las horas trabajadas es: ", Cal)

## El total de las horas trabajadas es:  98

DECIMOCUARTO EJERCICIO

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

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

## Ingrese su peso en kg:

altu<-as.numeric(readline("Ingrese su altura en m: "))

## Ingrese su altura en m:

imc<-peso/(altu^2)

imc<-round(imc,2)


cat("Tu indice de masa corporal es:", imc)

## Tu indice de masa corporal es: NA

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

peso<-75
altu<-1.80

imc<-peso/(altu^2)

imc<-round(imc,2)


cat("Tu indice de masa corporal es:", imc)

## Tu indice de masa corporal es: 23.15

DECIMOQUINTO EJERCICIO

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

int<-as.numeric(readline("Ingrese la tasa interes anual: "))

## Ingrese la tasa interes anual:

num<-as.numeric(readline("Ingrese el numero de años: "))

## Ingrese el numero de años:

inv<-as.numeric(readline("Ingrese la cantidad invertida: "))

## Ingrese la cantidad invertida:

inver<-(1+int)^num
total<-inv*inver

cat("El capital obtenido despues de",num,"años es igual a",total)

## El capital obtenido despues de NA años es igual a NA

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

int<-0.14

num<-3

inv<-1000

inver<-(1+int)^num
total<-inv*inver

cat("El capital obtenido despues de",num,"años es igual a",total)

## El capital obtenido despues de 3 años es igual a 1481.544

DECIMOSEXTO EJERCICIO

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

valor<-as.numeric(readline("Ingrese el valor del tiempo:"))

## Ingrese el valor del tiempo:

mod<-readline("El tiempo ingresado esta en horas, minutos o segundos:")

## El tiempo ingresado esta en horas, minutos o segundos:

 if(mod=="horas"){
    minutos<-valor*60
    segundos<-valor*3600
cat("El tiempo ingresado en minutos es:",minutos)
cat("El tiempo ingresado en segundos es:",segundos) 
 }else if (mod=="minutos"){
   horas<-valor/60
   segundos<-valor*60
   cat("El tiempo ingresado en horas es:",horas)
   cat("El tiempo ingresado en segundos es:",segundos) 
 }else if (mod=="segundos"){
   horas<-valor/3600
   minutos<-valor/60
   cat("El tiempo ingresado en horas es:",horas)
   cat("El tiempo ingresado en minutos es:",minutos) 
 }

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

valor<-("Ingrese el valor del tiempo:")
valor<-3600
mod<-("El tiempo ingresado esta en horas, minutos o segundos:")
mod<-"segundos"

 if(mod=="horas"){
    minutos<-valor*60
    segundos<-valor*3600
cat("El tiempo ingresado en minutos es:",minutos)
cat("El tiempo ingresado en segundos es:",segundos) 
 }else if (mod=="minutos"){
   horas<-valor/60
   segundos<-valor*60
   cat("El tiempo ingresado en horas es:",horas)
   cat("El tiempo ingresado en segundos es:",segundos) 
 }else if (mod=="segundos"){
   horas<-valor/3600
   minutos<-valor/60
   cat("El tiempo ingresado en horas es:",horas)
   
   cat("El tiempo ingresado en minutos es:",minutos) 
 }

## El tiempo ingresado en horas es: 1El tiempo ingresado en minutos es: 60

DECIMOSEPTIMO EJERCICIO

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

cat("Digite los numeros a ordenar: ")

## Digite los numeros a ordenar:

v1<- as.numeric(readline("Escriba el primer numero: "))

## Escriba el primer numero:

v2<- as.numeric(readline("Escriba el segundo numero: "))

## Escriba el segundo numero:

v3<- as.numeric(readline("Escriba el tercer numero: "))

## Escriba el tercer numero:

v4<- as.numeric(readline("Escriba el cuarto numero: "))

## Escriba el cuarto numero:

x<-c(v1, v2,v3,v4)

vord<-sort(x)
vord

## numeric(0)

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

cat("Digite los numeros a ordenar: ")

## Digite los numeros a ordenar:

v1<- ("Escriba el primer numero: ")
v1<- 10
v2<- ("Escriba el segundo numero: ")
v2<- 13
v3<- ("Escriba el tercer numero: ")
v3<- 2
v4<- ("Escriba el cuarto numero: ")
v4<- 20
x<-c(v1, v2,v3,v4)
print("Los números ordenados son")

## [1] "Los números ordenados son"

vord<-sort(x)
vord

## [1]  2 10 13 20

DECIMOOCTAVO EJERCICIO

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

x<- as.numeric(readline("Digite el numero que desee sacar el factorial: "))

## Digite el numero que desee sacar el factorial:

y<-factorial(x)

print(y)

## [1] NA

REEMPLAZAMOS EL ANTERIOR CODIGO CON NUMEROS PARA QUE CORRER EL EJERCICIO

x<- ("Digite el numero que desee sacar el factorial: ")
x<-5

y<-factorial(x)

print(paste("El resultado factorial es:",y))

## [1] "El resultado factorial es: 120"

DECIMONOVENO EJERCICIO

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

numero<-as.integer(readline("INGRESE UN NUMERO: "));numero <- 3

## INGRESE UN NUMERO:

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

if(residuo==2)

 {
  cat("EL NUMERO", numero, "ES PRIMO")
 }else
 {
  cat("EL NUMERO",numero, "NO ES PRIMO")
 }

## EL NUMERO 3 ES PRIMO

VIGÉSIMO EJERCICIO

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

num<-("ingrese el numero a identificar: ")
num<-35

if(num %% 2 == 0){
  cat("el numero inresado es par")
}else if (num %% 2 == 1){
  cat("el numero inresado es impar")
}

## el numero inresado es impar

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADISTICA

PROGRAMACION

INTEGRANTES

COLABORADOR

MANUAL DE EJERCICIOS EN R Markdown

PRIMER EJERCICIO

SEGUNDO EJERCICIO

TERCER EJERCICIO

CUARTO EJERCICIO

QUINTO EJERCICIO

SEXTO EJERCICIO

SEPTIMO EJERCICIO

OCTAVO EJERCICIO

NOVENO EJERCICIO

DECIMO EJERCICIO

UNDECIMO EJERCICIO

DUODECIMO EJERCICIO

DECIMOTERCERO EJERCICIO

DECIMOCUARTO EJERCICIO

DECIMOQUINTO EJERCICIO

DECIMOSEXTO EJERCICIO

DECIMOSEPTIMO EJERCICIO

DECIMOOCTAVO EJERCICIO

DECIMONOVENO EJERCICIO

VIGÉSIMO EJERCICIO