1 / 1 / 0
Регистрация: 06.10.2010
Сообщений: 22
1

Отсортировать нечетные строки по возрастанию

23.11.2010, 12:46. Показов 1115. Ответов 9
Метки нет (Все метки)

Отсортировать нечетные строки по возрастанию
p.s не рандомные числа
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.11.2010, 12:46
Ответы с готовыми решениями:

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

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

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

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

9
118 / 118 / 25
Регистрация: 03.03.2010
Сообщений: 436
23.11.2010, 12:52 2
В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать?
Или первый раз в жизни видите Паскаль и срочно горит лабораторная?)
0
1 / 1 / 0
Регистрация: 06.10.2010
Сообщений: 22
23.11.2010, 13:22  [ТС] 3
Цитата Сообщение от jonni Посмотреть сообщение
В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать?
Или первый раз в жизни видите Паскаль и срочно горит лабораторная?)
Трудности конкретно в том, как найти нечетные строки, и сделать так, чтобы на выводе их сортировало по возрастанию)
0
Почетный модератор
64270 / 47569 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
23.11.2010, 13:28 4
Цитата Сообщение от Layetheme Посмотреть сообщение
как найти нечетные строки, и сделать так, чтобы на выводе их сортировало по возрастанию)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
var a:array[1..20,1..20] of integer;//матрица
     n:byte;//кол. строк
     m:byte;//кол. столбцов
     i,j,k:byte;//счетчики циклов
     x:integer;//буфер для обмена чисел
begin
ввод матрицы
for i:=1 to n do
if odd(i) then//если строка нечетная
 begin//сортировка обменом по возрастанию
  for j:=1 to m-1 do
  for k:=j+1 to m do
  if a[i,j]>a[i,k] then
  begin
   x:=a[i,j];
   a[i,j]:=a[i,k];
   a[i,k]:=x;
  end;
 end;
вывод матрицы
readln
end.
1
Фрилансер
Эксперт С++
5844 / 1225 / 499
Регистрация: 23.11.2010
Сообщений: 3,375
Записей в блоге: 1
31.01.2011, 23:33 5
Цитата Сообщение от Layetheme Посмотреть сообщение
Создать двумерный массив
Pascal
1
2
var
arr :array[1..n,1..m] of integer;
Цитата Сообщение от Layetheme Посмотреть сообщение
ввести данные с клавиатуры
Pascal
1
2
3
for i:=1 to n do
for j:=1 to m do
readln(arr[i,j]);
Цитата Сообщение от Layetheme Посмотреть сообщение
отсортировать нечетные строки по возрастанию
Pascal
1
2
3
4
5
6
7
8
9
10
for l:=1 to n do
if odd(l) then
for i:=1 to m-1 do
for j:=i+1 to m do
if arr[l,i]>arr[l,j] then
begin
t:=arr[l,i];
arr[l,i]:=arr[l,j];
arr[l,j]:=t;
end;
1
1 / 1 / 0
Регистрация: 06.10.2010
Сообщений: 22
31.01.2011, 23:48  [ТС] 6
Благодарю
0
1 / 1 / 0
Регистрация: 06.10.2010
Сообщений: 22
17.02.2011, 19:35  [ТС] 7
Всем доброго времени суток
Дана задача. Отсортировать нечетные строки по возрастанию

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
program srt;
uses crt;
var
i,j,l,n,m:integer;t:integer;
arr :array[1..10,1..10] of integer;
 
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy (j*5+5,i+6);
readln(arr[i,j]);
end;
for l:=1 to n do
if odd(l) then
for i:=1 to n-1 do
for j:=i+1 to m do
if arr[l,i]>arr[l,j] then
begin
t:=arr[l,i];
arr[l,i]:=arr[l,j];
arr[l,j]:=t;
end;
for I:=1 to n do
for j:=1 to m do begin
gotoxy (j*5+5,i+12);
writeln(arr[i,j]);
end;
readkey;
end.
Возникает небольшая ошибка, при сортировке массива(n,m) размером до 5х5 все сортирует правильно, но если же ввести массив размерностью 4х6 или 3х7 программа перестает сортировать строки, помогите пожалуйста исправить ошибку
0
2 / 2 / 1
Регистрация: 19.10.2009
Сообщений: 7
17.02.2011, 19:49 8
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
program srt;
uses crt;
var
i,j,l,n,m:integer;t:integer;
arr :array[1..10,1..10] of integer;
 
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy (j*5+5,i+6);
readln(arr[i,j]);
end;
for l:=1 to n do
if odd(l) then
for i:=1 to m-1 do
for j:=i+1 to m do
if arr[l,i]>arr[l,j] then
begin
t:=arr[l,i];
arr[l,i]:=arr[l,j];
arr[l,j]:=t;
end;
for I:=1 to n do
for j:=1 to m do begin
gotoxy (j*5+5,i+12);
writeln(arr[i,j]);
end;
readkey;
end.
ты в сортировке букву перепутал в внешнем цикле n вместо m
1
1 / 1 / 0
Регистрация: 06.10.2010
Сообщений: 22
17.02.2011, 20:01  [ТС] 9
Ха, спасибо, что-то я не внимательный
0
2 / 2 / 1
Регистрация: 16.12.2011
Сообщений: 44
22.01.2012, 18:47 10
Цитата Сообщение от WERTTSEA Посмотреть сообщение
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
program srt;
uses crt;
var
i,j,l,n,m:integer;t:integer;
arr :array[1..10,1..10] of integer;
 
begin
readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
gotoxy (j*5+5,i+6);
readln(arr[i,j]);
end;
for l:=1 to n do
if odd(l) then
for i:=1 to m-1 do
for j:=i+1 to m do
if arr[l,i]>arr[l,j] then
begin
t:=arr[l,i];
arr[l,i]:=arr[l,j];
arr[l,j]:=t;
end;
for I:=1 to n do
for j:=1 to m do begin
gotoxy (j*5+5,i+12);
writeln(arr[i,j]);
end;
readkey;
end.
ты в сортировке букву перепутал в внешнем цикле n вместо m
Помогите люди а почему он сортирует весь массив надо же нечетные строки!Помогите напишите как правильно
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.01.2012, 18:47
Помогаю со студенческими работами здесь

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

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

Сортировать по убыванию четные строки, по возрастанию нечетные строки матрицы
Программа заполняет матрицу A(NxM) случайными числами в диапазоне от -10 до 18. Программа...

Упорядочить четные строки матрицы по возрастанию, нечетные строки – по убыванию
Матрица 6х6 заполнена случайными числами от 0 до 20. Упорядочить четные строки матрицы по...


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

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

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