UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADISTICA

Integrantes: Almeida Rene, Navarrete Mishel, Estefania Carlosama, Lizeth Tipantiza.

Colaborador: PhD. Francisco Valverde

En los siguientes 20 ejercicios que vamos a realizar espero les sirva de mucha ayuda, son ejercicios muy sencillos los cuales te van ayudar a comenzar a usar R.

EJERCICIO 1

Escribe un programa que solicite los catetos de un triangulo rectangulo y su hipotenusa teorema de pitagoras a2+b2=c^2

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

j<-as.numeric(readline("Ingrese el primer cateto"))
## Ingrese el primer cateto
k<-as.numeric(readline("Ingrese el segundo cateto"))
## Ingrese el segundo cateto
j<- 3
k<- 9

cat("La hipotenusa es: ", sqrt((j^2)+(k^2)))
## La hipotenusa es:  9.486833
Como puedes visualizar ya nos sale la respuesta de la hipotenusa

EJERCICIO 2

Escribir un programa que calcule las soluciones de una ecuacion de segundo grado de la forma ax2+bx+c=0.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 2do programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

#Valores 
a<-as.numeric(readline("Escribir el valor de a: "))
## Escribir el valor de a:
b<-as.numeric(readline("Escribir el valor de b: "))
## Escribir el valor de b:
c<-as.numeric(readline("Escribir el valor de c: "))
## Escribir el valor de c:
#Ponemos los numero de los valores
a<- 1
b<- 7
c<- 7

#representacion de nuestra formula (D)
D<-(b^2-4*a*c)
#primera respuesta(-)
resp1<-(-b-(sqrt(D))/2*a)
#segunda respuesta(+)
resp2<-(-b+(sqrt(D))/2*a)
#Resultado
cat("Dados los valores para la ecuacion de segundo grado es: ","\n",
    "Nuestros datos ingresados son:\n",
    "Entonces: ",a,"x^2+",b,"x +",c,"=0 \n",
    "La respuesta en la formula es: ",D, "\n",
    "La respuesta de x1 es: ", resp1,"\n",
    "La respuesta de x2 es: ", resp2,"\n")
## Dados los valores para la ecuacion de segundo grado es:  
##  Nuestros datos ingresados son:
##  Entonces:  1 x^2+ 7 x + 7 =0 
##  La respuesta en la formula es:  21 
##  La respuesta de x1 es:  -9.291288 
##  La respuesta de x2 es:  -4.708712
Como puedes visualizar ya nos sale la respuesta de la ecuacion realizada

EJERCICIO 3

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

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 3rcer programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

n<-as.numeric(readline("Ingrese la base"))
## Ingrese la base
m<-as.numeric(readline("ingrese la altura"))
## ingrese la altura
n<- 2
m<- 8

cat("El Area del triangulo es: ", (n*m)/2)
## El Area del triangulo es:  8
Como puedes visualizar ya nos sale la respuesta del area del triangulo

EJERCICIO 4

Calcular el Area y perimetro de un rectangulo dado su base y su altura..

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 4rto programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

num7<-as.numeric(readline("Ingrese la base"))
## Ingrese la base
num8<-as.numeric(readline("Ingrese la atura"))
## Ingrese la atura
num7<- 7
num8<- 8
cat("EL AREA DEL RECTANGULO: ", (num7*num8))
## EL AREA DEL RECTANGULO:  56
cat("EL PERIMETRO DEL RECTANGULO: ", (num7^2)+(num8^2))
## EL PERIMETRO DEL RECTANGULO:  113
Como puedes visualizar ya nos sale la respuesta del area y el perimetro de un rectangulo.

EJERCICIO 5

Calcular el promedio de 3 notas que esten entre 0 y 20.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 5nto programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

num4<-as.numeric(readline("Ingrese la primera nota"))
## Ingrese la primera nota
num5<-as.numeric(readline("Ingrese la segunda nota"))
## Ingrese la segunda nota
num6<-as.numeric(readline("Ingrese la tercera nota"))
## Ingrese la tercera nota
num4<- 7
num5<- 8
num<- 10

cat("El promedio es: ", (num4+num5+num6)/3)
## El promedio es:  NA
Como puedes visualizar ya nos sale la respuesta de nuestro programa de las 3 notas.

EJERCICIO 6

Calcular el Area y perimetro de la circunferencia dado el radio.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 6to programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

n3<-as.numeric(readline("Ingrese el radio de la circunferencia"))
## Ingrese el radio de la circunferencia
n3<-90

cat("El area del circulo: ", (pi*n3^2))
## El area del circulo:  25446.9
cat("El perimetro del circulo: ", (pi*n3*2))
## El perimetro del circulo:  565.4867
Como puedes visualizar ya nos sale la respuesta de la circunferencia.

EJERCICIO 7

Calcular el area y perimetro de un trapecio dado su base mayor,base menor y altura ingresamos la base mayor.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 7mo programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

a<-as.numeric(readline("Ingrese el valor de la base mayor:"))
## Ingrese el valor de la base mayor:
#Ingresamos base menor
b<-as.numeric(readline("Ingrese el valor de la base menor:"))
## Ingrese el valor de la base menor:
# Ingresamos altura
h <- as.numeric(readline("Ingrese la altura del trapecio:"))
## Ingrese la altura del trapecio:
#ingreso los valores
a<- 3
b<- 6
h<- 9
#realizamos la operacion de la fórmula 
cat("El área del trapecio es : ",h*(a+b)/2)
## El área del trapecio es :  40.5
Como puedes visualizar ya nos sale la respuesta del area del trapecio

EJERCICIO 8

Dados dos números, dterminar cual es el número mayor y cual es el número menor, si los dos números son iguales el mensaje debe decir que son números iguales.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 8vo programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

p <- as.numeric(readline("Ingrese el primer número: "))
## Ingrese el primer número:
m <- as.numeric(readline("Ingrese el segundo número: "))
## Ingrese el segundo número:
p<- 7
m<- 9

cat ( "El primero número es menor que el segundo: ", p<m, "\n",
      "El primer número es mayor que el segundo: ", p>m, "\n",
      "Los dos números son iguales: ", p==m)
## El primero número es menor que el segundo:  TRUE 
##  El primer número es mayor que el segundo:  FALSE 
##  Los dos números son iguales:  FALSE
Como puedes visualizar ya nos sale la respuesta de si son iguales o no

EJERCICIO 9

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

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 9veno programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

r<-as.numeric(readline("ingrese el primer numero"))
## ingrese el primer numero
t<-as.numeric(readline("ingrese el segundo numero"))
## ingrese el segundo numero
r<- 6
t<- 8

cat("la suma de los numeros es : ", r+t)
## la suma de los numeros es :  14
cat("la resta de los numeros es: ", r-t )
## la resta de los numeros es:  -2
cat("la multiplicacion de los numeros es: ",r*t )
## la multiplicacion de los numeros es:  48
cat("la division de los numeros es:", r/t)
## la division de los numeros es: 0.75
Como puedes visualizar ya nos sale la respuesta de nuestras operaciones.

EJERCICIO 10

Realice un programa que pida una cantidad en dolares y como resultado se visualice el IVA (12%) y el valor total a pagar.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este 10mo programa, y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

x<-as.numeric(readline("ingrese el primer numero"))
## ingrese el primer numero
x<- 60

cat("El iva es: ", (x*0.12))
## El iva es:  7.2
cat("El valor total a pagar es:  ",(x*0.12)+x)
## El valor total a pagar es:   67.2
Como puedes visualizar ya nos sale la respuesta del IVA.

EJERCICIO 11

#Escribir un programa que pida la temperatura y si esta es en Fahrenheit o Celsius y presentar en pantalla su transformacion en la otra medida

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 11 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

temperatura<- as.numeric(readline("Por favor ingrese la temperatura: "))
## Por favor ingrese la temperatura:
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<- 45
medida<- 30


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:  7.222222 C
Como puedes visualizar ya nos sale la respuesta de los grados y es ingresado por consola tambien pero yo para el ejemplo le ingrese por el r scrip.

EJERCICIO 12

Escribir un programa que pregunte al usuario por el numero de horas trabajadas y el coste por hora. Despues debe mostrar por pantalla la paga que le corresponde, ademas debe preguntar si existen horas extras que tienen un valor diferente y con estos valores se calcule la paga correspondiente.

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 12 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

#El usuario que va a trabajar gana por hora 10 dolares y el precio de
#las horas extras es de 15  dolares.
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
Como puedes visualizar ya nos sale la respuesta de su salario pero recuerden chicos que aqui tenemos que ingresar como en todos los programas por consola el usuario es decir ustedes entonces yo no los voy a poner eso ya es a su criterio y les va a salir la respuesta.

EJERCICIO 13

Escribir un programa que lea un entero positivo. Muestre la suma de yodos los enteros desde 1 hasta n. La suma de los n primeros enteros positivos puede ser calculado de la siguiente ,anera; suma = n (n + 1)2

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 13 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

x <- as.numeric(readline("Por favor introduzca un número entero: "))
## Por favor introduzca un número entero:
x<- 8

suma <- (x*(x+1))/2
cat("La suma de un número entero es: ", suma)
## La suma de un número entero es:  36
Como puedes visualizar ya nos sale la respuesta de la suma del numero entero.

EJERCICIO 14

Escribir un programa que pida al usuario su peso en (kg)y estatura (en metros), calcule el indice de masa corporal y lo alamcene en una variable, y muestre por pantalla la frase tu indice de masa corporal es donde es el indice de masa corporal calculado redondeado con dos decimales

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 14 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

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
peso_kg<- 30
estatura_metros<- 20

cat("Tu indice de masa corporal es de (imc): ", round(imc,2))
## Tu indice de masa corporal es de (imc):  NA
Como puedes visualizar ya nos sale la respuesta de lo calculado (peso)
(estatura)
(masa corporal)

EJERCICIO 15

Escribir un programa que pregunte al usuario una cantidad a invertir, el interes anual y el nùmero de años y muestre por pantalla el capital en la inversion

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 15 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline , el cat, as.integer

inver<-as.numeric(readline("Ingrese la cantidad que desea
                           invertir: "))
## Ingrese la cantidad que desea
##                            invertir:
intrs<-as.numeric(readline("Ingrese el interes anual de inversion: "))
## Ingrese el interes anual de inversion:
años<-as.integer(readline("Ingrese los años plazo: "))
## Ingrese los años plazo:
inver<- 40
intrs<- 20
años<- 5

tintrs<-intrs/100
capital<-inver*(1+intrs)^años
cat("El capital que ha obtenido es de : ",round(capital,2))
## El capital que ha obtenido es de :  163364040
Como puedes visualizar ya nos sale la respuesta de la inversion del usuario

EJERCICIO 16

Realizar un programa que pida el tiempo ya sea en horas, minutos o segundos luego indicar en que tipo de tiempo desea transformar y luego presentar el resultado

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 16 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

{
  tiempo<-as.numeric(readline("Por favor señor usuario ingrese el tiempo en horas: "))
  
  cat("Su tiempo transformado de horas a minutos y segundos son de: ",
      tiempo*(60/1), "minutos \n ", tiempo*(3600/1), "segundos" )
}
## Por favor señor usuario ingrese el tiempo en horas: 
## Su tiempo transformado de horas a minutos y segundos son de:  NA minutos 
##   NA segundos
{
  tiempo<-as.numeric(readline("Por favor señor usuario ingrese el tiempo en minutos: "))
  cat("Su tiempo transformado de minutos a horas y segundos son de: ",
      tiempo*(1/60), "horas \n ", tiempo*(60/1), "segundos")
}
## Por favor señor usuario ingrese el tiempo en minutos: 
## Su tiempo transformado de minutos a horas y segundos son de:  NA horas 
##   NA segundos
{
  tiempo<-as.numeric(readline("Por favor señor usuario ingrese el tiempo en segundos: "))
  cat("Su tiempo transformado de segundos a horas y minutos son de: ",
      tiempo*(1/60), "segundos \n ", tiempo*(60/1), "segundos")
}
## Por favor señor usuario ingrese el tiempo en segundos: 
## Su tiempo transformado de segundos a horas y minutos son de:  NA segundos 
##   NA segundos
Como puedes visualizar ya nos sale la respuesta de los tiempos ingresados, chicos tengan muy encuenta que esto es ingresado por ustedes es decir el usuario en la consola. 
De acuerdo a eso les va a salir el tiempo.

EJERCICIO 17

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

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 17 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline, levels y el cat

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)
n1<- 2
n2<- 3
n3<- 4
n4<- 5
n5<- 6
cat("Orden de forma ascendente: ", sort(numeros))
## Orden de forma ascendente:
num <- factor(scan())
levels(num)
## character(0)
Como puedes visualizar ya nos sale el orden en forma ascendente

EJERCICIO 18

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

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 18 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

nume <- as.numeric(readline("Ingrese un número: "))
## Ingrese un número:
resultado <- seq(num)

nume<-7

cat("El factorial del valor: ", nume, "es:",
    resultado[6]*resultado[5]*resultado[4]*resultado[3]*resultado[2]*resultado[1])
## El factorial del valor:  7 es: NA
factorial(4)
## [1] 24
Como puedes visualizar ya nos sale la respuesta del factorial

EJERCICIO 19

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

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa numero 19 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline, el cat y as.integer

numeroo<-8
p<-(sum(numeroo/1:numeroo==numeroo%/%1:numeroo))
p==2
## [1] FALSE
Como puedes visualizar ya nos sale la respuesta del numero si es primo o no

EJERCICIO 20

Escribir un programa que pida un numero e indique si es par o impar

Aqui les voy a poner el Scrip para que puedan visualizar como realizamos este programa 20 y los comandos que usamos para este.

En este ejercicio las funciones que usamos fueron el as.numeric, el readline y el cat

n1<-as.numeric(readline("Ingrese un nùmero por favor : "))
## Ingrese un nùmero por favor :
n1<- 8

par<- n1%%2==0
impar<-n1%%2==1
cat("El nùmero que ustd ingreso es par: ",par)
## El nùmero que ustd ingreso es par:  TRUE
cat("El nùmero que ustd ingreso es impar: ",impar)
## El nùmero que ustd ingreso es impar:  FALSE
Como puedes visualizar ya nos sale la respuesta si es par o impar