BMI gemiddelde berekenen

[Jimbo84]

Hallo,

Ik zou het BMI gemiddelde moeten berekenen. De formule ken ik, maar blijkbaar komt hij met mijn kommagetal niet uit.

adhv van onderstaand vb zou ik de output exact hetzelfde moeten hebben:
Weight <in kg> : 75
Height <in cm> : 165
Average BMI so far : 27,5482093663912
Highest BMI so far : 27,5482093663912
Lowest BMI so far : 27,5482093663912

Enter more data <type <Y> or <y> and enter to continue> ? : y

Weight <in kg> : 95
Height <in cm> : 168
Average BMI so far : 30,6037532092727
Highest BMI so far : 33,6592970521542
Lowest BMI so far : 27,5482093663912

Enter more data <type <Y> or <y> and enter to continue> ? : y

Weight <in kg> : 52
Height <in cm> : 164
Average BMI so far : 26,8470787804035
Highest BMI so far : 33,6592970521542
Lowest BMI so far : 19,3337299226651

Enter more data <type <Y> or <y> and enter to continue> ? : y

...etc. Dit tot je 'n' drukt, dan stopt dit programma.

Alsook zou dit programma elk gemiddelde van de voorgaande gegevens(adhv een Do loop??) moeten kunnen berekenen. Heeft iemand hier een idee?

Hetgene ik momenteel heb is:

Module Module1

    Sub Main()
        Console.WriteLine("Weigth <in kg> :")
        Dim gewicht As Integer = Console.ReadLine

        Console.WriteLine("Height <in cm> : ")
        Dim lengte As Integer = Console.ReadLine

        Dim bmiresult As Double
        bmiresult = gewicht / (lengte * lengte)

        Console.WriteLine("BMI : " & bmiresult)

    End Sub

End Module

 

[xl3igplayer]

ik heb geen idee hoe je dat kan oplossen maar heb wel andere tutorials gevonden hoe je BMI zou kunnen berekenen

http://www.ehow.com/how_6336965_calculate-bmi-using-visual-basic.html
of de tutorial ( simpele )
BMI calculator

 

[Tardis]

BMI = gewicht in kilo's gedeeld door het kwadraat van de lengte in meters

Jouw formule rekent met centimeters.........

Tardis