Integrantes:

> Pedro Hinojosa

>Alisson Mendez

>Jhostin Nenger

>Natasha Piedra

>Nicole Yar.

EJERCICIO 1

1. Crea una aplicación que pida un número y calcule su factorial (El factorial de 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)

#pedir que se ingrese el número por la consola con readline
#x <- as.numeric(readline("Ingrese el número para poder calcular su factorial: "))

#inicializar las variables que se van a usar
i <- 1 
count <- 1 

#usar el condicionador while con i que va a ir de uno en uno y count que va a almacenar el valor
#while (i <= x) {
#  count <- count*i
#  i <- i+1
#}
#print(count)

EJERCICIO 2

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 el número aleatorio y redondearlo para que no tenga decimales
y <- runif(1, 1, 100)
y <- round(y,0)

#Crear la var intentos para después saber cuantos intentos me quedan
intentos <- 10

#usar for para que el código se repita 10 veces, poniendole condiciones y cotabilizando los intentos que quedan
# e imprimiendo el número que el sistema genero
#for (i in 1:intentos) {
#  z <- as.numeric(readline("Introduzca un número del 1 al 100: "))
#  if (z==y) {
#    cat("¡¡FELICIDADES!! adivinaste, el número", z, "es igual al que el sistema generó. :) ")
#    break
#  } else {
#    if(z<y){
#      print("El número que ingresaste es menor al que el sistema ha generado")
#    } else {
#      if(z>y){
#        print("El número que ingresaste es mayor al que el sistema ha generado")
#      }
#    }
#  }
#  inres <- intentos-i
#  cat("Te quedan ", inres, "intentos.")
#  if (inres==0){
#    cat("El número era: ", y)
#  }
#}

EJERCICIO 3

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.

y<- 0
z<- 1

#while (z>0){
#  y[z]<- as.numeric(readline("ingrese un numero: "))
#  if ( y[z] == 0){
#    
#    print(y)
#    print(cat("La suma de los números es ", sum(y)))
#    print(cat("La media de los números es", sum(y)/(z-1)))
#    
#    break
#  }
#  z<-z+1
#}

EJERCICIO 4

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.

mayor_cero<-0
menores_cero<-0
igual_cero<-0
p<-0

#s<- as.numeric(readline("ingrese la cantidad de números: "))

#for (i in 1:s) {
#  p[i]<- as.numeric(readline("Ingrese el número: "))
#  if (p[i]>0){
#    mayor_cero<- mayor_cero+1
#  }
#  if (p[i]<0){
#    menores_cero<- menores_cero+1
#  }
#  if (p[i]==0){
#    igual_cero<- igual_cero+1
#  }
#}
#cat("Hay ", mayor_cero, " números mayores a cero")
#cat("Hay ", menores_cero, "números menores a cero")
#cat("Hay ", igual_cero, "números iguales a cero")

EJERCICIO 5

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.

#(vocal<-as.character(readline("Digite un caracter : ")))


#if(vocal=="a"|vocal=="e"|vocal=="i"|vocal=="o"|vocal=="u"|
#   vocal=="A"|vocal=="E"|vocal=="I"|vocal=="O"|vocal=="U"){ 
#  j<-print("VOCAL")
#}else{
#  j<-print("NO VOCAL")
#  
#}

EJERCICIO 6

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

#  n1<- as.numeric(readline("Ingrese el número: "))
#  n2<- as.numeric(readline("Ingrese el número: "))
  
#for (i in n1:n2) {
#  if (i%%2==0) {
#    print(i)
#  }
#}

EJERCICIO 7

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

#mult<-function(x){
#  count<-1
#  while(count<13){
#    print(x*count)
#    count<- count+1
#  }
#}

#mult(as.numeric(readline("Ingrese un número: ")))

EJERCICIO 8

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

suma=0
cont=0
#for (k in 1:100000) {
#  l_inf<- as.numeric(readline("INGRESE EL LIMITE INFERIOR:"))
#  l_sup<- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:"))
#  while (l_inf>l_sup | l_inf==l_sup) {
#    print("INGRESE UN LIMITE SUPERIOR MAYOR AL INFERIOR")
#    l_inf <- as.numeric(readline("INGRESE EL LIMITE INFERIOR:"))
#    l_sup <- as.numeric(readline("INGRESE EL LIMITE SUPERIOR:")) }
#  num <- as.numeric(readline("INTRODUZCA UN NUMERO:"))
#  if (num>l_inf & num<l_sup){
#    suma <- suma+num}
#  if (num<l_inf | num>l_sup){
#    cont=cont+1}
#  if (num==l_inf | num==l_sup){
#    cat(num,"es igual a uno de los limites \n")}
#  while (num!=0) {
#    num <- as.numeric(readline("INTRODUZCA UN NUMERO:"))
#    if (num>l_inf & num<l_sup){
#      suma <- suma+num }
#    if (num<l_inf | num>l_sup){
#      cont=cont+1 }
#    if (num==l_inf | num==l_sup){
#      cat(num,"es igual a uno de los limites \n")}}
#  cat("LA SUMA DE LOS NUMEROS ES:",suma,"\n")
#  cat("Los NUMEROS FUERA DE LOS LIMITES SON: ",cont,"\n")
#  op <- tolower(readline("CONTINUAR? s/n"))
#  if (op=="s" | op=="si"){
#    k <- 1
#    suma=0
#    cont=0
#  }else{
#    print("FIN")
#    break
#  }}

EJERCICIO 9

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)

EJERCICIO 10

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

tabla<- 1:5
for(k in 1:12)
{
  mult<- tabla * k
  print(paste(tabla, "x", k, "=", mult)) # usamos la función paste para unir todos los vectores en una sola cadena
} 
## [1] "1 x 1 = 1" "2 x 1 = 2" "3 x 1 = 3" "4 x 1 = 4" "5 x 1 = 5"
## [1] "1 x 2 = 2"  "2 x 2 = 4"  "3 x 2 = 6"  "4 x 2 = 8"  "5 x 2 = 10"
## [1] "1 x 3 = 3"  "2 x 3 = 6"  "3 x 3 = 9"  "4 x 3 = 12" "5 x 3 = 15"
## [1] "1 x 4 = 4"  "2 x 4 = 8"  "3 x 4 = 12" "4 x 4 = 16" "5 x 4 = 20"
## [1] "1 x 5 = 5"  "2 x 5 = 10" "3 x 5 = 15" "4 x 5 = 20" "5 x 5 = 25"
## [1] "1 x 6 = 6"  "2 x 6 = 12" "3 x 6 = 18" "4 x 6 = 24" "5 x 6 = 30"
## [1] "1 x 7 = 7"  "2 x 7 = 14" "3 x 7 = 21" "4 x 7 = 28" "5 x 7 = 35"
## [1] "1 x 8 = 8"  "2 x 8 = 16" "3 x 8 = 24" "4 x 8 = 32" "5 x 8 = 40"
## [1] "1 x 9 = 9"  "2 x 9 = 18" "3 x 9 = 27" "4 x 9 = 36" "5 x 9 = 45"
## [1] "1 x 10 = 10" "2 x 10 = 20" "3 x 10 = 30" "4 x 10 = 40" "5 x 10 = 50"
## [1] "1 x 11 = 11" "2 x 11 = 22" "3 x 11 = 33" "4 x 11 = 44" "5 x 11 = 55"
## [1] "1 x 12 = 12" "2 x 12 = 24" "3 x 12 = 36" "4 x 12 = 48" "5 x 12 = 60"