Saltar al contenido
EjemplosEnglishEspacio →

Geometría

Calcula el área de un círculo y resuelve un triángulo rectángulo.

Nivel
Intermedio
Tema:
Matemáticas
Conceptos:
Entrada y salida
Matemáticas
Abrir en Codoritmo

Ejecuta, modifica y depura este ejemplo en el navegador.

Lo que aprenderás

Usas la constante PI, RC para la raíz cuadrada y ATan, Sen y Cos para trigonometría. Las funciones trigonométricas trabajan en radianes, por eso hay que convertir a grados.

Código

geometry.psc · 15 líneas
Algoritmo Geometria    Definir radio, cateto1, cateto2, hipotenusa, angulo Como Real    Escribir "Radio del círculo:"    Leer radio    Escribir "Área: ", Redon(PI * radio ^ 2 * 100) / 100    Escribir "Perímetro: ", Redon(2 * PI * radio * 100) / 100    Escribir "Catetos de un triángulo rectángulo:"    Leer cateto1, cateto2    hipotenusa <- RC(cateto1 ^ 2 + cateto2 ^ 2)    // ATan devuelve radianes; los pasamos a grados    angulo <- ATan(cateto1 / cateto2) * 180 / PI    Escribir "Hipotenusa: ", hipotenusa    Escribir "Ángulo opuesto al primer cateto: ", Redon(angulo), " grados"    Escribir "Comprobación sen² + cos² = ", Sen(angulo * PI / 180) ^ 2 + Cos(angulo * PI / 180) ^ 2FinAlgoritmo

Diagrama de flujo

Cada bloque del diagrama corresponde a una instrucción del código.

Algoritmo GeometriaAlgoritmo GeometriaAlgoritmo GeometriaDefinir radio, cateto1, cateto2, hipotenusa, angulo Como RealDefinir radio, cateto1,cateto2, hipotenusa, anguloComo RealEscribir "Radio del círculo:"Escribir "Radio del círculo:"Leer radioLeer radioEscribir "Área: ", Redon(PI() * radio ^ 2 * 100) / 100Escribir "Área: ", Redon(PI()* radio ^ 2 * 100) / 100Escribir "Perímetro: ", Redon(2 * PI() * radio * 100) / 100Escribir "Perímetro: ",Redon(2 * PI() * radio * 100)/ 100Escribir "Catetos de un triángulo rectángulo:"Escribir "Catetos de untriángulo rectángulo:"Leer cateto1, cateto2Leer cateto1, cateto2hipotenusa <- RC(cateto1 ^ 2 + cateto2 ^ 2)hipotenusa <- RC(cateto1 ^ 2 +cateto2 ^ 2)angulo <- ATan(cateto1 / cateto2) * 180 / PI()angulo <- ATan(cateto1 /cateto2) * 180 / PI()Escribir "Hipotenusa: ", hipotenusaEscribir "Hipotenusa: ",hipotenusaEscribir "Ángulo opuesto al primer cateto: ", Redon(angulo), " grados"Escribir "Ángulo opuesto alprimer cateto: ",Redon(angulo), " grados"Escribir "Comprobación sen² + cos² = ", Sen(angulo * PI() / 180) ^ 2 + Cos(angulo * PI() / 180) ^ 2Escribir "Comprobación sen² +cos² = ", Sen(angulo * PI() /180) ^ 2 + Cos(angulo * PI()…FinAlgoritmoFinAlgoritmo

Ejemplo de ejecución

Esto muestra el programa al ejecutarlo. Las respuestas escritas por el usuario aparecen resaltadas.

Radio del círculo:Respuesta del usuario: 3Área: 28.27Perímetro: 18.85Catetos de un triángulo rectángulo:Respuesta del usuario: 3Respuesta del usuario: 4Hipotenusa: 5Ángulo opuesto al primer cateto: 37 gradosComprobación sen² + cos² = 1

Desafío

Calcula también el área y el perímetro del triángulo.

Ver pista

El área es cateto1 * cateto2 / 2 y el perímetro es la suma de los tres lados.

Abrir en Codoritmo

Ejemplos relacionados

  • Números primos

    Encuentra todos los números primos hasta un límite.

    Intermedio

  • MCD y MCM

    Calcula el máximo común divisor y el mínimo común múltiplo.

    Intermedio

  • Ecuación cuadrática

    Resuelve ax² + bx + c = 0, con raíces reales o complejas.

    Intermedio