Blog de Daiyiro

#BlogDeDaiyiro es sobre todo Bricolajes de Electrónica/Informática. ¡^-^¡

LO NUEVO:

14.10.13

Llenar 2 Vectores De N Elementos y Almacenar En 1 Tercero La Multiplicación De Cada Uno

Otro ejercicio en Visual Basic, el enunciado del mismo problema decía:



Escribir un algoritmo que llene dos vectores de N elementos con números y almacene en un tercero la multiplicación de cada uno de los elementos del primer vector con el promedio de los elementos del segundo.

y en código de Visual Basic en aplicación de consola seria...

CÓDIGO EN VB.NET:

Module Module1

    Sub Main()
        Dim Vector1() As Integer
        Dim Vector2() As Integer
        Dim Vector3() As Integer

        Dim z As Integer
        Dim j As Integer
        Dim i As Integer
        Dim N As Integer

        Dim Promedio As Double
        Dim Suma As Integer

        Console.WriteLine("Ingrese cantidad de elementos que Contendrán los dos Vectores")

        N = Console.ReadLine()

        ReDim Vector1(N - 1)
        ReDim Vector2(N - 1)
        ReDim Vector3(N - 1)

        'Inicializo cada elemento del vector 1 con valores que van de 5 en 5
        For i = 0 To N - 1
            Vector1(i) = i * 5
        Next
        'Inicializo cada elemento del vector 1 con valores que van de 10 en 10
        For j = 0 To N - 1
            j = j * 10
            Suma = Suma + Vector2(j)

        Next


        Promedio = Suma / N

        Console.WriteLine("El nuevo Vector contiene los siguiente valores")

        For z = 0 To N - 1
            Vector3(z) = Vector1(i) * Promedio
            Console.WriteLine(Vector3(z))
        Next

        Console.ReadLine()
    End Sub

End Module



Espero que os sea interesante...

PD: Esto es lo que hice yo en la practica, no quiere decir por ello, que sea 100% correcto, puede ir encaminado, ser erróneo o no estar del todo finalizada la aplicación.

Un Saludiioo.

No hay comentarios:

Publicar un comentario