Desafíos entrega 1

DESAFÍO 1.

1) Funcion que calcula la distancia entre dos puntos.

x1  <- 360
y1  <- 270
x2  <- 90
y2  <- 180
distancia=sqrt((x2-x1)^2+(y2-y1)^2)
print(distancia)

## [1] 284.605

2) Función que calcula la tangente de un numero

cat(paste("tan(",as.character(y2),")=",tan(y2)))

## tan( 180 )= 1.33869021035115

3) Función que retorna soluciones de funcion cuadrática.

a=30
b=90
c=28

cat(paste("x1=", (-b + sqrt(b*b-4*a*c)) / 2*a))

## x1= -317.28513131649

cat(paste("x2=", (-b - sqrt(b*b-4*a*c)) / 2*a))

## x2= -2382.71486868351

4) Funcion que retorna el eje de simetria de una funcion cuadrática a partir de los coeficientes a y b.

cat(paste("x=", -b / (2 * a)))

## x= -1.5

5) Funcion que retorna el vertice de una funcion cuadratica a partir de los coeficientes a, b y c

cat(paste("(x,y) =(",-b / (2 * a),",",(b**2 - 4*a*c)/(4*a),")"))

## (x,y) =( -1.5 , 39.5 )

6) Funcion que retorna a elevado a la b: a**b

cat(paste(as.character(a),"**",as.character(b),"=",a**b))

## 30 ** 90 = 8.72796356808771e+132

7) Funcion que calcula el seno en radianes de un número dado

cat(paste("sinrad(",as.character(a),")=",sin(a)))

## sinrad( 30 )= -0.988031624092862

8) Funcion que retorna el coseno en radianes de un numero dado

cat(paste("cos(",as.character(a),")=",cos(a)))

## cos( 30 )= 0.154251449887584

9) Division de dos numeros

a/b

## [1] 0.3333333

10) Funcion que calcula el seno en grados de un número dado

cat(paste("singrad(",as.character(a),")=",sin(a*pi/180)))

## singrad( 30 )= 0.5

Desafío 2

Tenemos un vector con las tallas de globos

talla_globos = c("R-6", "R-9", "R-10", "R-12", "R-18", "R-24", "R-36", "R40")

Se le asocian sus talles en pulgadas

pulgada_talla = c("6","9", "10", "12", "18", "24", "36", "40")

Convertimos en factorial

factor_globos<-factor(talla_globos, ordered = TRUE)
factor_globos

## [1] R-6  R-9  R-10 R-12 R-18 R-24 R-36 R40 
## Levels: R-10 < R-12 < R-18 < R-24 < R-36 < R-6 < R-9 < R40

Desafío 3

piedrapapelotijeras123 = function(usuario,cpu) {
  if (usuario == "piedra" && cpu == "papel") {
    print("Gana CPU")
  } else {
    if(usuario == "piedra" && cpu == "tijera"){
      print("Gana usuario")
    }else{
      if(usuario == "papel" && cpu == "tijera"){
        print("Gana cpu")
      }else{
        if(usuario == "papel" && cpu == "piedra"){
          print("Gana usuario")
        }else{
          if(usuario == "tijera" && cpu =="piedra"){
            print("Gana cpu")
          }else{
            if(usuario == "tijera" && cpu == "papel"){
              print("Gana usuario")
            }else{
              print("Empate")
            }
          }
        }
      }
    }
  }
}

piedrapapelotijeras = c("piedra", "papel", "tijera")
cpu = sample(1:length(piedrapapelotijeras),1)
cpu = piedrapapelotijeras[cpu]
usuario = "tijera"
cpu

## [1] "piedra"

piedrapapelotijeras123(usuario,cpu)

## [1] "Gana cpu"