mate

Calcular los ángulos de un triángulo isósceles
   Bueno aquí traigo otro problema, en este caso vamos a crear una aplicación de consola para obtener el ángulo desigual de untriángulo isósceles.

   Hasta el momento todas las aplicaciones que he incluido en el blog han sido de consola, sé que con un entorno gráfico se hace más fácil, pero bueno,por el momento me quiero centrar más en el valor del código, que en la propia intefaz gráfica.

   Abrir una aplicación de consola, e insertar el siguiente código:

ModuleModule1

    'A continuación, vamos a crear una aplicación
    'para hallar los ángulos de un triángulo isósceles
    'este tipo de triángulos tiene dos lados iguales
   'los lados AB y BC son iguales, y los ángulos
    'A y C son iguales.
    'Si nos piden calcular los ángulos de un triángulo
    'isósceles. Hay que tener en cuenta  que lasuma de
    'los tres ángulos de cualquier triángulo vale 180º,
    'en consecuencia A + A + B = 180º, tened en cuenta
    ' que dos de los ángulos son iguales, así que
    'Por ejemplo A * 2 podría equivaler a los dos ángulos
    ' iguales, y B al tercero restante.
    ' vamos a hacer una sencilla aplicación suponiendo que
    ' conocemos elvalor del ángulo A, que nos
    'servirá para sacar el resto del ángulo B(desigual).
  
    Sub Main()
        Dim inicio As String
        Dim A As Integer'///////////////////////////ángulos iguales
        Dim B As Short '///////////////////////////ángulo desigual

        Do

            Console.Write("      ...Triángulo Isósceles...")            inicio = CStr(Console.ReadLine())
            Console.Write("Asigne el valor del ángulo A... ")
            A = CShort(Console.ReadLine())
            If A * 2