Taller estructuras de control

estructuras de control

if, else if, else

#1. tmpES

edad<-66

if(edad>0 && edad<18){
  print('Esta persona es menor de edad')
} else if (edad>=18 && edad<=65){
  print('Esta persona es mayor de edad')
} else {
  print('Esta persona es adulto mayor')
}

## [1] "Esta persona es adulto mayor"

#2. TEMPERATURA

tmp<-25

if(tmp>0 && tmp<10){
  print('La temperatura esta Fria, menor a 10 grados')
} else if (tmp>=10 && tmp<=25){
  print('La temperatura esta templada, esta entre 10 y 25 grados')
} else {
  print('La temperatura esta Caliente, superior a 25 grados')
}

## [1] "La temperatura esta templada, esta entre 10 y 25 grados"

FOR

#1.

array <- c("A", "B", "C")
for (v in array){
  print(v)
}

## [1] "A"
## [1] "B"
## [1] "C"

#2

array <- c(1,2,3,4,5,6,7,8,9,0)
s<-0
for (v in 1:length(array)){
  s<-s+array[v]
  print(paste("La suma de los numeros en el array es: ", s))
}

## [1] "La suma de los numeros en el array es:  1"
## [1] "La suma de los numeros en el array es:  3"
## [1] "La suma de los numeros en el array es:  6"
## [1] "La suma de los numeros en el array es:  10"
## [1] "La suma de los numeros en el array es:  15"
## [1] "La suma de los numeros en el array es:  21"
## [1] "La suma de los numeros en el array es:  28"
## [1] "La suma de los numeros en el array es:  36"
## [1] "La suma de los numeros en el array es:  45"
## [1] "La suma de los numeros en el array es:  45"

#3

array <- c("Jorge", "Luz", "Antonio")

for (v in 1:length(array)){
  print(paste('Hello, ',array[v]))
}

## [1] "Hello,  Jorge"
## [1] "Hello,  Luz"
## [1] "Hello,  Antonio"

WHILE

#1.

num<-0
while (num<=10) {
  if (num>5){
    print(paste("el sgte numero: ", num, "es mayor que 5"))
  }else {
    print(num)
  }
  num<-num+1
}

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

#2.

num<-1
s<-0
while (num<=100) {
  s<-num+s
  num<-num+1
}
print(s)

## [1] 5050

#3.

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

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

SWITCH

#1.

#SUPONIENDO QUE LA SEMANA INICIE CON LUNES SIENDO EL #1
dia<-"4"
switch(dia,
       "0" = {
         print("ESCOGE UN DIA DE LA SEMANA")
       },
       "1" = {
         print('ESCOGISTE EL DIA LUNES')
       },
       "2" = {
         print('ESCOGISTE EL DIA MARTES')
       },
       "3" = {
         print('ESCOGISTE EL DIA MIERCOLES')
       },
       "4" = {
         print('ESCOGISTE EL DIA JUEVES')
       },
       "5" = {
         print('ESCOGISTE EL DIA VIERNES')
       },
       "6" = {
         print('ESCOGISTE EL DIA SABADO')
       },
       "7" = {
         print('ESCOGISTE EL DIA DOMINGO')
       }
)

## [1] "ESCOGISTE EL DIA JUEVES"

#2

#3.

mes<-"3"
switch(mes,
       "0" = {
         print("ESCOGE UN MES DEL AÑO")
       },
       "1" = {
         print('ESCOGISTE EL MES, ENERO')
       },
       "2" = {
         print('ESCOGISTE EL MES, FEBRERO')
       },
       "3" = {
         print('ESCOGISTE EL MES, MARZO')
       },
       "4" = {
         print('ESCOGISTE EL MES, ABRIL')
       },
       "5" = {
         print('ESCOGISTE EL MES, MAYO')
       },
       "6" = {
         print('ESCOGISTE EL MES, JUNIO')
       },
       "7" = {
         print('ESCOGISTE EL MES, JULIO')
       },
       "8" = {
         print('ESCOGISTE EL MES, AGOSTO')
       },
       "9" = {
         print('ESCOGISTE EL MES, SEPTIEMBRE')
       },
       "10" = {
         print('ESCOGISTE EL MES, OCTUBRE')
       },
       "11" = {
         print('ESCOGISTE EL MES, NOVIEMBRE')
       },
       "12" = {
         print('ESCOGISTE EL MES, DICIEMBRE')
       }
)

## [1] "ESCOGISTE EL MES, MARZO"