how to find max value

[skech]

Hi,
First Question:

My_array() as Ýnteger = ("10","120","45","75","1")

How to find array index number of max value ?

Second Question:

value = 150 / 35
value = 4,2857
How to make one number or two number after comma

Apologize for my Eng.
Thanks

[One Handed Man [ OHM# ]]

Untested . . .
'1.)

Dim x As Integer = 0
Dim maxX as Integer = 0

For x=0 to My_Array.length-1

if ( My_Array(x) > maxX ) Then
maxX = My_Array(x)
End If

Next

'2.)

MessageBox.Show(Format(4.555, "#.##"))

Regards - OHM

skech wrote:

Hi,
First Question:

My_array() as Ýnteger = ("10","120","45","75","1")

How to find array index number of max value ?

Second Question:

value = 150 / 35
value = 4,2857
How to make one number or two number after comma

Apologize for my Eng.
Thanks

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Cor]

Hi Herfried,

No, my answer was only a theoretical note, IMO you solution is "quick
and dirty".

I did want say it is, but while writing this I became in doubt.

The sample string contains 5 items and for that kind of strings it is a nice
alternative.

The timedifference will be something between the
1/1000000000000000000 and 2/1000000000000000000 second I think

Alternatively is it in a very large population as you told not intresting
anymore to get one item, you want all the items that are equal to the max.

That is difficult with the for loop because you have all the time to build
an array when you get a new max, while the sort does that in one time.

But as I said, normaly I use the for next loop for that and I am glad you
both say that it is the best method for this.

Cor

[Cor]

Hi Herfried,

Only typed I said, generate I can do myself also.

I will generate it automatically...

;-)

[skech]

Thanks thank thanks :))

[One Handed Man [ OHM# ]]

Of course you can send it to them.

This is just my opinion, and as we have seen many times before on this
newsgroup, unless I am one of the chosen "three" ( which I am not ) , then
my opinion doesnt amount to much really.

:)

OHM

Cor wrote:

Hi OHM,

I was busy making that example but was sticked with that rounded
question, what is always a problem for those who rounded 0,5 to 1.

I wanted to give a nice example for roundex but could not get a real
good one, so I did not.

Normaly I do everything with a for next loop but this time I did
wanted to do it on another way.
When I was ready I saw your message, but why may I not send it them
it was in another way and very good usable for this kind of small
arrays?

Very few code.

Cor

Regards - OHM# OneHandedMan{at}BTInternet{dot}com

[Herfried K. Wagner [MVP]]

* "Cor" <no*@non.com> scripsit:

Only typed I said, generate I can do myself also.

Do you know the algorithm I use for generating the data?

;-)))

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>

[Cor]

EOT

[Chris Dunaway]

On 22 Dec 2003 16:34:08 +0100, Herfried K. Wagner [MVP] wrote:

How to find array index number of max value ?

Won't this solution return the max *value*? I believe the OP wanted the
*index* of the max value. So shouldn't it be:

\\\
Private Function Max( _
ByVal Elements() As Integer _
) As Integer
Dim k, Element As Integer Dim i As Integer For k = 0 To UBound(Elements)
If Elements(k) > Element Then
Element = Elements(k) i = k End If
Next k Return i End Function
///

--
Chris

To send me an E-mail, remove the underscores and lunchmeat from my E-Mail
address.

[Tom Leylan]

Well since this thread is still going... the original question did ask for
the index and it would be important not to consider the initial maximum
value equal to zero... it should be set to the first element of the array
(all the values can be negative numbers).

So here is my solution:

Dim a() As Integer = {1, 3, 5, 15, 4, 99, 11}

Console.WriteLine(MaxIntegersIndex(a).ToString)
Console.WriteLine(MaxIntegersValue(a).ToString)
Public Function MaxIntegersIndex(ByVal a() As Integer) As Integer

MaxIntegersIndex = 0

For i As Integer = 1 To UBound(a)
If a(i) > a(MaxIntegersIndex) Then
MaxIntegersIndex = i
End If
Next

End Function

Public Function MaxIntegersValue(ByVal a() As Integer) As Integer
MaxIntegersValue = a(MaxIntegersIndex(a))
End Function
"Chris Dunaway" <dunawayc@_lunchmeat_sbcglobal.net> wrote in message
news:1w*****************************@40tude.net...

On 22 Dec 2003 16:34:08 +0100, Herfried K. Wagner [MVP] wrote:

How to find array index number of max value ?

Won't this solution return the max *value*? I believe the OP wanted the
*index* of the max value. So shouldn't it be:

\\\
Private Function Max( _
ByVal Elements() As Integer _
) As Integer
Dim k, Element As Integer

Dim i As Integer

For k = 0 To UBound(Elements)
If Elements(k) > Element Then
Element = Elements(k)

i = k

End If
Next k

Return i

End Function
///