**1. Ejemplo de un tirador.

Problema.Un tirador ha hecho varios lanzamientos intentando que su flecha se ubique justo dentro del circulo de radio 2.5 contenido en una region cuadrada de lado 20. Muestra un dibujo que represente la situación anterior, ademas ¿cual es la propabilidad de que el tirador acierte?

# Parámetros
s <- 10
r <- 2.5

# Visualización
plot(c(0, s), c(0, s), type = "n", xlab = "x", ylab = "y",
     main = "Probabilidad Geométrica: Punto en un Área")
rect(0, 0, s, s) # Cuadrado
symbols(s / 2, s / 2, circles = r, inches = FALSE, add = TRUE, fg = "red") # Círculo
text(s / 2, s * 0.9, paste("Área Cuadrado =", s^2), cex = 0.8)
text(s / 2, s * 0.1, paste("Área Círculo =", round(pi * r^2, 2)), col = "red", cex = 0.8)

#Probabilidad
#cat("P(A)=", round(pi * r^2,s^2, 3)