INFORME-RMD-GRUPO-2

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADÍSTICA

Autores:

Anderson Cabezas
Georgette Canchignia
Alaine Castillo
Anthony Orosco

Colaborador:

PHD. Francisco Valverde

ESTRUCTURAS DE CONTROL EN R

EJERICICIO N°1

Crea una aplicación que pida un número y calcule su factorial (El factorial de un número es el producto de todos los enteros entre 1 y el propio número y se representa por el número seguido de un signo de exclamación. Por ejemplo 5! = 1x2x3x4x5=120),

PROCEDIMIENTO

num1 <- as.numeric(readline("Ingresar el numero para encontrar el factorial"))
result =1
if (num1<0){
  print("El numero es negativo")
} else if (num1 == 0){
  print(" el resultado factorial es 1")
}else {
  for (i in 1:num1){
   result=result*i
  }
  cat("el resultado del factorial", num1, "es", result)
}

result

## el resultado del factorial 8 es 40320

## [1] 40320

EJERICICIO N°2

Crea una aplicación que permita adivinar un número. La aplicación genera un número aleatorio del 1 al 100. A continuación va pidiendo números y va respondiendo si el número a adivinar es mayor o menor que el introducido,a demás de los intentos que te quedan (tienes 10 intentos para acertarlo). El programa termina cuando se acierta el número (además te dice en cuantos intentos lo has acertado), si se llega al limite de intentos te muestra el número que había generado.

PROCEDIMIENTO

x<-sample(1:100,1,F)
intentos<-0
repeat {
  y<- as.numeric(readline("Ingrese un numero: "))
  if(x>y){
    cat("El numero ingresado es menor al numero aleatorio ")
    intentos<-intentos+1
  }else if(x<y){
    cat("El numero ingresado es mayor al numero aleatorio ")
    intentos<-intentos+1
  } 
  if(intentos==10){
    cat("\n LO SIENTO YA NO TE QUEDAN MAS INTENTOS :(")
    cat("\n El numero aleatorio es: ",x)
    cat("\n Intentos Totales: ",intentos)
  }else if(x==y){
    cat("FELICIDADES ADIVINASTE EL NUMERO ")
    cat("\n Intentos Totales: ",intentos)
  }
if(intentos==10 | x==y) break
}

## El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio El numero ingresado es menor al numero aleatorio 
##  LO SIENTO YA NO TE QUEDAN MAS INTENTOS :(
##  El numero aleatorio es:  79
##  Intentos Totales:  10

EJERICICIO N°3

Algoritmo que pida números hasta que se introduzca un cero. Debe imprimir la suma y la media de todos los números introducidos.

PROCEDIMIENTO

numeros<-0
ingresos<-0
repeat{
  num<-as.numeric(readline("Ingrese un numero:"))
numeros<-numeros+num
  ingresos<-ingresos+1
  if(num==0){
    cat("La suma de los numeros ingresados es: ",numeros)
    cat("\n La media de los numeros ingresados es:",numeros/ingresos)
  }
  if(num==0)break
}

EJERICICIO N°4

Realizar un algoritmo que pida números (se pedirá por teclado la cantidad de números a introducir). El programa debe informar de cuantos números introducidos son mayores que 0, menores que 0 e iguales a 0.

PROCEDIMIENTO

a <- as.numeric(readline("INGRESE LA CANTIDAD DE NUMEROS:"))
cont1 <- 0
cont2 <- 0
cont3 <- 0
for (i in 1:a) {
  b <- as.numeric(readline("INGRESE UN NUMERO:"))
  if (b>0){
    cont1=cont1+1
  }
  if(b<0){
    cont2=cont2+1
  }
  if(b==0){
    cont3=cont3+1
  }
}
cat("HAY",cont1,"NUMEROS MAYORES A 0")
cat("HAY",cont2,"NUMEROS MENORES A 0")
cat("HAY",cont3,"NUMEROS IGUALES A 0")

## HAY 1 NUMEROS MAYORES A 0

## HAY 0 NUMEROS MENORES A 0

## HAY 0 NUMEROS IGUALES A 0

EJERICICIO N°5

Algoritmo que pida caracteres e imprima ‘VOCAL’ si son vocales y ‘NO VOCAL’ en caso contrario, el programa termina cuando se introduce un espacio.

PROCEDIMIENTO

repeat{
  c <- (as.character(readline("INGRESE LA LETRA:")))
  if (c=="a" |c=="e" |c=="i" |c=="o" |c=="u"){
    cat(c,"ES UNA VOCAL")
  }else{
    if(c==""){
      print("GRACIAS")
      break
    }else{
      cat(c,"NO ES UNA VOCAL")
    }
  }
}

EJERICICIO N°6

Escribir un programa que imprima todos los números pares entre dos números que se le pidan al usuario.

PROCEDIMIENTO

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

cat("Los números pares entre ",x," y ",y, "son: ")

for (i in x:y) {
  if(i%%2==0) {
    print(i)
  }
}

## Los números pares entre  3  y  19 son:

## [1] 4
## [1] 6
## [1] 8
## [1] 10
## [1] 12
## [1] 14
## [1] 16
## [1] 18

EJERICICIO N°7

Realizar un algoritmo que muestre la tabla de multiplicar de un número introducido por teclado.

PROCEDIMIENTO

num <- as.numeric(readline("Ingrese el número de la tabla de multiplicar que desee: "))

for (j in 1:12) {
  resultado <- as.numeric(num*j)
  cat(num,"*",j,"=",resultado,"\n")
}

## 7 * 1 = 7 
## 7 * 2 = 14 
## 7 * 3 = 21 
## 7 * 4 = 28 
## 7 * 5 = 35 
## 7 * 6 = 42 
## 7 * 7 = 49 
## 7 * 8 = 56 
## 7 * 9 = 63 
## 7 * 10 = 70 
## 7 * 11 = 77 
## 7 * 12 = 84

EJERICICIO N°8

Escribe un programa que pida el limite inferior y superior de un intervalo. Si el límite inferior es mayor que el superior lo tiene que volver a pedir. A continuación se van introduciendo números hasta que introduzcan el 0. Cuando termine el programa dará las siguientes informaciones:

La suma de los números que están dentro del intervalo (intervalo abierto). -Cuantos números están fuera del intervalo. -He informado si hemos introducido algún número igual a los limites del intervalo.

PROCEDIMIENTO

li <- as.numeric(readline("Ingrese el límite inferior del intervalo:"))
ls <- as.numeric(readline("Ingrese el límite superior del intervalo:"))

if(li>ls){
  cat("El límite inferior no puede ser mayor al limite superior.\n",
      "Vuelva a ingresar los límites:")
  li <- as.numeric(readline("Ingrese el límite inferior del intervalo:"))
  ls <- as.numeric(readline("Ingrese el límite superior del intervalo:"))
}

cat ("Ingrese números que se encuentren entre: ", li, " y ", ls,
     "(SIN TOMAR EN CUENTA LOS LÍMITES)")

numero <- 1
suma <- 0
conteo <- 0
conteoli <- 0
conteols <- 0

while (numero!=0) {
  numero <- as.numeric(readline("Número a ingresar:"))
  if(numero>li & numero<ls) {
    suma <- suma+numero
  }
  if(numero<li | numero>ls) {
    conteo <- conteo+1
  }  
  if(numero==li) {
    conteoli <- conteoli+1 
  }
  if(numero==ls) {
    conteols <- conteols+1
  }
}

cat("La suma de los números que están dentro del intervalo (intervalo abierto) es:", suma)
cat("Hay ",conteo," números fuera del intervalo.")
cat("Hay ",conteoli," números iguales al limite inferior.")
cat("Hay ",conteols," números iguales al limite superior.")

EJERICICIO N°9

Escribe un programa que dados dos números, uno real (base) y un entero positivo (exponente), saque por pantalla el resultado de la potencia. No se puede utilizar el operador de potencia.

PROCEDIMIENTO

base <- as.numeric(readline("Ingrese el número de la base: "))
exponente <- as.numeric(readline("Ingrese el número del exponente: "))
p <- 1
for (i in 1:exponente) {
  p <- p*base
  if(i==exponente){
    cat("El resultado de la potencia ",base,"elevado a ",exponente,
        " es igual a ",p)
    }
}

## El resultado de la potencia  2 elevado a  8  es igual a  256

EJERICICIO N°10

Algoritmo que muestre la tabla de multiplicar de los números 1,2,3,4 y 5.

PROCEDIMIENTO

for (m in 1:5) {
  cat("========================\n")
  cat("TABLA DEL ",m,"\n")
  for (n in 1:12) {
    total <- as.numeric(m*n)
    cat(m,"*",n,"=",total,"\n")
  }
  cat("========================\n")
}

## ========================
## TABLA DEL  1 
## 1 * 1 = 1 
## 1 * 2 = 2 
## 1 * 3 = 3 
## 1 * 4 = 4 
## 1 * 5 = 5 
## 1 * 6 = 6 
## 1 * 7 = 7 
## 1 * 8 = 8 
## 1 * 9 = 9 
## 1 * 10 = 10 
## 1 * 11 = 11 
## 1 * 12 = 12 
## ========================
## ========================
## TABLA DEL  2 
## 2 * 1 = 2 
## 2 * 2 = 4 
## 2 * 3 = 6 
## 2 * 4 = 8 
## 2 * 5 = 10 
## 2 * 6 = 12 
## 2 * 7 = 14 
## 2 * 8 = 16 
## 2 * 9 = 18 
## 2 * 10 = 20 
## 2 * 11 = 22 
## 2 * 12 = 24 
## ========================
## ========================
## TABLA DEL  3 
## 3 * 1 = 3 
## 3 * 2 = 6 
## 3 * 3 = 9 
## 3 * 4 = 12 
## 3 * 5 = 15 
## 3 * 6 = 18 
## 3 * 7 = 21 
## 3 * 8 = 24 
## 3 * 9 = 27 
## 3 * 10 = 30 
## 3 * 11 = 33 
## 3 * 12 = 36 
## ========================
## ========================
## TABLA DEL  4 
## 4 * 1 = 4 
## 4 * 2 = 8 
## 4 * 3 = 12 
## 4 * 4 = 16 
## 4 * 5 = 20 
## 4 * 6 = 24 
## 4 * 7 = 28 
## 4 * 8 = 32 
## 4 * 9 = 36 
## 4 * 10 = 40 
## 4 * 11 = 44 
## 4 * 12 = 48 
## ========================
## ========================
## TABLA DEL  5 
## 5 * 1 = 5 
## 5 * 2 = 10 
## 5 * 3 = 15 
## 5 * 4 = 20 
## 5 * 5 = 25 
## 5 * 6 = 30 
## 5 * 7 = 35 
## 5 * 8 = 40 
## 5 * 9 = 45 
## 5 * 10 = 50 
## 5 * 11 = 55 
## 5 * 12 = 60 
## ========================

INFORME-RMD-GRUPO-2

Anderson Cabezas, Georgette Canchignia, Alaine Castillo y Anthony Orosco

2022-08-12

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADÍSTICA

ESTRUCTURAS DE CONTROL 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