GRUPO 5

28/01/2023

UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONÓMICAS

INGENIERÍA EN ESTADÍSTICA

Autores: Nicole Bauz, Natali Caizaguano, Anahí Chamba, Gandy Churta

Curso: S3-P2

Asignatura: Programación

Docente: Ing. Francisco Valverde PhD

TALLER-APE 11: Ejercicios acerca de Estructuras de Control en R

EJERCICIO 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).

# Primero se tiene que instalar un paquete llamado "svDialogs". Este paquete nos sirve para proceder hacer la aplicación solicitada en el ejercicio.
# svDialogs: Sirve para crear una ventana e ingresar opciones o valores.

install.packages(svDialogs)
library(svDialogs)

facto <- function(n){
  fact = 1
  for (i in 1:n){
    fact <- fact*i
  }
  return(print(paste("El factorial del valor", n,"!", "es =", fact)))
}
facto(n<-dlgInput(message="Por favor, ingrese un número para calcular el factorial: ")$res)

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

# Primero se tiene que instalar un paquete llamado "svDialogs". Este paquete nos sirve para proceder hacer la aplicación solicitada en el ejercicio.
# svDialogs: Sirve para crear una ventana e ingresar opciones o valores.

install.packages(svDialogs)
library(svDialogs)

aleatorio<-sample(1:100,1)
contador<-1
while (contador<11) 
{
  num<- dlgInput(message="INGRESE UN NÚMERO: ")$res
 if (num==aleatorio)
 {
   resul<-paste("ACERTASTE EN EL INTENTO: ", i)
 winDialog(message=resul)
    contador<-12
  } else
  {
    if (num>aleatorio)
    {
      winDialog(message="EL NÚMERO ES MUY ALTO")
    } else
    {
      if (num<aleatorio)
      {
        winDialog(message="EL NÚMERO ES MUY BAJO")
      } 
    }
  }
  if (contador == 10)
  {
    x<-paste("SE TERMINARON LOS INTENTOS, EL NÚMERO ERA:",aleatorio)
    winDialog(message=x)
  }
  contador<-contador+1
}

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

install.packages("svDialogs")
library(svDialogs)

Instalamos el paquete “svdialogs” que nos sirve para crear ventanas emergentes con un mensaje y solicitando información que luego se puede utilizar para realizar alguna operación.

count <- 0
contador <- 0
suma_media <- function(num) {
  repeat {
    num <- as.numeric(dlgInput("Ingrese un número: ")$res)
    contador <- contador + 1
    count <- count + num
    suma <- sum(count)
    media <- (suma/contador)
    if(num == 0) {
      break }
    else {
      print(paste("LA SUMA ES:", suma));print(paste("LA MEDIA ES:", media))
    }
  }
}
suma_media()

Finalizamos la operacion

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

numeros<-function(num1,num2){
  num1 <- as.numeric(readline("Ingrese la cantidad de números que desee ingresar: "))
  for (num1 in 1:num1){
    num2 <- as.numeric(readline("Ingrese un número: "))
    if(num2==0)
    {
      print(paste(num2,"ES IGUAL A 0"))
    }else
    {if(num2> 0)
    {
      print(paste(num2," ES MAYOR A 0"))
    }else
    {
      print(paste(num2," ES MENOR A 0")) 
    }
    }
  }
}
numeros(num2<-scan(what= numeric()))

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

vocales <- function(caracter1) {
  repeat {
    caracter1 <- as.character(readline("Ingrese una letra: "))
    if(caracter1 == "a" | caracter1 == "e" | caracter1 == "i" | caracter1 == "o" | caracter1 == "u" & caracter1 != " "){
      cat(caracter1, "es una vocal")
    } else {
      if(caracter1 == 0) {
        break }
      else {
        cat(caracter1, "no es una vocal")
      }
    }
  }
}
vocales()

EJERCICIO 6

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

n<- function(x,y){
  if(x%%2 ==0){
    print(x)  
  }else{
    if(y%%2 ==0){
      print(y) 
    }else{
      print("No hay pares")
    }
  }
  
}

n(3,4)
## [1] 4

EJERCICIO 7

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

m<-function(x){
  contador<-0
  while(contador<13){
    print(x*contador)
    contador<- contador+1
  }
}

m(2)
## [1] 0
## [1] 2
## [1] 4
## [1] 6
## [1] 8
## [1] 10
## [1] 12
## [1] 14
## [1] 16
## [1] 18
## [1] 20
## [1] 22
## [1] 24

EJERCICIO 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 introduzcamos 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.
  • E informa si hemos introducido algún número igual a los límites del intervalo.
suma=0
cont=0
for (k in 1:100000) {
  inf <- as.numeric(readline("INGRESE EL LIMITE INFERIOR:"))
  
  sup <- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:"))
 
  while (inf>sup | inf==sup) {
    print("INGRESE UN LIMITE SUPERIOR MAYOR AL INFERIOR")
    inf <- as.numeric(readline("INGRESE EL LIMITE INFERIOR:"))
    
    sup <- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:"))
   
  }
  num <- as.numeric(readline("INTRODUZCA UN NUMERO:"))

  if (num>inf & num<sup){
    suma <- suma+num
  }
  if (num<inf | num>sup){
    cont=cont+1
  }
  if (num==inf | num==sup){
    cat(num,"es igual a uno de los limites \n")
  }
  while (num!=0) {
    num <- as.numeric(readline("INTRODUZCA UN NUMERO:"))
    
    if (num>inf & num<sup){
      suma <- suma+num
    }
    if (num<inf | num>sup){
      cont=cont+1
    }
    if (num==inf | num==sup){
      cat(num,"es igual a uno de los limites \n")
    }
  }
  cat("LA SUMA DE LOS NUMEROS ES:",suma,"\n")
  cat("LA CANTIDAD DE NUMEROS FUERA DE LOS LIMITES SON: ",cont,"\n")
  
  
  op <- tolower(readline("DESEA CONTINUAR CON EL PROGRAMA? S/N"))
 
  if (op=="s" | op=="si"){
    k <- 1
    suma=0
    cont=0
  }else{
    print("MUCHAS GRACIAS")
    break
  }
}

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

base <- as.numeric(readline("INGRESE LA BASE: "))

expo <- as.numeric(readline("INGRESE EL EXPONENTE: "))

mult=base
for (i in 1:(expo-1)) {
  mult=mult*base
}
cat("EL RESULTADO ES:",mult)

EEJERCICIO 10

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

for (i in 1:5) {
  cat("TABLA DEL",i,"\n")
  for (j in 1:12) {
    cat(i,"x",j,"=",i*j,"\n")
  }
}
## TABLA DEL 1 
## 1 x 1 = 1 
## 1 x 2 = 2 
## 1 x 3 = 3 
## 1 x 4 = 4 
## 1 x 5 = 5 
## 1 x 6 = 6 
## 1 x 7 = 7 
## 1 x 8 = 8 
## 1 x 9 = 9 
## 1 x 10 = 10 
## 1 x 11 = 11 
## 1 x 12 = 12 
## TABLA DEL 2 
## 2 x 1 = 2 
## 2 x 2 = 4 
## 2 x 3 = 6 
## 2 x 4 = 8 
## 2 x 5 = 10 
## 2 x 6 = 12 
## 2 x 7 = 14 
## 2 x 8 = 16 
## 2 x 9 = 18 
## 2 x 10 = 20 
## 2 x 11 = 22 
## 2 x 12 = 24 
## TABLA DEL 3 
## 3 x 1 = 3 
## 3 x 2 = 6 
## 3 x 3 = 9 
## 3 x 4 = 12 
## 3 x 5 = 15 
## 3 x 6 = 18 
## 3 x 7 = 21 
## 3 x 8 = 24 
## 3 x 9 = 27 
## 3 x 10 = 30 
## 3 x 11 = 33 
## 3 x 12 = 36 
## TABLA DEL 4 
## 4 x 1 = 4 
## 4 x 2 = 8 
## 4 x 3 = 12 
## 4 x 4 = 16 
## 4 x 5 = 20 
## 4 x 6 = 24 
## 4 x 7 = 28 
## 4 x 8 = 32 
## 4 x 9 = 36 
## 4 x 10 = 40 
## 4 x 11 = 44 
## 4 x 12 = 48 
## TABLA DEL 5 
## 5 x 1 = 5 
## 5 x 2 = 10 
## 5 x 3 = 15 
## 5 x 4 = 20 
## 5 x 5 = 25 
## 5 x 6 = 30 
## 5 x 7 = 35 
## 5 x 8 = 40 
## 5 x 9 = 45 
## 5 x 10 = 50 
## 5 x 11 = 55 
## 5 x 12 = 60