15 / 2 / 1
Регистрация: 24.10.2014
Сообщений: 106
1

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением

25.10.2014, 11:22. Показов 1922. Ответов 1
Метки нет (Все метки)

10. Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением.
вот примерный код процедуры
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Procedure Quick_Sort(n:word;Var a:massiv);
Procedure Sort(l,r:word);
Var w,x:integer;
i,j:word;
Begin
i:=l; j:=r;
x:=a[(l+r) div 2];
Repeat
While a[i]<x Do i:=i+1;
While a[j]>x Do j:=j-1;
If i<=j Then
begin
w:=a[i]; a[i]:=a[j]; a[j]:=w;
i:=i+1; j:=j-1
end
Until i>j;
If l<j Then Sort(l,j);
If i<r Then Sort(i,r);
End;{Sort}
BEGIN
Sort(1,n);
END;{Quick_Sort}
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.10.2014, 11:22
Ответы с готовыми решениями:

Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением
Отсортировать нечетные столбцы массива по возрастанию. Сортировка разделением. ! ребята помогите...

Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор. Добавлено через...

Отсортировать нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать нечетные столбцы массива по возрастанию
3. Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

1
Почетный модератор
64256 / 47556 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
25.10.2014, 11:50 2
Pascal
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
uses crt;
type mas=array[1..10] of integer;{массив-столбец матрицы}
     mtr=array[1..10] of mas;{матрица-массив столбцов}
Procedure Quick_Sort(n:word;Var a:mas);
Procedure Sort(l,r:word);
Var w,x:integer;
i,j:word;
Begin
i:=l; j:=r;
x:=a[(l+r) div 2];
Repeat
While a[i]<x Do i:=i+1;
While a[j]>x Do j:=j-1;
If i<=j Then
begin
w:=a[i]; a[i]:=a[j]; a[j]:=w;
i:=i+1; j:=j-1
end
Until i>j;
If l<j Then Sort(l,j);
If i<r Then Sort(i,r);
End;{Sort}
BEGIN
Sort(1,n);
END;{Quick_Sort}
var a:mtr;
    n,m,i,j:word;
begin
clrscr;
randomize;
repeat
write('Количество строк от 2 до 10 n=');
readln(n);
until n in [2..10];
repeat
write('Количество столбцов от 2 до 10 m=');
readln(m);
until m in [2..10];
writeln('Исходный массив');
for j:=1 to m do  {заполняем матрицу по столбцам}
for i:=1 to n do
a[j,i]:=-10+random(21);
for i:=1 to n do {выводим построчно}
 begin
  for j:=1 to m do
  write(a[j,i]:4);
  writeln
 end;
j:=1;{сортируем нечетные столбцы}
while j<=n do
 begin
  Quick_Sort(n,a[j]);
  j:=j+2
 end;
writeln('Сортировка нечетных столбцов');
for i:=1 to n do {выводим построчно}
 begin
  for j:=1 to m do
  write(a[j,i]:4);
  writeln
 end;
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.10.2014, 11:50
Помогаю со студенческими работами здесь

Отсортировать прямым выбором нечетные столбцы массива по возрастанию
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор.

Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор
Отсортировать нечетные столбцы массива по возрастанию. Сортировка прямой выбор..help!!!!!

Отсортировать четные столбцы матрицы по убыванию, нечетные по возрастанию (сортировка Шелла)
Богом прошу, помогите! Совершенно запутался. Необходимо: сортировкой Шелла с шагом d = N/2^i...

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru