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'
'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'
'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'
'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