UCE (EJEMPLO)

TEOREMA DE PITAGORAS

EJERCICIO 1: Escribe un programa que solicite los catetos de un triángulo rectángulo y muestre su hipotenusa.

Este ejercico nos plantea realizar el Teorema de Pitágoras, el cual establece que en un triángulo rectángulo:

\[ c^2 = a^2 + b^2 \]

donde: - c es la hipotenusa (el lado opuesto al ángulo recto), - a y b son los catetos.

Desarrollo del código

1. Ingreso de datos por el usuario

Solicitamos al usuario que ingrese los dos catetos:

# INGRESA VALOR DEL CATETO
cateto1 <- as.numeric(readline("Ingrese el primer cateto: "))
## Ingrese el primer cateto:
cateto2 <- as.numeric(readline("Ingrese el segundo cateto: "))
## Ingrese el segundo cateto:

  • readline() permite capturar lo que el usuario escribe.

  • as.numeric() convierte la entrada a número (porque readline() devuelve texto).

2. Cálculo de la hipotenusa Aplicamos directamente el Teorema de Pitágoras:

# CALCULA LA HIPOTENUSA USANDO EL TEOREMA DE PITAGORAS
hipotenusa <- sqrt(cateto1^2 + cateto2^2)

  • Elevamos al cuadrado ambos catetos y sumamos.

  • sqrt() calcula la raíz cuadrada del resultado.

3. Mostrar el resultado

Finalmente, mostramos el valor de la hipotenusa:

# MUESTRA DEL RESULTADO
cat("La hipotenusa es:", hipotenusa)
## La hipotenusa es: NA
  • cat() imprime texto junto con valores.

Conclusión Este ejercicio nos permite aplicar de forma práctica el Teorema de Pitágoras en el lenguaje R, integrando interacción con el usuario y operaciones matemáticas básicas. Usamos funciones como readline(), as.numeric(), y sqrt() que son fundamentales para el manejo de datos y cálculos en programas simples.