Перечисляемый тип - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Определить перечисляемый тип для планет. Объявить и использовать массив для записи данных о массе планет. Найти первые три планеты с наибольшей массой. Как вывести на экран первые три планеты с наибольшей массой?

Решение задачи: «Перечисляемый тип»

textual
Листинг программы
'по умолчанию это и будет 0,1,2,...,9
 Enum ТипПланет
     Венера
     Земля
     Луна
     Марс
     Меркурий
     Нептун
     Плутон
     Сатурн
     Уран
     Юпитер
 End Enum
'…
Dim NamesP() As String = [Enum].GetNames(GetType(ТипПланет))
Dim weightP(NamesP.Length - 1) As Double
For i = 0 To NamesP.Length - 1
    'вводим для NamesP(i) значение weightP(i)
Next
'сортируем по возрастанию
Array.Sort(Of Double, String)(weightP, NamesP)
'выводим три с наибольшей массой
Console.WriteLine("Первые три планеты с наибольшей массой")
For i = NamesP.Length - 1 To NamesP.Length - 4 Step -1
    Console.WriteLine("{0}, {1}", NamesP(i), weightP(i))
Next

Оцени полезность:

10   голосов , оценка 4.1 из 5
Похожие ответы