Desarrollo Actividad-Clase 2

IF, ELSE, ELSE IF

1. Escribe un código que verifique si una persona es menor de edad,mayorde edad o un adulto mayor basándose en su edad yluego imprima un mensaje correspondiente.(Menordeedad:<18,Adultomayor:≥65)

x<-65
if(x < 18){
  print("Eres menor de edad")
} else if(x >= 18 & x < 65){
  print("Eres mayor de edad")
} else{
  print("Eres adulto mayor")
}

## [1] "Eres adulto mayor"

2. Escribe un código que verifique la temperatura y determine si está”fría”(<10°C),“templada”(10°C-25°C),o”caliente”(>25°C)y luego imprima un mensaje correspondiente.

temperatura <- 12

if (temperatura < 10) {
  print("La temperatura es fría")
} else if (temperatura >= 10 & temperatura < 25) {
  print("La temperatura es templada")
} else {
  print("La temperatura es caliente")
}

## [1] "La temperatura es templada"

FOR

1. Escribe un código que imprima cada letra de un vector de caracteres.

palabra <- c("v", "i", "v", "i", "a", "n", "a")

for(x in palabra) {
  print(x)
}

## [1] "v"
## [1] "i"
## [1] "v"
## [1] "i"
## [1] "a"
## [1] "n"
## [1] "a"

2.Escribe un código que recorra un vector de números y calcule la suma de todos los números en el vector.

numeros <- c(3,6,9)
suma <- sum(numeros)
 
print(suma)

## [1] 18

3.Escribe un código que recorra un vectorde nombres y salude a cada persona imprimiendo”Hello,[nombre]!”

nombres <- c("julian","david","jairo")
for (x in nombres) {
  print(paste("Hello,",x,"!"))
}

## [1] "Hello, julian !"
## [1] "Hello, david !"
## [1] "Hello, jairo !"

WHILE

1.Escribe un código que use un bucle while para contar del 1 al 10 e imprima cada número. Si elnúmero es mayor que 5,imprime un mensaje adicional indicando que el número es mayor que 5.

x<-1
while(x<=10){
  print(x)
  x<-x+1
  if(x>5){
    print("El numero es mayor a 5")
  }
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] "El numero es mayor a 5"
## [1] 6
## [1] "El numero es mayor a 5"
## [1] 7
## [1] "El numero es mayor a 5"
## [1] 8
## [1] "El numero es mayor a 5"
## [1] 9
## [1] "El numero es mayor a 5"
## [1] 10
## [1] "El numero es mayor a 5"

2.Escribe un código que use un bucle while para sumar los números del 1 al 100 y luego imprima el resultado.

x<-1
suma<-0
while(x<=100){
  suma<-suma+x
  x<-x+1
}
print(suma)

## [1] 5050

3.Escribe un código que use un bucle while para restar 1 de un número n dado hasta que n sea 0,imprimiendo el valor de n en cada iteración.

x<-10
while(x!=0){
  print(x)
  x<-x-1
}

## [1] 10
## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

SWITCH

1.Escribe un código que use la estructura switch para imprimir el nombre de un día de la semana basado en un número del 1al 7.

dia <-4
nombre_dia <- switch(dia, "1"="Lunes","2"="Martes","3"="Miercoles","4"="jueves","5"="Viernes","6"="Sabado","7"="Domingo")
print(nombre_dia)

## [1] "jueves"

2.Escribe un código que use la estructura switch para determinar el tipo de una variable dada(character,numeric,logical,etc.)y luego imprima un mensaje correspondiente.

variable <- TRUE
tipo <- typeof(variable)

mensaje <-switch (tipo, "numeric" = "Es de tipo númerico", "character"="Es de tipo carácter","logical"="Es de tipo lógico","integer"="Es de tipo entero")
print(mensaje)

## [1] "Es de tipo lógico"

3. Escribe un código que use la estructura switch para imprimir elnombre de un mes basado en un número del 1 al 12

x<-9
mes<-switch(x,"1"="Enero","2"="Febrero","3"="Marzo","4"="Abril","5"="Mayo","6"="Junio","7"="Julio","8"="Agosto","9"="Septiembre","10"="Octubre","11"="Noviembre","12"="Diciembre")
print(mes)

## [1] "Septiembre"