ejemplos de programas de triangulo, circulo, rectangulo,promedio y raiz cuarada

Programa para hallar el área de un triangulo

Module Module1

  ‘variables de tipo entero’

    Dim b, h, a As Integer

    Sub Main ()

   ‘imprime que ingresemos la base del triángulo’

        Console.Writeline ("Ingrese base: ")

        b = Console.ReadLine ()

    ‘Imprime la altura del triangulo’

        Console.Writeline ("Ingrese altura: ")

      h = Console.ReadLine ()

        a = (b * h) / 2

‘imprime el resultado ‘

        Console.Writeline ("El area de un triángulo es: " & a)

        Console.ReadLine ()

    End Sub

End Module

imagen del programa corrido

Programa para hallar el área de un círculo

Module Module1

    'variable de tipo entero '

    Dim r, pi, a As Integer

    Sub main ()

        'pide el calor del radio'

                  Console.Writeline ("Ingrese valor de radio: ")

        r = Console.ReadLine ()

        'pi es de los pi radianes '

        pi = 3.141592653

        a = pi * r ^ 2

             'imprime el resultado del area del circulo

                 Console.Writeline ("El area de un circulo es: " & a)

        Console.ReadLine ()

    End Sub

End Module

Programa para hallar el área de un rectángulo

Module Module1

    'las variables son de tipo entero'

    Dim b, h, a As Integer

    Sub main ()

        'nos pide que ingresemos base'

        Console.WriteLine ("ingrese base: ")

        b = Console.ReadLine ()

        'nos pide ingresar altura'

        Console.WriteLine ("ingrese altura: ")

        h = Console.ReadLine ()

        a = b * h

        'imprime el resultado del área del rectángulo'

        Console.Writeline ("el area de un rectangulo es: " & a)

        Console.ReadLine ()

    End Sub

End Module

Programa de promedio de 5 notas

Module Module1

    'declarado de variables single es variable de tipo simple'

    Dim nota1, nota2, nota3, nota4, nota5, prom As Single

    

    Sub main ()

        'writeline nos sirve para que nos pida las notas en la pantalla'

        Console.WriteLine ("Ingrese primera nota: ")

        'readline y el paréntesis nos ayuda a que permanezca el cuadrito negro corrido en la pantalla y no se borre'

        nota1 = Console.ReadLine ()

        Console.WriteLine ("Ingrese segunda nota: ")

        nota2 = Console.ReadLine ()

        Console.WriteLine ("Ingrese tercera nota: ")

        nota3 = Console.ReadLine ()

        Console.WriteLine ("Ingrese cuarta nota: ")

        nota4 = Console.ReadLine ()

        Console.WriteLine ("Ingrese quinta nota: ")

        nota5 = Console.ReadLine ()

        'prom nos ayudara a que aparezca el promedio final'

        prom = (nota1 + nota2 + nota3 + nota4 + nota5) / 5

        'esto nos ayuda a que imprima el promedio'

        Console.WriteLine ("El promedio es: " & prom)

        Console.ReadLine ()

    End Sub

End Module

 

Programa  que  que permite calcular  la raiz cuadrad de un numero

Module Module1
'las variables que se utilizan en este programa son de tipo entero oesa integer'

    Dim num, a As Integer

    Sub Main ()

             'ingresamos el numero que le vamos a calcular la raiz'

        Console. Write ("ingrese numero: ")

        num = Console.ReadLine ()
     'esta es la la formula se podría decir para que ele ve al cuadrado'

        a = num ^ (1 / 2)
      'y luego nos imprime el resultado de el numero que ingresamos'

        Console. Writeline ("la raíz cuadrada es: " & a)

        Console. ReadLine ()

    End Sub

End Module