Algoritmo para calcular el área de figuras geometricas

El siguiente ejercicio permita calcular el área de la siguientes figuras geometricas: (Circulo, Cuadrado, Rectangulo, Triangulo).

Pautas principales:

• Comienza creando un menú que muestre de forma clara las figuras geométricas disponibles para el cálculo de su área. Este menú permitirá al usuario seleccionar entre un círculo, cuadrado, rectángulo o triángulo.
• Estructura "Según": Utiliza la estructura condicional "Según" para determinar la operación que se debe realizar en función de la figura seleccionada por el usuario. De esta manera, el programa ejecutará el cálculo adecuado según la opción elegida.

Condiciones

• Validación de Entrada: Si el usuario ingresa un valor diferente a los presentados en el menú, el programa debe mostrar un mensaje indicando que la entrada no es válida, asegurando así una mejor experiencia de usuario.

Resultados

• Una vez que el usuario haya seleccionado la figura y proporcionado los datos necesarios, el programa calculará y mostrará el área de la figura seleccionada en pantalla.

Formulas para calcular el área de la figuras:

Circulo		PI: 3.1416
Rectangulo		b: Base h: Altura
Triangulo		b: Base h: Altura
Cuadrado		a: Lado

Pseudocódigo:

Algoritmo CalculoAreaFiguras
    Escribir "Seleccione la figura geométrica para calcular el área:"
    Escribir "1. Círculo"
    Escribir "2. Cuadrado"
    Escribir "3. Rectángulo"
    Escribir "4. Triángulo"
    Leer opcion
	
    Segun opcion Hacer
        1:  // Círculo
            Escribir "Ingrese el radio del círculo:"
            Leer radio
            area <- PI * radio^2
            Escribir "El área del círculo es: ", area
			
        2:  // Cuadrado
            Escribir "Ingrese el lado del cuadrado:"
            Leer lado
            area <- lado * lado
            Escribir "El área del cuadrado es: ", area
			
        3:  // Rectángulo
            Escribir "Ingrese la base del rectángulo:"
            Leer base
            Escribir "Ingrese la altura del rectángulo:"
            Leer altura
            area <- base * altura
            Escribir "El área del rectángulo es: ", area
			
        4:  // Triángulo
            Escribir "Ingrese la base del triángulo:"
            Leer base
            Escribir "Ingrese la altura del triángulo:"
            Leer altura
            area <- (base * altura) / 2
            Escribir "El área del triángulo es: ", area
			
        De Otro Modo:
            Escribir "Opción no válida."
    FinSegun
FinAlgoritmo

Ejecución:

Diagrama de flujo: