Сортировать матрицу в порядке убывания объемов производства. - VB
Формулировка задачи:
помогите плиз с лабой совсем не соображу чё-т как делать=(а решить очень важно для экзамена(..
Дана матрица p на r:
205 1.5 25
206 2.0 20
207 2.5 16
208 3.0 10
каждая строка-вид продукции.
1столбец-числовой код продукции;
2 столбец-цена в рубль/тонна;
3 столбец-фактическое выполнение в тоннах.
Сортировать в порядке убывания объемов производства в денежном выражении и вывести на экран коды продукции и объемы её производства в рублях.
Решение задачи: «Сортировать матрицу в порядке убывания объемов производства.»
textual
Листинг программы
Private Sub Command1_Click() Dim arr() As Single, p As Byte, r As Byte Dim i, j, temp() As Single, answer answer = "" p = 4 r = 3 ReDim arr(1 To p, 1 To r), temp(1 To p) For i = 1 To p arr(i, 1) = 204 + i Next i arr(1, 2) = 1.5: arr(2, 2) = 2: arr(3, 2) = 2.5: arr(4, 2) = 3 arr(1, 3) = 25: arr(2, 3) = 20: arr(3, 3) = 16: arr(4, 3) = 10 For i = 1 To p temp(i) = arr(i, 3) Next i For i = 1 To p For j = 1 To p - i If temp(i) < temp(i + 1) Then temps = temp(i) temp(i) = temp(i + 1) temp(i + 1) = temps End If Next j Next i For i = 1 To p For j = 1 To r answer = answer & arr(i, j) & " " Next j answer = answer & Chr(13) Next i MsgBox answer End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д