Форум программистов, компьютерный форум, киберфорум
QBasic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
0 / 0 / 0
Регистрация: 26.05.2009
Сообщений: 11
1

Отсортировать по столбцам все элементы матрицы в порядке убывания

26.05.2009, 02:25. Просмотров 880. Ответов 9
Метки нет (Все метки)

Помоги пожалуйста написать программы по массивам...
в произвольный массив K(m*n) отсортировывать по столбец все елементи в порядок убывание (К1 найболше елемент , К2 найменше елемент .определять ,напечатать количество переместиться массив К напечатать до и после сортирование . под кожным столбецях напечатать максимальний елемент патрица , что принадлежать йому
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.05.2009, 02:25
Ответы с готовыми решениями:

Расположить элементы массива в порядке убывания
1)Помогите пожалуйста. Осуществите циклический сдвиг компонент заданного вектора A(N) влево на одну...

Упорядочить элементы строк в порядке убывания
В матрице х упорядочить элементы строк по их убыванию. ??

Отсортировать элементы матрицы (StringGrid) в порядке убывания построчно
Добрый день. У меня возникла проблема с написанием программы. Дан двумерный массив размерностью n*m...

Заменить все положительные элементы вектора на их округленные целые и отсортировать в порядке убывания
Дан вещественный вектор A .Заменить все положительные элементы вектора на их округленные целые и...

9
3883 / 882 / 122
Регистрация: 16.04.2009
Сообщений: 1,791
26.05.2009, 15:15 2

Напишите условие на английском языке, если с русским плохо.
0
0 / 0 / 0
Регистрация: 26.05.2009
Сообщений: 11
26.05.2009, 17:39  [ТС] 3
в произвольном масиве К(m*n) "методом пузырька" отсортировать по столбцам все элементы в порядке убывания (наибольший, наименьший элемент ) определить вывести количество перестановок масив К вывести до и после сортировки . под каждым столбцом вывести максимальний элемент матрицы, принадлежащий ему

можно помогите мне ! завтра мне надо
0
3883 / 882 / 122
Регистрация: 16.04.2009
Сообщений: 1,791
26.05.2009, 21:04 4
QBasic, VB, VBA?
0
0 / 0 / 0
Регистрация: 26.05.2009
Сообщений: 11
26.05.2009, 21:07  [ТС] 5
это basic
0
3883 / 882 / 122
Регистрация: 16.04.2009
Сообщений: 1,791
26.05.2009, 21:30 6
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Sub test()
Dim K(1 To 5, 1 To 6)
 
For i = 1 To 5
  For j = 1 To 6
    K(i, j) = Int(Rnd * 50)
  Next j
Next i
 
Dim outputStr As String
outputStr = "Arr1="
For i = 1 To UBound(K, 1)
  For j = 1 To UBound(K, 2)
    outputStr = outputStr & vbTab & K(i, j)
  Next j
  outputStr = outputStr & vbCrLf
Next i
 
 
Dim CountOfSubst
CountOfSubst = 0
 
For i = 1 To UBound(K, 2)
  CountOfSubst = CountOfSubst + sort(K, i)
Next i
 
Dim maximums()
ReDim maximums(1 To UBound(K, 2))
outputStr = outputStr & "Max:"
For i = 1 To UBound(K, 2)
  maximums(i) = K(1, i)
  For j = 1 To UBound(K, 1)
    If maximums(i) < K(j, i) Then maximums(i) = K(j, i)
  Next j
  outputStr = outputStr & vbTab & maximums(i)
Next
 
outputStr = outputStr & vbCrLf & vbCrLf & "Arr2="
For i = 1 To UBound(K, 1)
  For j = 1 To UBound(K, 2)
    outputStr = outputStr & vbTab & K(i, j)
  Next j
  outputStr = outputStr & vbCrLf
Next i
 
 
MsgBox outputStr
End Sub
 
 
Function sort(ByRef Arr, C) As Integer
'return - number of substitution
'Arr - array
'C - column for sort
sort = 0
cols = UBound(Arr, 1) 'column's
 
If cols >= C Then
  For i = 1 To cols + 1
    For j = cols To i + 1 Step -1
      If Arr(j - 1, C) < Arr(j, C) Then
        tmp = Arr(j - 1, C)
        Arr(j - 1, C) = Arr(j, C)
        Arr(j, C) = tmp
        sort = sort + 1
      End If
    Next j
  Next i
End If
End Function
1
0 / 0 / 0
Регистрация: 26.05.2009
Сообщений: 11
26.05.2009, 22:25  [ТС] 7
болщой спасибо вам
0
3883 / 882 / 122
Регистрация: 16.04.2009
Сообщений: 1,791
26.05.2009, 22:30 8
Из России с любовью!
0
0 / 0 / 0
Регистрация: 26.05.2009
Сообщений: 11
26.05.2009, 22:33  [ТС] 9
извините но в qbasic . я думаю (interger ,To UBound,ReDim,Function) немає?
0
3883 / 882 / 122
Регистрация: 16.04.2009
Сообщений: 1,791
27.05.2009, 10:38 10
Дык замените их на m и n которые даны по условию. Надо было сразу писать какой бэйсик, Вас спрашивали. Такчта пардоньте.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
27.05.2009, 10:38

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Дан двухмерный массив А(m,n). Отсортировать нечетные элементы по убыванию для всей матрицы в порядке по столбцам
Дан двухмерный массив А(m,n). Отсортировать нечетные элементы по убыванию для всей матрицы в...

исправьте ошибку в программе на массивы:В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы...
В массиве из 10 вещественных чисел отсортировать в порядке убывания все отрицательные элементы....

Расположить все элементы матрицы в строку в порядке убывания
Расположить все элементы матрицы в строку в порядке убывания. Плиз сделайте ктонить. Заранее...

Расположить все элементы матрицы в строку в порядке убывания
Всем доброго времени суток! Столкнулся с такой проблемой при выполнении задания. Надо расположить...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
10
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.