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

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

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

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

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

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

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

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

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

3
Snoopy
1912 / 1069 / 383
Регистрация: 06.12.2008
Сообщений: 2,802
23.02.2010, 00:59 #2
смотрите шапку раздела
0
Rayne
76 / 62 / 23
Регистрация: 11.07.2009
Сообщений: 719
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
Модератор
54132 / 41765 / 28876
Регистрация: 18.05.2008
Сообщений: 98,302
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
Привет! Вот еще темы с решениями:

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

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

Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по убыванию. Вывести содержимое матрицы до обработки и после обработки
Дана матрица целых чисел размером 4x3. Отсортировать каждую строку матрицы по...

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


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

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

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