UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

CARRERA DE ESTADISTICA

PROGRAMACION

INTEGRANTES

COLABORADOR

ESTRUCTURAS DE CONTROL

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),
#factorial <- 1
#numero <- as.integer(readline("Ingrese un numero: "))

#if(numero<0) {
#  print("No existe el factorial negativo") 
 # }else if(numero==0) {
  #  print("El factorial es 0")
  #}else {
   # for(i in 1:numero) {
    #  factorial=factorial*i
    #}
    #print(paste("El factorial es: ",factorial))
  #}
#numero

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.
#library(svDialogs)

#aleatorio<-sample(1:100,1)
#contador<-1
#while (contador<11) 
#{
#  num<- dlgInput(message="INGRESE UN NUMERO: ")$res
# if (num==aleatorio)
# {
#   resul<-paste("ACERTASTE EN EL INTENTO: ", i)
# winDialog(message=resul)
#    contador<-12
#  } else
#  {
#    if (num>aleatorio)
#    {
#      winDialog(message="EL NUMERO ES MUY ALTO")
#    } else
#    {
#      if (num<aleatorio)
#      {
#        winDialog(message="EL NUMERO ES MUY BAJO")
#      } 
#    }
#  }
#  if (contador == 10)
#  {
#    x<-paste("SE TERMINARON LOS INTENTOS, EL NUMERO 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.
#suma<- 0
#contador<- 0
#numero<- 1
#while(numero!= 0)
#{
#  num<- as.numeric(dlgInput(message= "INGRESE UN NUMERO")$res)
#  suma<- suma + numero
#  contador<-contador+1
#  media<-suma/contador
#}
#x<-paste("LA SUMA ES:",suma);winDialog(message=x);y<-paste("LA MEDIA #ES:",media);winDialog(message=y)
#x

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)
{
  for (i in num1)
  {
    if(i==0)
    {
      print(paste(i,"ES IGUAL A 0"))
    }else
    {if(i> 0)
    {
      print(paste(i," ES MAYOR A 0"))
    }else
    {
      print(paste(i," ES MENOR A 0")) 
    }
    }
  }
}
numeros(num1<-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.
#letra<- ""
#letra
#while(letra!=  " ")
#{
#  letra<- dlgInput(message="INGRESE UN CARACTER:")$res
#  for(i in letra) 
#  {
#    if(i== "a" | i== "e" | i== "i" | i== "o" | i== "u")
#    {
#      print(paste(i,"ES VOCAL"))
#    }else
#    {
#      print(paste(i,"NO ES VOCAL")) 
#    }
#  }
#}

#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%%1 ==1){
      print(x)  
    }else{
      if(y%%1 ==0){
        print(y) 
      }else{
        print("No hay pares")
      }
    }
    
  }
  
n(4,3)
## [1] 3

#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 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.
z<-function(x){
  x*x*x
}

z(3)
## [1] 27

#EJERCICIO 10

Algoritmo que muestre la tabla de 
multiplicar de los números 1,2,3,4 y 5.
contador<-0
  while(contador<13){
    
    print(1*contador)
  
    print(2*contador)
    
    print(3*contador)
    
    print(4*contador)
    
    print(5*contador)
    
    contador<- contador+1
  }
## [1] 0
## [1] 0
## [1] 0
## [1] 0
## [1] 0
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 2
## [1] 4
## [1] 6
## [1] 8
## [1] 10
## [1] 3
## [1] 6
## [1] 9
## [1] 12
## [1] 15
## [1] 4
## [1] 8
## [1] 12
## [1] 16
## [1] 20
## [1] 5
## [1] 10
## [1] 15
## [1] 20
## [1] 25
## [1] 6
## [1] 12
## [1] 18
## [1] 24
## [1] 30
## [1] 7
## [1] 14
## [1] 21
## [1] 28
## [1] 35
## [1] 8
## [1] 16
## [1] 24
## [1] 32
## [1] 40
## [1] 9
## [1] 18
## [1] 27
## [1] 36
## [1] 45
## [1] 10
## [1] 20
## [1] 30
## [1] 40
## [1] 50
## [1] 11
## [1] 22
## [1] 33
## [1] 44
## [1] 55
## [1] 12
## [1] 24
## [1] 36
## [1] 48
## [1] 60