Programacion
Suma.producto 1
Sub Main() Dim vector1(3) As Integer Dim vector2(3) As Integer Dim respuesta As Integer = 0 Console.WriteLine("Bienvenido al programa") Console.WriteLine("Ingrese los elementos del primer vector") Console.WriteLine("ingrese primer elemento del primer vector") vector1(0) = Console.ReadLine() Console.WriteLine("ingrese segundo elemento del primer vector") vector1(1) = Console.ReadLine() Console.WriteLine("ingrese tercer elemento del primer vector") vector1(2) = Console.ReadLine() Console.WriteLine("Ingrese los elementos del segundo vector") Console.WriteLine("ingrese primer elemento del segundo vector") vector2(0) = Console.ReadLine() Console.WriteLine("ingrese segundo elemento del segundo vector") vector2(1) = Console.ReadLine() Console.WriteLine("ingrese tercer elemento del segundo vector") vector2(2) = Console.ReadLine() For i = 0 To 2 respuesta = respuesta + vector1(i) * vector2(i) Next i Console.WriteLine("la suma.producto de sus vectores da: " & respuesta) Console.ReadLine() End Sub
Suma.producto 2
Sub Main() Dim vector1(3) As Integer Dim vector2(3) As Integer Dim respuesta As Integer = 0 Dim largo As Integer = 2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Aqui empieza la magia negra '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Console.WriteLine("Bienvenido al programa") Console.WriteLine("Ingrese los elementos del primer vector") For i = 0 To largo Console.WriteLine("ingrese el elemento " & (i + 1)) vector1(i) = Console.ReadLine() Next i Console.WriteLine("Ingrese los elementos del segundo vector") For i = 0 To largo Console.WriteLine("ingrese el elemento " & (i + 1)) vector2(i) = Console.ReadLine() Next i For i = 0 To largo respuesta = respuesta + vector1(i) * vector2(i) Next i Console.WriteLine("la suma.producto de sus vectores da: " & respuesta) Console.ReadLine() End Sub
Matrices
Sub Main() Dim matriz(2, 3) As Integer Dim respuesta As Integer = 0 Dim temp As Integer Dim largo As Integer = 2 '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Aqui empieza la magia negra '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Console.WriteLine("Bienvenido al programa") For i = 0 To 1 Console.WriteLine("Trabajando matriz " & (i + 1)) For j = 0 To largo Console.WriteLine("ingrese el elemento " & (j + 1)) matriz(i, j) = Console.ReadLine() Next j Next i For j = 0 To largo temp = 1 For i = 0 To 1 temp = temp * matriz(i, j) Next i respuesta = respuesta + temp Next j Console.WriteLine("la suma.producto de sus vectores da: " & respuesta) Console.ReadLine() End Sub
Matriz final
Sub Main() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Aqui empieza la magia negra '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim largo As Integer Dim vectores As Integer Console.WriteLine("ingrese tamaño del arreglo") largo = Console.ReadLine() Console.WriteLine("ingrese cuantos vectores") vectores = Console.ReadLine() Dim matriz(vectores, largo) As Integer Dim respuesta As Integer = 0 Dim temp As Integer = 1 Console.WriteLine("Bienvenido al programa") For i = 0 To vectores - 1 Console.WriteLine("Trabajando matriz " & (i + 1)) For j = 0 To largo - 1 Console.WriteLine("ingrese el elemento " & (j + 1)) matriz(i, j) = Console.ReadLine() Next j Next i For j = 0 To largo - 1 temp = 1 For i = 0 To vectores - 1 temp = temp * matriz(i, j) Next i respuesta = respuesta + temp Next j Console.WriteLine("la suma.producto de sus vectores da: " & respuesta) Console.ReadLine() End Sub
multiplicacion de matrices
Sub Main() '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Aqui empieza la magia negra '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim n As Integer Dim p As Integer Dim m As Integer Console.WriteLine("ingrese m") m = Console.ReadLine() Console.WriteLine("ingrese p") p = Console.ReadLine() Console.WriteLine("ingrese n") n = Console.ReadLine() Dim matriz1(m, p) As Integer Dim matriz2(p, n) As Integer Dim matriz3(m, n) As Integer Console.WriteLine("Bienvenido al programa") For i = 0 To m - 1 Console.WriteLine("Trabajando fila" & (i + 1)) For j = 0 To p - 1 Console.WriteLine("ingrese el elemento " & (j + 1)) matriz1(i, j) = Console.ReadLine() Next j Next i Console.WriteLine("matriz 2") For i = 0 To p - 1 Console.WriteLine("Trabajando fila" & (i + 1)) For j = 0 To n - 1 Console.WriteLine("ingrese el elemento " & (j + 1)) matriz2(i, j) = Console.ReadLine() Next j Next i For i = 0 To m - 1 For j = 0 To n - 1 matriz3(i, j) = 0 For r = 0 To p - 1 matriz3(i, j) = matriz3(i, j) + matriz1(i, r) * matriz2(r, j) Next r Next j Next i Console.ReadLine() End Sub
Canculadora HP
Sub Main()
Dim largo As Integer = 5
Dim puntero As Integer = 0
Dim datos(largo) As String
Dim resultado(largo) As Integer
datos(0) = "3"
datos(1) = "2"
datos(2) = "3"
datos(3) = "+"
datos(4) = "+"
For i = 0 To largo - 1
If datos(i) = "+" Then
resultado(puntero - 2) = resultado(puntero - 1) + resultado(puntero - 2)
resultado(puntero - 1) = 0
puntero = puntero - 1
Else
resultado(puntero) = datos(i)
puntero = puntero + 1
End If
Next i
Console.WriteLine("la respuesta es " & resultado(0))
Console.ReadLine()
End Sub
Module Module1
Function suma(ByVal a, ByVal b)
Return a + b
End Function
Function resta(ByVal a, ByVal b)
Return a - b
End Function
Function multi(ByVal a, ByVal b)
Return a * b
End Function
Function divi(ByVal a, ByVal b)
Return a / b
End Function
Sub Main()
Dim largo As Integer = 5
Dim puntero As Integer = 0
Dim datos(largo) As String
Dim resultado(largo) As Integer
datos(0) = "3"
datos(1) = "2"
datos(2) = "3"
datos(3) = "+"
datos(4) = "+"
For i = 0 To largo - 1
If datos(i) = "+" Then
resultado(puntero - 2) = suma(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "-" Then
resultado(puntero - 2) = resta(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "*" Then
resultado(puntero - 2) = multi(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "/" Then
resultado(puntero - 2) = divi(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
Else
resultado(puntero) = datos(i)
puntero = puntero + 1
End If
resultado(puntero) = 0
Next i
Console.WriteLine("la respuesta es " & resultado(0))
Console.ReadLine()
End Sub
End Module
Module Module1
Function suma(ByVal a, ByVal b)
Return a + b
End Function
Function resta(ByVal a, ByVal b)
Return a - b
End Function
Function multi(ByVal a, ByVal b)
Return a * b
End Function
Function divi(ByVal a, ByVal b)
Return a / b
End Function
Sub Main()
Dim largo As Integer = 0
Dim datos(1000) As String
Dim temp As String
Console.WriteLine("ingrese los datos eparados por un enter")
Console.WriteLine("y ingrese un enter cuando quiera terminar")
temp = Console.ReadLine()
While temp <> ""
datos(largo) = temp
largo = largo + 1
temp = Console.ReadLine()
End While
Dim puntero As Integer = 0
Dim resultado(largo) As Integer
For i = 0 To largo - 1
If datos(i) = "+" Then
resultado(puntero - 2) = suma(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "-" Then
resultado(puntero - 2) = resta(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "*" Then
resultado(puntero - 2) = multi(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
ElseIf datos(i) = "/" Then
resultado(puntero - 2) = divi(resultado(puntero - 1), resultado(puntero - 2))
puntero = puntero - 1
Else
resultado(puntero) = datos(i)
puntero = puntero + 1
End If
resultado(puntero) = 0
Next i
Console.WriteLine("la respuesta es " & resultado(0))
Console.ReadLine()
End Sub
End Module
page revision: 13, last edited: 15 Jun 2009 14:26