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)
# Función para calcular el factorial de un número
#calcular_factorial <- function(n) {
#if (n < 0) {
#print("El número debe ser mayor o igual a cero.")
#return(NULL)
#}
#factorial <- 1
#if (n == 0) {
#factorial <- 1
#} else {
#for (i in 1:n) {
#factorial <- factorial * i
#}
#}
#return(factorial)
#}
# Pedir al usuario que ingrese un número
#numero <- as.integer(readline("Ingresa un número: "))
# Calcular el factorial del número ingresado
#resultado <- calcular_factorial(numero)
# Mostrar el resultado si no es NULL
#if (!is.null(resultado)) {
#cat("El factorial de", numero, "es", resultado)
#}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.
# Generar un número aleatorio del 1 al 100
#numero_secreto <- sample(1:100, 1)
# Inicializar variables
#intentos <- 10
#adivinado <- FALSE
# Juego de adivinar el número
#while (intentos > 0 && !adivinado) {
# Solicitar un número al usuario
#numero <- as.integer(readline(prompt = "Adivina el número (1-100): "))
# Verificar si el número es correcto
#if (numero == numero_secreto) {
#adivinado <- TRUE
#print(paste("¡Felicidades! Adivinaste el número en", 11 - intentos, "intentos."))
#} else if (numero < numero_secreto) {
#intentos <- intentos - 1
#print(paste("El número a adivinar es mayor. Te quedan", intentos, "intentos."))
#} else {
#intentos <- intentos - 1
#print(paste("El número a adivinar es menor. Te quedan", intentos, "intentos."))
#}
#}
# Mostrar el número secreto si no se adivinó
#if (!adivinado) {
#print(paste("No adivinaste el número. El número secreto era:", numero_secreto))
#}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.
# Inicializar variables
#suma <- 0
#contador <- 0
# Bucle para solicitar números
#while (TRUE) {
# Solicitar un número al usuario
#numero <- as.numeric(readline(prompt = "Ingresa un número (ingresa 0 para terminar): "))
# Verificar si se ingresa un cero
#if (numero == 0) {
#break
#}
# Actualizar la suma y el contador
#suma <- suma + numero
#contador <- contador + 1
#}
# Calcular la media
#media <- suma / contador
# Imprimir la suma y la media
#print(paste("La suma de los números es:", suma))
#print(paste("La media de los números es:", media))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.
# Solicitar la cantidad de números a introducir
#cantidad <- as.integer(readline(prompt = "Ingrese la cantidad de números a introducir: "))
# Inicializar variables
#mayores <- 0
#menores <- 0
#iguales <- 0
# Bucle para solicitar los números
#for (i in 1:cantidad) {
# Solicitar un número al usuario
#numero <- as.numeric(readline(prompt = paste("Ingrese el número", i, ": ")))
# Verificar si el número es mayor, menor o igual a 0
#if (numero > 0) {
#mayores <- mayores + 1
#} else if (numero < 0) {
#menores <- menores + 1
#} else {
#iguales <- iguales + 1
#}
#}
# Imprimir los resultados
#print(paste("Cantidad de números mayores que 0:", mayores))
#print(paste("Cantidad de números menores que 0:", menores))
#print(paste("Cantidad de números iguales a 0:", iguales))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.
# Bucle para solicitar caracteres
#while (TRUE) {
# Solicitar un carácter al usuario
#caracter <- readline(prompt = "Ingrese un carácter (ingrese fin para terminar): ")
# Verificar si se ingresa un espacio
#if (caracter == "fin") {
#break
#}
# Verificar si el carácter es una vocal
#if (caracter %in% c("a", "e", "i", "o", "u", "A", "E", "I", "O", "U")) {
#print("VOCAL")
#} else {
#print("NO VOCAL")
#}
#}EJERCICIO #6 #Escribir un programa que imprima todos los números pares entre dos números que se le pidan al usuario.
# Solicitar los dos números al usuario
#numero1 <- as.integer(readline(prompt = "Ingrese el primer número: "))
#numero2 <- as.integer(readline(prompt = "Ingrese el segundo número: "))
# Verificar cuál es el número menor y mayor
#if (numero1 <= numero2) {
#menor <- numero1
#mayor <- numero2
#} else {
#menor <- numero2
#mayor <- numero1
#}
# Bucle para imprimir los números pares
#for (i in menor:mayor) {
#if (i %% 2 == 0) {
#print(i)
#}
#}EJERCICIO #7 #Realizar una algoritmo que muestre la tabla de multiplicar de un número introducido por teclado.
# Solicitar al usuario el número para la tabla de multiplicar
#numero <- as.integer(readline(prompt = "Ingrese un número para la tabla de multiplicar: "))
# Bucle para mostrar la tabla de multiplicar
#for (i in 1:10) {
#resultado <- numero * i
#print(paste(numero, "x", i, "=", resultado))
#}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. #-He informa si hemos introducido algún número igual a los límites del intervalo.
#Paso 1. Asignamos las variables a utilizar en el ejercicio con sus valores correspondientes.
#suma_intervalo <- 0
#numeros_fuera_intervalo <- 0
#numeros_iguales_limites <- FALSE#Paso 2. Pedimos ingresar los numeros de intervalos que se van a tener.
# Solicitar el límite inferior y superior del intervalo
#limite_inferior <- as.integer(readline(prompt = "Ingrese el límite inferior del intervalo: "))
#limite_superior <- as.integer(readline(prompt = "Ingrese el límite superior del intervalo: "))
# Verificar si el límite inferior es mayor que el límite superior
#while (limite_inferior > limite_superior) {
#print("El límite inferior no puede ser mayor que el límite superior. Por favor, intente nuevamente.")
#limite_inferior <- as.integer(readline(prompt = "Ingrese el límite inferior del intervalo: "))
#limite_superior <- as.integer(readline(prompt = "Ingrese el límite superior del intervalo: "))
# }#Paso 3. Con el comando While vamos a realizar las condiciones que se tiene del ejercicio.
# while (TRUE) {
#numero <- as.integer(readline(prompt = "Ingrese un número (ingrese 0 para terminar): "))
#if (numero == 0) {
#break
#}
#if (numero > limite_inferior && numero < limite_superior) {
#suma_intervalo <- suma_intervalo + numero
#} else {
#numeros_fuera_intervalo <- numeros_fuera_intervalo + 1
#}
#if (numero == limite_inferior || numero == limite_superior) {
#numeros_iguales_limites <- TRUE
#}
#}#Paso 4. Mostramos los resultados del ejercicio.
#print(paste("La suma de los números dentro del intervalo es:", suma_intervalo))
#print(paste("La cantidad de números fuera del intervalo es:", numeros_fuera_intervalo))
#if (numeros_iguales_limites) {
#print("Se ha introducido al menos un número igual a los límites del intervalo.")
# }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
#base <- as.numeric(readline(prompt = "Ingrese la base real: "))
#exponente <- as.integer(readline(prompt = "Ingrese el exponente entero positivo: "))
# Verificar si el exponente es positivo
#if (exponente < 0) {
#print("El exponente debe ser un número entero positivo.")
#} else {
# Inicializar la variable para almacenar el resultado de la potencia
#resultado <- 1
# Calcular la potencia utilizando un bucle for
#for (i in 1:exponente) {
#resultado <- resultado * base
#}
# Mostrar el resultado de la potencia
#print(paste("El resultado de", base, "elevado a la", exponente, "es:", resultado))
#}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) {
#resultado <- i * j
#print(paste(i, "x", j, "=", resultado))
#}
#}