Clase 2 2V

#Ejercicio if, else if, else ##Edad

Edad<-function(x){
  
  if(x<18){
    print("Es menor de edad")
  }else if(x>=18 && x<=65){
    print("Mayor de edad")
  }else{
    print("Adulto mayor")
  }
}
Edad(17)

## [1] "Es menor de edad"

##Temperatura

Temperatura<-function(x){
  
  if(x<10){
    print("Temperatura Fria")
  }else if (x>=10 && x<=25){
      print("Temperatura Templada")
  }else{
    print("caliente")
  }
}
Temperatura(6)

## [1] "Temperatura Fria"

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

vector<-c("a","n","g","e","l")

for (variable in vector){
print(variable)
}

## [1] "a"
## [1] "n"
## [1] "g"
## [1] "e"
## [1] "l"

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

vector<-c(30,26,52)
for (variable in vector) {
  print(variable)
}

## [1] 30
## [1] 26
## [1] 52

suma_total <-sum(vector)
print(suma_total)

## [1] 108

código que recorra un vector de nombres y salude a cada persona imprimiendo “Hello, [nombre]!”

vector<-c("Nazly","Sara","Fernando")

for(variable in vector){
  print(paste("Hello,",variable))
}

## [1] "Hello, Nazly"
## [1] "Hello, Sara"
## [1] "Hello, Fernando"

##While ##contar del 1 al 10 e imprimir, si es >5 imprime un mensaje indicando que el número es >5

contador<-1

while (contador<=10){
  print(contador)
  if (contador>5){
    print(paste("El número es mayor que 5"))
}
contador<-contador+1
}

## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] "El número es mayor que 5"
## [1] 7
## [1] "El número es mayor que 5"
## [1] 8
## [1] "El número es mayor que 5"
## [1] 9
## [1] "El número es mayor que 5"
## [1] 10
## [1] "El número es mayor que 5"

##sumar los números del 1 al 100 y luego imprima el resultado

suma <-0
i<-1

while (i<=100) {
  suma<-suma+i
  i<-i+1

}
print(suma)

## [1] 5050

#restar 1 de un número n dado hasta que n sea 0

n<-16
while(n>0){
 print(n)
   
  n<-n-1
  
}

## [1] 16
## [1] 15
## [1] 14
## [1] 13
## [1] 12
## [1] 11
## [1] 10
## [1] 9
## [1] 8
## [1] 7
## [1] 6
## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

print(paste(n))

## [1] "0"

#switch ##Nombre de un día de la semana basado en un número del 1 al 7

dia<-5

nombre_del_dia <-switch (dia,"1"="Lunes","2"="Martes","3"="Miercoles","4"="Jueves","5"="Viernes","6"="Sabado","7"="Domingo","Número invalido")
  print(nombre_del_dia)

## [1] "Viernes"

##nombre de un mes basado en un número del 1 al 12

mes<-9

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

## [1] "Septiembre"