programacion

1. Hacer un programa para obtener el área de un triangulo. Si la formula es la siguiente: área=(base*altura)
Imports System.Console
Module Module1
Dim a, b, alt As Integer
Sub Main()Write("ingrese la base")
b = ReadLine()
Write("ingrese la altura")
alt = ReadLine()

a = (b * alt) / 2
WriteLine("el area del objeto es de:"& a)
ReadLine()
End Sub
EndModule

2. Hacer un programa que lea un numero de pies y calcule e imprima su equivalente en yardas, pulgadas, centímetros y metros de acuerdo con las seguiste equivalencias: 1pie= 12 pulgadas, 1yarda= 3pies, 1pulgada=2.45 cm, 1 metro= 100cm.
Imports System.Console
Module Module1
Dim y, p, c, m, pies As Integer
Sub Main()
Write("ingrese la cantidad de pies")
pies = ReadLine()p = pies * 12
y = pies / 3
c = pies * 29.4
m = c / 100

WriteLine("pulgadas hay:" & p)
WriteLine("yardas hay:" & y)
WriteLine("centimetros hay:" & c)
WriteLine("metros hay:"& m)
ReadLine()
End Sub

End Module
3. Hacer un programa que convierta horas en minutos y segundos.
Imports System.Console
Module Module1
Dim h, m, s As Integer
Sub Main()Write("ingrese la cantidad de horas")
h = ReadLine()

m = h * 60
s = m * 60

WriteLine("minutos hay:" & m)
WriteLine(" segundos hay:" & s)
ReadLine()End Sub

End Module

4. Hacer un programa que calcule el total qe debe pagar una persona si compra articulos a un precio determinado.
Imports System.Console
Module Module1
Dim a1, a2,a3, a4, tp, imp As Integer pseudocodigo
Sub Main() Inicio
Write("ingrese valor del primer articulo") leer:a1,a2,a3,a4
a1 = ReadLine() imp=(a1+a2+a3+a4)*0.12Write("ingrese valor del segundo articulo") tp=(a1+a2+a3+a4)+imp
a2 = ReadLine() Imprimir: imp,tp
Write("ingrese valor del tercer articulo") Fin
a3 = ReadLine()...