Сортировать матрицу в порядке убывания объемов производства. - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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