Alternativa - Duvida de Raciocinio

[vikcch]

Boas,

Preciso inserir valores individualmente, e fazer uma contagem do que foi inserido...

input:

1000, 2000, 2000, 1000, 2000;

output:

t:1 //  s:1 d:1 // s:1 d:2 // s:2 d:2 // s:2 d:3

Só há dois tipos de valores inseridos (simples e duplo) s e d, se algum for 0, não faço distinção entre simples e duplo, escrevo só o total t.

podem ser 1000 e 2000, ou então 500 e 1000, ou 5000 e 10000 etc....

 

Fiz aqui um code (em vb6) que parece funcionar pelos testes que fiz....

Mas tou a achar que tem condições a mais....

Alguem sugere uma alternativa?

 

Option Explicit

Private simples As Integer
Private duplo As Integer
Private minimo As Long

Private Sub Command1_Click()

    If minimo = 0 Then
        minimo = Val(txtIn.Text)
        simples = simples + 1
    Else
        If minimo = Val(txtIn.Text) Then
            simples = simples + 1
        ElseIf Val(txtIn.Text) < minimo Then
            minimo = Val(txtIn.Text)
            duplo = simples
            simples = 1
        Else
            duplo = duplo + 1
        End If

    End If

    If simples = 0 Or duplo = 0 Then
        txtOut.Text = "total: " & simples + duplo
    Else
        txtOut.Text = "s: " & simples & "   d:" & duplo
    End If

End Sub

Private Sub Form_Load()
    minimo = 0
End Sub

Obrigado desde já!

[HappyHippyHippo]

a descrição do problema é inteligível ...

[vikcch]

Obrigado por postares...

Só insiro 2 tipos de valores, ex: 1000 ou 2000

1º input: 1000

output: t:1

2º input: 1000

output: t:2

3º input: 2000

output: s:2 d:1     // porque foram inseridos 2 menores (simples s) (1000) e 1 maior (duplo d) (2000)

4º input: 1000

output: s:3 d:1     // porque foram inseridos 3 menores (simples s) (1000) e 1 maior (duplo d) (2000)

 

Tipo, fazer a contagem dos menores e maiores inseridos, são sempre só inseridos no maximo 2 valores diferentes, aos maiores e menores eu chamo simples e duplo

Acho que já terá dado para perceber

[HappyHippyHippo]

o códgo não tem condições a mais ... tem é um problema que necessita de mais condições : imagina que um dos valores (maior ou menor) é o valor de zero

[vikcch]

ok então... acho que vou fazer como tenho....

os valores são sempre maiores que zero e o maior é sempre o dobro do menor..

Obrigado

[HappyHippyHippo]

4 minutes ago, vikcch said:

ok então... acho que vou fazer como tenho....

os valores são sempre maiores que zero e o maior é sempre o dobro do menor..

Obrigado

condições que dariam jeito saber antes de andar aqui a adivinhar o que é necessário fazer ...