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

@Layetheme · Регистрация: 06.10.2010

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

@jonni · 23.11.2010, 12:52

В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать?
Или первый раз в жизни видите Паскаль и срочно горит лабораторная?)

@Layetheme · 23.11.2010, 13:22 **[ТС]**

Сообщение от jonni

В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать?
Или первый раз в жизни видите Паскаль и срочно горит лабораторная?)

Трудности конкретно в том, как найти нечетные строки, и сделать так, чтобы на выводе их сортировало по возрастанию)

@Puporev · 23.11.2010, 13:28

Сообщение от Layetheme

как найти нечетные строки, и сделать так, чтобы на выводе их сортировало по возрастанию)

Pascal

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.

@Dekio · 31.01.2011, 23:33

Сообщение от 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

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;

@Layetheme · 31.01.2011, 23:48 **[ТС]**

Благодарю

@Layetheme · 17.02.2011, 19:35 **[ТС]**

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

Pascal

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 программа перестает сортировать строки, помогите пожалуйста исправить ошибку

@WERTTSEA · 17.02.2011, 19:49

Pascal

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

@Layetheme · 17.02.2011, 20:01 **[ТС]**

Ха, спасибо, что-то я не внимательный

@Edson23 · 22.01.2012, 18:47

Сообщение от WERTTSEA

Pascal

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

Помогите люди а почему он сортирует весь массив надо же нечетные строки!Помогите напишите как правильно

@Layetheme 1 / 1 / 0 Регистрация: 06.10.2010 Сообщений: 22
		1
	Отсортировать нечетные строки по возрастанию 23.11.2010, 12:46. Показов 1115. Ответов 9 Метки нет (Все метки) Отсортировать нечетные строки по возрастанию p.s не рандомные числа __________________ Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь 0

@jonni 118 / 118 / 25 Регистрация: 03.03.2010 Сообщений: 436
	23.11.2010, 12:52	2
	В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать? Или первый раз в жизни видите Паскаль и срочно горит лабораторная?) 0

@Layetheme 1 / 1 / 0 Регистрация: 06.10.2010 Сообщений: 22
	23.11.2010, 13:22 [ТС]	3
	Сообщение от jonni В чем конкретно у вас трудности? Не знаете как найти нечетные строки? Не знаете как отсортировать? Или первый раз в жизни видите Паскаль и срочно горит лабораторная?) Трудности конкретно в том, как найти нечетные строки, и сделать так, чтобы на выводе их сортировало по возрастанию) 0

@Layetheme 1 / 1 / 0 Регистрация: 06.10.2010 Сообщений: 22
	31.01.2011, 23:48 [ТС]	6
	Благодарю 0

@Layetheme 1 / 1 / 0 Регистрация: 06.10.2010 Сообщений: 22
	17.02.2011, 20:01 [ТС]	9
	Ха, спасибо, что-то я не внимательный 0

Опции темы