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
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License