Tres Figuras

PROBLEMA
Necesitamos un programa que le permita al usuario seleccionar entre 3 figuras: circulo, triangulo o cuadrado. Si selecciona circulo, pedirle el radio y calcular el area; si elige cuadro pedirle un lado y calcular el perimetro; si la figura es triangulo entonces preguntar si es equilatero: si sí es equilatero, pedir un lado, y si no, pedir los tres lados y calcular el perimetro.
Imprimir un mensaje con la figura seleccionada y el resultado de la operacion.

ALGORITMO

Entradas:  Alfanumerico    figura
                Numerico         radio
                Numerico         lado_cuad
                Numerico         lado_tri
                Numerico         lado_1
                Numerico         lado_2
                Numerico         lado_3
                Alfanumerico    tipo_triangulo
Salidas:    Numerico          resultado

INICIO
Establecer PI= 3.1416
Imprimir "Elija una figura"
Leer figura
    Si figura es
        "circulo" entonces
             Leer radio
             Multiplicar PI por radio al cuadrado y guardar en resultado
             Imprimir "Eligio un circulo"
             Imprimir "Su area es"
             Imprimir resultado
        "cuadrado" entonces
             Leer lado_cuad
             Multiplicar lado_cuad por 4 y guardar en resultado
             Imprimir "Eligio un cuadrado"
             Imprimir "Su perimetro es"
             Imprimir resultado
        "triangulo" entonces
             Imprimir "Que tipo de triangulo es"
             Leer tipo_triangulo
                  Si tipo_triangulo es "EQUILATERO" entonces
                       Leer lado_tri
                       Multiplicar lado_tri por 3 y guardar en resultado
                   Si no
                       Leer lado_1
                       Leer lado_2
                       Leer lado_3
                       Sumar lado_1 mas lado_2 mas lado_3 y guardar en resultado
                   Imprimir " Elegio un triangulo "
                   Imprimir "su perimetro es"
                   Imprimir resultado
    Si no entonces
    Imprimir "Figura no disponible"
    Fin_selector
FIN

PSEUDOCODIGO
Class  Figuras
          // Declaraciones
          Real : PI= 3.1416
          Cadena: figura
          Real : radio
          Real: lado_cuad
          Real: lado_tri
          Real: lado_1
          Real: lado_2
          Real: lado_3
          Cadena: tipo_triangulo
          Real: resultado
          // Pricedimiento
          Main
               Print "Elija una figura"
               Scan figura
               Switch (figura)
                   "circulo":
                       Print "introduce el radio"
                       Scan radio
                       resultado = 3.1416 * (radio^2)
                       Print "Eligio un circulo"
                       Print "su area es"
                       Print resultado
                   "cuadrado":
                       Print "Introduce el valor de uno de los lados"  
                       Scan lado_cuad
                       resultado = lado_cuad * 4
                       Print "Elijio un cuadrado"
                       Print "su perimetro es"
                       Print  resultado
                   "triangulo":
                       Print "¿Que tipo de triangulo es?
                       Scan tipo_triangulo
                              If tipo_triangulo = "EQUILATERO" then
                                  Print "Introduce el valor de uno de los lados"
                                  Scan lado_tri
                                  resultado = lado_tri * 3
                              Else
                                  Print "Introduce el valor de los tres lados"
                                  Scan lado_1, lado_2, lado_3
                                  resultado = lado_1 + lado_2 + lado_3
                              Print " Eligio un triangulo"
                              Print "Su perimetro es"
                              Print resultado
                              End_if
                   Default: Print "Figura no disponible"