Tarea_03

TALLER ESTRUCTURAS DE CONTROL

if, else if, else

Escribe un código que 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)

x<-90

if (x<18){
  print("Es menor de edad")
}else if (x>=18 & x<65){
  print("Es un adulto")
}else if (x>=65){
  print("Es una persona mayor") 
}else{
  
}

## [1] "Es una persona mayor"

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.

Temp<-26

if (Temp<10){
  print("Temperatura fria")
}else if (Temp>=10 & Temp<=25){
  print("Temperatura templada")
}else if (Temp>25){
  print("temperatura caliente")
}else{
  
}

## [1] "temperatura caliente"

FOR

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

vec<- c("a","b","c")

for(i in vec){
  print(paste("el elemento del vector es",i))
}

## [1] "el elemento del vector es a"
## [1] "el elemento del vector es b"
## [1] "el elemento del vector es c"

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

vec1<-c(1,3,4,5,8,3,3)
suma<-0

for(i in 1:length(vec1)){
  
  
  suma <- suma + vec1[i] 
  print(suma)
}

## [1] 1
## [1] 4
## [1] 8
## [1] 13
## [1] 21
## [1] 24
## [1] 27

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

vec2<-c("ana","paula","marlon","yeison","camila")

for ( i in vec2) {
  print(paste("Hello",i))
}

## [1] "Hello ana"
## [1] "Hello paula"
## [1] "Hello marlon"
## [1] "Hello yeison"
## [1] "Hello camila"

WHILE

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.

i<-1

while(i<=10){
  if (i>=5){
    print(i)
    print("el numero es mayor que 5")
  }else{
    print(i)
  }
  i<-i+1
}

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

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

i<-1
suma<-0

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

## [1] 5050

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.

n<-5

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

## [1] 5
## [1] 4
## [1] 3
## [1] 2
## [1] 1

SWITCH

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.

value<-6

result<-switch(value,
               "1"="Lunes",
               "2"="Martes",
               "3"="Miercoles",
               "4"="Jueves",
               "5"="Viernes",
               "6"="Sabado",
               "7"="Domingo",
               "No existe ese mes")

print(result)

## [1] "Sabado"

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.

#Logic <- TRUE
#print(class(Logic))
#number<- 2.4
#print(class(number))
#nombre<- "carlos"
#print(class(nombre))
#int<-as.integer(2)
#print(class(int))

variable<-"Carlos"

tipo_variable<- class(variable) 

resultado<-switch(tipo_variable,
                  "logical"="La variable es tipo logica",
                  "numeric"="La variable es tipo numerica",
                  "character"="La variables es tipo caracter",
                  "integer"="La variables es tipo entero",
                  "La variables es desconocida")

print(resultado)

## [1] "La variables es tipo caracter"

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.

value<-8

result<-switch(value,
               "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 existe ese mes")

print(result)

## [1] "Agosto"