JuveYell

UNIVERSIDAD CENTRAL DEL ECUADOR
FACULTAD DE CIENCIAS ECONÓMICAS
INGENIERÍA EN ESTADÍSTICA

Integrantes :

TALLER-APE 11:

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

#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="Ingrese por favor un numero para calcular el factorial: ")$res)

EJERCICIO 2

Crea una aplicación que permita adivinar un número. La aplicación genera un númeroaleatorio 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.

#juego_adivinanza <- function() {
#  numero_secreto <- sample(1:100, 1)
#  intentos <- 0
#  while (intentos < 10) {
#    numero_ingresado <- as.integer(readline("Ingresa un número: "))   
#    intentos <- intentos + 1
#    if (numero_ingresado == numero_secreto) {
#      cat("¡Felicidades! Adivinaste el número en", intentos, "intentos.\n")
#      break
#    } else if (numero_ingresado < numero_secreto) {
#      cat("El número a adivinar es mayor que", numero_ingresado, ". Te quedan", 10 - intentos,
#          "intentos.\n") } else if (numero_ingresado > numero_secreto) {
#            cat("El número a adivinar es menor que", numero_ingresado, ". Te quedan", 10 - intentos, "intentos.\n")
#          }
#  }
#  if (intentos == 10) {
#    cat("Lo siento, no lograste adivinar el número. El número era", numero_secreto, ".\n")
#  }
#}
# Ejecutar la función para iniciar el juego
#juego_adivinanza()

EJERCICIO 3

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

# Paso 1: Inicializar las variables
#suma <- 0
#contador <- 0
# Paso 2: Bucle while para solicitar números
#while (TRUE) {
  # Paso 3: Solicitar al usuario que introduzca un número
#  numero <- as.numeric(readline("Introduce un número (introduce 0 para terminar): "))
  # Paso 4: Verificar si el número ingresado es cero y romper el bucle si es necesario
#  if (numero == 0) {
#    break
#  }
  # Paso 5: Sumar el número a la suma y aumentar el contador
#  suma <- suma + numero
#  contador <- contador + 1
#}
# Paso 6: Calcular la media
#media <- suma / contador
# Paso 7: Mostrar los resultados
#cat("La suma de los números introducidos es:", suma, "\n")
#cat("La media de los números introducidos es:", media, "\n")

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.

#p<-0
#s<- as.numeric(readline("ingrese la cantidad de numeros: "))
#contar_mayores_que_0<-0
#contar_menores_que_0<-0
#contar_iguales_a_0<-0
#for (i in 1:s) {
#  p[i]<- as.numeric(readline("ingrese un numero: "))
#  if (p[i]>0){
#    contar_mayores_que_0<- contar_mayores_que_0+1
#  }
#  if (p[i]<0){
#    contar_menores_que_0<- contar_menores_que_0+1
#  }
#  if (p[i]==0){
#    contar_iguales_a_0<- contar_iguales_a_0+1
#  }
#}
#contar_mayores_que_0
#contar_menores_que_0
#contar_iguales_a_0

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

#Bucle para ingresar caracteres
#while (TRUE) {
  #Solicitar entrada al usuario
#  caracter <- readline("Introduce un caracter (espacio para salir): ")
  #Salir del bucle si se ingresa un espacio
#  if (caracter == " ") {
#    break
#  }
  #Comprobar si es vocal o no vocal
#  if (tolower(caracter) %in% c("a", "e", "i", "o", "u")) {
#    cat("VOCAL\n")
#  } else {
#    cat("NO VOCAL\n")
#  }
#}

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

#Solicitar dos números al usuario
#num1 <- as.numeric(readline("Introduce el primer número: "))
#num2 <- as.numeric(readline("Introduce el segundo número: "))
#Imprimir números pares en el rango
#cat("Números pares entre", num1, "y", num2, "son:\n")
#for (i in num1:num2) {
#  if (i %% 2 == 0) {
#    cat(i, "\n")
#  }
#}

EJERCICO 7

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

#Solicitar un número al usuario
#numero <- as.numeric(readline("Introduce un número para mostrar su tabla de multiplicar: "))
#Mostrar la tabla de multiplicar
#cat("Tabla de multiplicar del", numero, ":\n")
#for (i in 1:10) {
#  resultado <- numero * i
#  cat(numero, "x", i, "=", resultado, "\n")
#}

EJERCICO 8

Escribe un programa que pida el límite 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. He 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:"))
#  inf <- 2
  #sup <- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:"))
#  sup <- 10
#  while (inf>sup | inf==sup) {
#    print("INGRESE UN LIMITE SUPERIOR MAYOR AL INFERIOR")
    #inf <- as.numeric(readline("INGRESE EL LIMITE INFERIOR:"))
#    inf <- 2
    #sup <- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:"))
#    sup <- 10
#  }
  #num <- as.numeric(readline("INTRODUZCA UN NUMERO:"))
#  num <- sample(0:11,1)
#  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:"))
#    num <- sample(0:11,1)
    
 #   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"))
#  op <- "no"
#  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.

# Solicitar la base y el exponente al usuario
#base <- as.numeric(readline("Introduce la base (número real): "))
#exponente <- as.integer(readline("Introduce el exponente (número entero positivo): "))
# Verificar que el exponente sea positivo
#if (exponente < 0) {
#  cat("El exponente debe ser un número entero positivo.\n")
#} else {
  # Inicializar resultado
#  resultado <- 1
  # Calcular la potencia sin usar el operador de potencia
#  for (i in 1:exponente) {
#    resultado <- resultado * base
#  } 
  # Mostrar el resultado
#  cat(base, "elevado a la", exponente, "es igual a", resultado, "\n")
#}

EJERCICIO 10

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

#for (i in 1:5){
#  for (j in 1:10){
#    cat(i," x ",j," = ",i*j,".\n")
#  }
#}