Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Danger Dominik
1 / 1 / 0
Регистрация: 17.11.2009
Сообщений: 30
1

Отсортировать элементы нечётных строк массива целых чисел по убыванию

22.02.2010, 23:37. Просмотров 1337. Ответов 3
Метки нет (Все метки)

Отсортировать элементы нечётных строк массива целых чисел по убыванию. Сортировка разделением
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.02.2010, 23:37
Ответы с готовыми решениями:

Одномерный массив из 15 целых чисел из промежутка [-15; 15] отсортировать по убыванию
одномерный массив из 15 целых чисел из промежутка отсортировать по убыванию....

Отсортировать элементы массива по убыванию
Целочисленный массив а(20) заполнен с клавиатуры. Элементы этого массива...

Элементы массива на четных позициях отсортировать по возрастанию, а на нечетных – по убыванию
вот задание: Составить программу для сортировки массива размерностью ...

Методом пузырька отсортировать элементы массива, взятые из текстового файла по убыванию
написать программу, которая методом пузырька сортирует элементы массива взятых...

Заданная матрица целых чисел размером (N, N). Отсортировать элементы в закрашенных областей по возрастанию
Заданная матрица целых чисел размером (N, N). Отсортировать элементы в...

3
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
23.02.2010, 00:59 2
смотрите шапку раздела
0
Rayne
76 / 62 / 23
Регистрация: 11.07.2009
Сообщений: 726
23.02.2010, 01:09 3
ну или так
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
uses crt;
var
ms : array [1..5,1..5] of integer;
a,b,c,d,e : integer;
begin
clrscr;
randomize;
for a:=1 to 5 do begin
for b:=1 to 5 do begin
ms[a,b]:=random(10);
write(ms[a,b],' ' );
end;
writeln;
end;
for a:=1 to 5 do
for b:=1 to 5 do
if not odd(a) then begin
for c:=1 to 5 do
for d:=c to 5 do
if ms[a,c]>ms[a,d] then begin
   e:=ms[a,c];
   ms[a,c]:=ms[a,d];
   ms[a,d]:=e;
end;
for a:=1 to 5 do begin
for b:=1 to 4 do write(ms[a,b],' ');
writeln;
end;
readkey;
end.
ой.. разделением похоже иначе делается)
0
Puporev
Модератор
54586 / 42092 / 29061
Регистрация: 18.05.2008
Сообщений: 99,297
23.02.2010, 08:56 4
Алгоритм сортировки изложен в куче статей в интернете, еще она называется быстрая сортировка или сортировка Хоара и еще куча названий.
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
{cтроки по убыванию}
uses crt;
const nmax=20;{макс размер матрицы, можно любой}
type mas=array[1..nmax] of integer;{массив-строка матрицы}
     matr=array[1..nmax] of mas;{матрица - массив строк}
procedure sort(var x:mas;n,l,r:integer);{сотировка быстрая, или Хоара или разделением}
var
  i,j,x1,y1,m: integer;
begin
i:=l;
j:=r;
m:=round ((l+r)/2);
x1:=x[m];
repeat
 while x[i]>x1 do inc(i);
 while x[j]<x1 do dec(j);
 if i<=j then
  begin
   y1:=x[i];
   x[i]:=x[j];
   x[j]:=y1;
   inc(i);
   dec(j);
  end;
until i>j;
if l<j then sort(x,n,l,j);
if i<r then sort(x,n,i,r);
end;
var a:matr;
    n,m,i,j:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' n=');
readln(n);
until n in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to n do
 begin
   for j:=1 to m do
    begin
     a[i,j]:=random(50);
     write(a[i,j]:4);
    end;
   writeln;
 end;
for i:=1 to n do{все строки по очереди}
Sort(a[i],m,1,m);{сортируем}
writeln('Строки отсортированы по убыванию:');
for i:=1 to n do
 begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
 end;
readln
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.02.2010, 08:56

Отсортировать включением столбцы массива целых чисел по возрастанию
Помогите пли3 решить задание: Отсортировать столбцы массива целых чисел по...

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

Найти количество строк заданного массива, элементы которых упорядочены по убыванию
Дан двумерный массив размером m*n.Найти количество строк заданного массива,...


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

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

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