Skip to main content
se añadieron 12 caracteres en el cuerpo
Origen Enlace
Roger Torné
  • 7.6k
  • 13
  • 20
  • 33

Tengo un código en consola que ordena un array, pero solamente si el número es positivo, si ingreso un negativo solo coloca en 0, también, el segundo array debe quedar vácio, pero si yo coloco un 0 en la posición del array que es mayor en ese momento y hay otra posición con el mismo número, ambos se convierten en 0, cómo¿cómo puedo solucionar estos dos problemas?

Module Module1

Module Module1

  Sub Main()
    Dim Array(4) As Double 'Primer Array.
    Dim Orden(4) As Integer 'Segundo Array.
    Dim j As Integer = 0 'Autoincremento de el segundo Array.
    Dim Mayor As Integer 'Número mayor temporal.

    Console.WriteLine("Ingrese 5 números enteros.")

    For i = 0 To Array.Length - 1 'Finaliza en la ultima posición del Array.
        Console.Write(i & "> ") 'Se ingresan los números.
        Array(i) = Console.ReadLine 'Se almacena en la posición en cestión.
        If Array(i) Mod 1 = 0 Then 'Si el número es entero no pasa nada.
        Else 'Se el número es decimal i decrece en 1.
            Console.WriteLine("Por favor, digite un número entero.")
            i = i - 1
        End If
    Next

    Do While j < 5 'Hasta que j valga 5.
        For i = 0 To 4
            Mayor = Max(Mayor, Array(i)) 'Se calcula el número mayor temporalmente.
        Next

        For i = 0 To 4
            If Mayor = Array(i) Then 'La posición del array que sea igual a mayor pasará a ser 0.
                Array(i) = 0
            End If
        Next

        Orden(j) = Mayor 'La posición actual de Orden es rellenada con el valor mayor.
        j = j + 1 'j incrementará en 1.
        Mayor = -32768 'Mayor pasa a valer lo menor posible, por si los números son negativos.
    Loop

    Console.WriteLine("Array inicial") 'Se imprime el primer Array.
    For i = 0 To 4
        Console.WriteLine(">" & Array(i))
    Next

    Console.WriteLine("Array ordenado") 'Se imprime el segundo Array.
    For i = 0 To 4
        Console.WriteLine(">" & Orden(i))
    Next

    Console.WriteLine("Presione cualquier tecla para salir...")
    Console.ReadKey()
  End Sub 

End Module

End Module

Tengo un código en consola que ordena un array, pero solamente si el número es positivo, si ingreso un negativo solo coloca en 0, también, el segundo array debe quedar vácio, pero si yo coloco un 0 en la posición del array que es mayor en ese momento y hay otra posición con el mismo número, ambos se convierten en 0, cómo puedo solucionar estos dos problemas?

Module Module1

Sub Main()
    Dim Array(4) As Double 'Primer Array.
    Dim Orden(4) As Integer 'Segundo Array.
    Dim j As Integer = 0 'Autoincremento de el segundo Array.
    Dim Mayor As Integer 'Número mayor temporal.

    Console.WriteLine("Ingrese 5 números enteros.")

    For i = 0 To Array.Length - 1 'Finaliza en la ultima posición del Array.
        Console.Write(i & "> ") 'Se ingresan los números.
        Array(i) = Console.ReadLine 'Se almacena en la posición en cestión.
        If Array(i) Mod 1 = 0 Then 'Si el número es entero no pasa nada.
        Else 'Se el número es decimal i decrece en 1.
            Console.WriteLine("Por favor, digite un número entero.")
            i = i - 1
        End If
    Next

    Do While j < 5 'Hasta que j valga 5.
        For i = 0 To 4
            Mayor = Max(Mayor, Array(i)) 'Se calcula el número mayor temporalmente.
        Next

        For i = 0 To 4
            If Mayor = Array(i) Then 'La posición del array que sea igual a mayor pasará a ser 0.
                Array(i) = 0
            End If
        Next

        Orden(j) = Mayor 'La posición actual de Orden es rellenada con el valor mayor.
        j = j + 1 'j incrementará en 1.
        Mayor = -32768 'Mayor pasa a valer lo menor posible, por si los números son negativos.
    Loop

    Console.WriteLine("Array inicial") 'Se imprime el primer Array.
    For i = 0 To 4
        Console.WriteLine(">" & Array(i))
    Next

    Console.WriteLine("Array ordenado") 'Se imprime el segundo Array.
    For i = 0 To 4
        Console.WriteLine(">" & Orden(i))
    Next

    Console.WriteLine("Presione cualquier tecla para salir...")
    Console.ReadKey()
End Sub

End Module

Tengo un código en consola que ordena un array, pero solamente si el número es positivo, si ingreso un negativo solo coloca en 0, también, el segundo array debe quedar vácio, pero si yo coloco un 0 en la posición del array que es mayor en ese momento y hay otra posición con el mismo número, ambos se convierten en 0, ¿cómo puedo solucionar estos dos problemas?

Module Module1

  Sub Main()
    Dim Array(4) As Double 'Primer Array.
    Dim Orden(4) As Integer 'Segundo Array.
    Dim j As Integer = 0 'Autoincremento de el segundo Array.
    Dim Mayor As Integer 'Número mayor temporal.

    Console.WriteLine("Ingrese 5 números enteros.")

    For i = 0 To Array.Length - 1 'Finaliza en la ultima posición del Array.
        Console.Write(i & "> ") 'Se ingresan los números.
        Array(i) = Console.ReadLine 'Se almacena en la posición en cestión.
        If Array(i) Mod 1 = 0 Then 'Si el número es entero no pasa nada.
        Else 'Se el número es decimal i decrece en 1.
            Console.WriteLine("Por favor, digite un número entero.")
            i = i - 1
        End If
    Next

    Do While j < 5 'Hasta que j valga 5.
        For i = 0 To 4
            Mayor = Max(Mayor, Array(i)) 'Se calcula el número mayor temporalmente.
        Next

        For i = 0 To 4
            If Mayor = Array(i) Then 'La posición del array que sea igual a mayor pasará a ser 0.
                Array(i) = 0
            End If
        Next

        Orden(j) = Mayor 'La posición actual de Orden es rellenada con el valor mayor.
        j = j + 1 'j incrementará en 1.
        Mayor = -32768 'Mayor pasa a valer lo menor posible, por si los números son negativos.
    Loop

    Console.WriteLine("Array inicial") 'Se imprime el primer Array.
    For i = 0 To 4
        Console.WriteLine(">" & Array(i))
    Next

    Console.WriteLine("Array ordenado") 'Se imprime el segundo Array.
    For i = 0 To 4
        Console.WriteLine(">" & Orden(i))
    Next

    Console.WriteLine("Presione cualquier tecla para salir...")
    Console.ReadKey()
  End Sub 

End Module
Origen Enlace

Como ordeno un array en Visual Basic con negativos

Tengo un código en consola que ordena un array, pero solamente si el número es positivo, si ingreso un negativo solo coloca en 0, también, el segundo array debe quedar vácio, pero si yo coloco un 0 en la posición del array que es mayor en ese momento y hay otra posición con el mismo número, ambos se convierten en 0, cómo puedo solucionar estos dos problemas?

Module Module1

Sub Main()
    Dim Array(4) As Double 'Primer Array.
    Dim Orden(4) As Integer 'Segundo Array.
    Dim j As Integer = 0 'Autoincremento de el segundo Array.
    Dim Mayor As Integer 'Número mayor temporal.

    Console.WriteLine("Ingrese 5 números enteros.")

    For i = 0 To Array.Length - 1 'Finaliza en la ultima posición del Array.
        Console.Write(i & "> ") 'Se ingresan los números.
        Array(i) = Console.ReadLine 'Se almacena en la posición en cestión.
        If Array(i) Mod 1 = 0 Then 'Si el número es entero no pasa nada.
        Else 'Se el número es decimal i decrece en 1.
            Console.WriteLine("Por favor, digite un número entero.")
            i = i - 1
        End If
    Next

    Do While j < 5 'Hasta que j valga 5.
        For i = 0 To 4
            Mayor = Max(Mayor, Array(i)) 'Se calcula el número mayor temporalmente.
        Next

        For i = 0 To 4
            If Mayor = Array(i) Then 'La posición del array que sea igual a mayor pasará a ser 0.
                Array(i) = 0
            End If
        Next

        Orden(j) = Mayor 'La posición actual de Orden es rellenada con el valor mayor.
        j = j + 1 'j incrementará en 1.
        Mayor = -32768 'Mayor pasa a valer lo menor posible, por si los números son negativos.
    Loop

    Console.WriteLine("Array inicial") 'Se imprime el primer Array.
    For i = 0 To 4
        Console.WriteLine(">" & Array(i))
    Next

    Console.WriteLine("Array ordenado") 'Se imprime el segundo Array.
    For i = 0 To 4
        Console.WriteLine(">" & Orden(i))
    Next

    Console.WriteLine("Presione cualquier tecla para salir...")
    Console.ReadKey()
End Sub

End Module