Ejercicio if, else if, else

##1 verifique si una persona es menor de edad, mayor de edad o un adulto mayor basándose en su edad y luego imprima un mensaje correspondiente. (Menor de edad: < 18, Adulto mayor: ≥ 65)

Edad<-function(x){

  if(x<18){
    return("Menor de edad")
  }else if(x>=18 && x<65){
    return("Adulto")
  } else{
    return("Adulto mayor")
  }

}
Edad(7)

## [1] "Menor de edad"

Edad(33)

## [1] "Adulto"

Edad(75)

## [1] "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<-function(x){
      if(x<10){
        return(paste("La temperatura es de:",x,"°C, está FRÍA"))
      } else if(x>=10 && x<25){
        return(paste("La temperatura es de:",x,"°C, está TEMPLADA"))
      } else{
        return(paste("La temperatura es de:",x,"°C, está CALIENTE"))
      }
    
 }

Temperatura(5)

## [1] "La temperatura es de: 5 °C, está FRÍA"

Temperatura(15)

## [1] "La temperatura es de: 15 °C, está TEMPLADA"

Temperatura(30)

## [1] "La temperatura es de: 30 °C, está CALIENTE"

Ejercicio FOR

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

letras<-c("a","b","c","d","e","f","g","h")

for (i in 1:length(letras)){
  print(paste("El elemento en la posición",i,"es",letras[i]))
}

## [1] "El elemento en la posición 1 es a"
## [1] "El elemento en la posición 2 es b"
## [1] "El elemento en la posición 3 es c"
## [1] "El elemento en la posición 4 es d"
## [1] "El elemento en la posición 5 es e"
## [1] "El elemento en la posición 6 es f"
## [1] "El elemento en la posición 7 es g"
## [1] "El elemento en la posición 8 es h"

length(letras)

## [1] 8

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

numero<-c(2,1,3,4,5,5)

for (i in 1:length(numero)) {
      print(paste("Numero de la posición:",i,"es:",numero[i]))
}

## [1] "Numero de la posición: 1 es: 2"
## [1] "Numero de la posición: 2 es: 1"
## [1] "Numero de la posición: 3 es: 3"
## [1] "Numero de la posición: 4 es: 4"
## [1] "Numero de la posición: 5 es: 5"
## [1] "Numero de la posición: 6 es: 5"

print(paste("El valor total es:",sum(numero)))

## [1] "El valor total es: 20"

##3 Escribe un código que recorra un vector de nombres y salude a cada persona imprimiendo "Hello, [nombre]!"

nombres<-c("Pipe","Andrés","Camilo","Juan","Niyereth","Gabriel")

for (i in 1:length(nombres)) {
  print(paste("Hola",nombres[i],"!"))
  
}

## [1] "Hola Pipe !"
## [1] "Hola Andrés !"
## [1] "Hola Camilo !"
## [1] "Hola Juan !"
## [1] "Hola Niyereth !"
## [1] "Hola Gabriel !"

Ejercicio While

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

numwhile<-1

while(numwhile<=10){
  if (numwhile>5){
    print(paste("El número es",numwhile,",es decir, es mayor de 5"))
  }
  
  numwhile<-numwhile+1
}

## [1] "El número es 6 ,es decir, es mayor de 5"
## [1] "El número es 7 ,es decir, es mayor de 5"
## [1] "El número es 8 ,es decir, es mayor de 5"
## [1] "El número es 9 ,es decir, es mayor de 5"
## [1] "El número es 10 ,es decir, es mayor de 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.

sumaz<-0
z<-1

while (z<=100) {
  sumaz<-sumaz+z
  z<-z+1
}

print(paste("La suma total es:",sumaz))

## [1] "La suma total es: 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

restay<-100

while (restay>=0) {
  print(restay)
  restay<-restay-1
}

## [1] 100
## [1] 99
## [1] 98
## [1] 97
## [1] 96
## [1] 95
## [1] 94
## [1] 93
## [1] 92
## [1] 91
## [1] 90
## [1] 89
## [1] 88
## [1] 87
## [1] 86
## [1] 85
## [1] 84
## [1] 83
## [1] 82
## [1] 81
## [1] 80
## [1] 79
## [1] 78
## [1] 77
## [1] 76
## [1] 75
## [1] 74
## [1] 73
## [1] 72
## [1] 71
## [1] 70
## [1] 69
## [1] 68
## [1] 67
## [1] 66
## [1] 65
## [1] 64
## [1] 63
## [1] 62
## [1] 61
## [1] 60
## [1] 59
## [1] 58
## [1] 57
## [1] 56
## [1] 55
## [1] 54
## [1] 53
## [1] 52
## [1] 51
## [1] 50
## [1] 49
## [1] 48
## [1] 47
## [1] 46
## [1] 45
## [1] 44
## [1] 43
## [1] 42
## [1] 41
## [1] 40
## [1] 39
## [1] 38
## [1] 37
## [1] 36
## [1] 35
## [1] 34
## [1] 33
## [1] 32
## [1] 31
## [1] 30
## [1] 29
## [1] 28
## [1] 27
## [1] 26
## [1] 25
## [1] 24
## [1] 23
## [1] 22
## [1] 21
## [1] 20
## [1] 19
## [1] 18
## [1] 17
## [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
## [1] 0

Ejercicio 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 1 al 7.


Dia<-function(y){
  
  switch (y,
    "1" = "Lunes",
    "2" = "Martes",
    "3" = "Miércoles",
    "4" = "Jueves",
    "5" = "Viernes",
    "6" = "Sábado",
    "7" = "Domingo"
  )
}
  
Dia(1)

## [1] "Lunes"

Dia(2)

## [1] "Martes"

Dia(3)

## [1] "Miércoles"

Dia(4)

## [1] "Jueves"

Dia(5)

## [1] "Viernes"

Dia(6)

## [1] "Sábado"

Dia(7)

## [1] "Domingo"

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

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

## [1] "Enero"

Mes(2)

## [1] "Febrero"

Mes(3)

## [1] "Marzo"

Mes(4)

## [1] "Abril"

Mes(5)

## [1] "Mayo"

Mes(6)

## [1] "Junio"

Mes(7)

## [1] "Julio"

Mes(8)

## [1] "Agosto"

Mes(9)

## [1] "Septiembre"

Mes(10)

## [1] "Octubre"

Mes(11)

## [1] "Noviembre"

Mes(12)

## [1] "Diciembre"

Taller clase 2

Andrés Felipe Burbano Estrella

2024-07-19

Ejercicio if, else if, else

Ejercicio FOR

Ejercicio While

Ejercicio Switch