UNIVERSIDAD CENTRAL DEL ECUADOR

FACULTAD DE CIENCIAS ECONOMICAS

Autores

-Rene Almeida
-Johann Tul
-Bryan Venegas

Ejercicio 1

Escribe un programa que diga si un número introducido por teclado es o no primo. Un número primo es aquel que sólo es divisible entre él mismo y la unidad. Nota: Es suficiente probar hasta la raíz cuadrada del número para ver si es divisible por algún otro número.

primo <- function()
  
{
  num4<-as.integer(readline("INGRESE UN NUMERO "))
  if(sum(num4/1:num4==num4%/%1:num4)==2){
    (m <- paste0("EL NUMERO ", num4 , " ES PRIMO "))
  }else{(m <- paste0("EL NUMERO ", num4, " NO ES PRIMO"))}
}
primo()

Ejercicio 2

Realizar un algoritmo para determinar cuánto ahorrará una persona en un año, si al final de cada mes deposita cantidades variables de dinero; además, se quiere saber cuánto lleva ahorrado cada mes.

total<- 0
ahorro<- 0
mes<- c("ENERO","FEBRERO","MARZO","ABRIL","MAYO","JUNIO","JULIO",
        "AGOSTO","SEPTIEMBRE","OCTUBRE", "NOVIEMBRE", "DICIEMBRE")
for(i in mes)
{
  ahorro<- as.numeric(readline("INGRESE LA CANTIDAD A AHORRAR:"))
  total<- total+ahorro
  print(paste("EN", i, "LLEVAS: $",total, "DE AHORRO"))
}
print(paste("EN EL AÑO AHORRASTE: $",total))

Ejercicio 3

Una empresa tiene el registro de las horas que trabaja diariamente un empleado durante la semana (seis días) y requiere determinar el total de éstas, así como el sueldo que recibirá por las horas trabajadas.

horas<- 0
total_horas<- 0
dias<- c("LUNES", "MARTES", "MIERCOLES", "JUEVES", "VIERNES", "SABADO")
for(i in dias)
{
  horas<- as.numeric(readline("¿CUANTAS HORAS TRABAJO?"))
  total_horas<- total_horas+ horas
  sueldo<- total_horas*2.50
  print(paste("EL", i, "TRABAJO", horas, "HORAS"))
}
print(paste("EL SUELDO QUE RECIBIRA ES DE: $", sueldo))

Ejercicio 4

Una persona se encuentra en el kilómetro 70 de una carretera, otra se encuentra en el km 150, los coches tienen sentido opuesto y tienen la misma velocidad. Realizar un programa para determinar en qué kilómetro de esa carretera se encontrarán.

persona1<- 70
persona2<- 150
kilometro<-0
while(persona1 == persona2)
{
  persona1<- persona1+1
  persona2<- persona2-1
  kilometro<- persona2-persona1
  print(paste("SE ENCONTRARON EN EL KILOMETRO", kilometro))
}

Ejercicio 5

Una persona adquirió un producto para pagar en 20 meses. primer mes pagó 10 ???, el segundo 20 ???, el tercero 40 ??? y así sucesivamente. Realizar un algoritmo para determinar cuánto debe pagar mensualmente y el total de lo que pagó después de los 20 meses.

pago<-  10
total<- 0
for(i in 1:20)
{
  pago<- pago*2
  total<- total + pago
  print(paste("EN EL MES", i, "PAGARAS: $", pago))
}
print(paste("EL TOTAL QUE PAGASTE EN 20 MESES ES DE: $", total))

Ejercicio 6

Una empresa les paga a sus empleados con base en las horas trabajadas en la semana. Realice un algoritmo para determinar el sueldo semanal de N trabajadores y, además, calcule cuánto pagó la empresa por los N empleados.

empleados<- as.numeric(readline("CUANTOS TRABAJADORES TIENE?"))
gasto_empresa<- 0
for(i in 1:empleados)
{
  horas<-as.numeric(readline("CUANTAS HORAS TRABAJO A LA SEMANA?"))
  gasto_empresa<- gasto_empresa + horas*2.50
  sueldo<- horas*2.50
  print(paste("EL EMPLEADO", i, "GANA SEMANAL: $", sueldo))
}
print(paste("LA EMPRESA PAGO POR LOS", empleados, "EMPLEADOS", gasto_empresa))

Ejercicio 7

Una empresa les paga a sus empleados con base en las horas trabajadas en la semana. Para esto, se registran los días que trabajó y las horas de cada día. Realice un algoritmo para determinar el sueldo semanal de N trabajadores y además calcule cuánto pagó la empresa por los N empleados.

trab<- as.numeric(readline("CUANTOS EMPLEADOS TIENE?"))
pago<- 0
for(i in 1:trab)
{
  dias<- as.numeric(readline("CUANTOS DIAS TRABAJO EN LA SEMANA?"))
  horas<- as.numeric(readline("CUANTOS HORAS TRABAJO EN ESOS DIAS?"))
  sueldo<- (dias*horas)*2.50
  pago<- pago+ (dias*horas)+ sueldo
  print(paste("EL EMPLEADO", i, "GANA SEMANAL: $", sueldo))
}
print(paste("LA EMPRESA PAGA SEMANALMENTE POR LOS", trab, "EMPLEADOS: $", pago))

Ejercicio 8

Hacer un programa que muestre un cronometro, indicando las horas, minutos y segundos.

cronometro<- function(seg)
{
  print(seg)
  while(seg!=0)
  {
    Sys.sleep(1)
    seg<- seg-1
    print(seg)
  }
}
cronometro(seg<-as.numeric(readline("INGRESE UN NUMERO:")))

Ejercicio 9

Realizar un ejemplo de menú, donde podemos escoger las distintas opciones hasta que seleccionamos la opción de “Salir”.

opc1<-readline("***********************************************
                                    MENU DE OPCIONES?
***********************************************
*                                             
*                       1. OPCION 1           
*                       2. OPCION 2           
*                       3. OPCION 3           
*                       4. SALIR              
*                                             
***********************************************

*SELECCIONE UNA OPCION:*")

Ejercicio 10

Mostrar en pantalla los N primero número primos. Se pide por teclado la cantidad de números primos que queremos mostrar.

PRIMO<- function(num)
{
  primo<-numeric()
  no_primo<-numeric()
  for (i in 1:num)
  {
    if (sum(i/1:i==i%/%1:i)==2)
    {
      no_primo<-c(no_primo,i)
    } else
    {
      primo<-c(primo,i)
    }
  }
  primo
  no_primo
}
PRIMO(num<-as.numeric(readline("HASTA QUE NUMERO PRIMO QUIERE?")))