Jump to content
vikcch

Alternativa - Duvida de Raciocinio

Recommended Posts

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á!

Share this post


Link to post
Share on other sites
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

Share this post


Link to post
Share on other sites
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


IRC : sim, é algo que ainda existe >> #p@p

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites
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 ...

  • Vote 1

IRC : sim, é algo que ainda existe >> #p@p

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.