Переставить строки матрицы так чтобы их последнее элементы были в порядке невозрастания

@vl22d · Регистрация: 09.12.2013

Author24 — интернет-сервис помощи студентам

Задача:Дана матрица порядка N.Переставить строки матрицы так чтобы их последнее элементы были в порядке невозрастания.Сортировка подсчетом.
Куда мне подставить процедуру обмена строк в сортировке чтоб все норм заработало? я уже замучался..

Pascal

program rgr;
uses crt;
const n=4;
var a,b:array [1..n,1..n] of integer;
i,j,buf,z,k,l:integer;
procedure exc(str1,str2:integer);
 begin
 for z:=1 to n do
 begin
 buf:=a[str1,z];
 a[str1,z]:=a[str2,z];
 a[str2,z]:=buf;
 end;
 end;
begin
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20);
  write(a[i,j]:4);
  end;
  writeln;
 end;
 writeln;
 for j:=1 to n do
    begin
    for i:=1 to n do begin
    K:=1;
    for j:=1 to n do
    if (a[j,n]>a[i,n]) or
    ((a[j,n]=a[i,n]) and (j>i)) then k:=k+1;
    B[k,n]:=a[i,n];
    end;
    for i:=1 to n do a[i,n]:=B[i,n];
    end;
    for i:=1 to n do begin
    for j:=1 to n do begin
    write(a[i,j]:4);
    end;
    writeln
    end;
    writeln
    end.

@Svager · 11.12.2013, 02:33

у вас ошибка в 31 строке

@vl22d · 11.12.2013, 02:35 **[ТС]**

Емми. Какая?

@Svager · 11.12.2013, 02:36

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

Емми. Какая?

ну у вас программа запускается ?вообще ? у меня нет..

@vl22d · 11.12.2013, 02:39 **[ТС]**

20 минут назад запускалась. Все считала. В последнем столбце меняла все как надо. Оставалось ток всунуть процедуру чтоб еще вместе и строки поменяло

@Svager · 11.12.2013, 02:45

ну короче если все работает, то хорошо...процедуру вызываешь вот так exc(1,2) - в скобках параметры, ну я указал 1 и 2 значит переставятся , 1 и 2 строка...
пишешь их перед последним ввыводом матрции..

Pascal

program rgr;
uses crt;
const n=4;
var a,b:array [1..n,1..n] of integer;
i,j,buf,z,k,l:integer;
procedure exc(str1,str2:integer);
 begin
 for z:=1 to n do
 begin
 buf:=a[str1,z];
 a[str1,z]:=a[str2,z];
 a[str2,z]:=buf;
 end;
 end;
begin
randomize;
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  a[i,j]:=random(20);
  write(a[i,j]:4);
  end;
  writeln;
 end;
 writeln;
 for j:=1 to n do
    begin
    for i:=1 to n do begin
    K:=1;
    for j:=1 to n do
    if (a[j,n]>a[i,n]) or
    ((a[j,n]=a[i,n]) and (j>i)) then k:=k+1;
    B[k,n]:=a[i,n];
    end;
    for i:=1 to n do a[i,n]:=B[i,n];
    end;
    exc(1,2);
    for i:=1 to n do begin
    for j:=1 to n do begin
    write(a[i,j]:4);
    end;
    writeln
    end;
    writeln
    end.

@vl22d · 11.12.2013, 02:49 **[ТС]**

Это оно теперь будет переставлять строки в порядке не возрастания с помощью сортировки подсчетом? Просто доступа к кому на данный момент нет чтоб посмотреть

@Svager · 11.12.2013, 02:56

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

Это оно теперь будет переставлять строки в порядке не возрастания с помощью сортировки подсчетом? Просто доступа к кому на данный момент нет чтоб посмотреть

нет, сортировка будет только в последнем столбце, а ваша процедура меня местами две строки, которые вы укажите..

@vl22d · 11.12.2013, 03:01 **[ТС]**

Ага. .. но надо процедуру впихнуть в сортировку чтоб оно меняло не элементы а сразу строки

Добавлено через 2 минуты
Вот так мне написали ранее:
просто кидаете "сортировку подсчетом" на последний столбец
и место того, чтобы менять элементы.. меняете местами строки...
можете отдельную функцию написать для обмена строк и ее использовать

@Svager · 11.12.2013, 03:10

стоп, или короче вы меня путаете или я не пойму , ваша процедура у нее два параметра, она будет меня две строки...но если ее даже и не менять, то последние элементы строк, и так у вас отсортированы по не возрастания...у вас задании написано последние элементы строк, у вас все сделано..что не так..и без процедуры..

@vl22d · 11.12.2013, 03:14 **[ТС]**

Попробую объяснить.
Надо переставить строки так чтобы их последние элементы были в порядке не возрастания с помощью сортировки подсчетом.
Тоисть я в сортировку подсчетом последнего столбца должен еще как то впихнуть процедуру перестановки строк чтоб усе сразу заработало. По типу exc(j,j+1)

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	11.12.2013, 02:33	2
	у вас ошибка в 31 строке 1

@vl22d 0 / 0 / 1 Регистрация: 09.12.2013 Сообщений: 12
	11.12.2013, 02:35 [ТС]	3
	Емми. Какая? 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	11.12.2013, 02:36	4
	Сообщение от vl22d Емми. Какая? ну у вас программа запускается ?вообще ? у меня нет.. 0

@vl22d 0 / 0 / 1 Регистрация: 09.12.2013 Сообщений: 12
	11.12.2013, 02:39 [ТС]	5
	20 минут назад запускалась. Все считала. В последнем столбце меняла все как надо. Оставалось ток всунуть процедуру чтоб еще вместе и строки поменяло 0

@vl22d 0 / 0 / 1 Регистрация: 09.12.2013 Сообщений: 12
	11.12.2013, 02:49 [ТС]	7
	Это оно теперь будет переставлять строки в порядке не возрастания с помощью сортировки подсчетом? Просто доступа к кому на данный момент нет чтоб посмотреть 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	11.12.2013, 02:56	8
	Сообщение от vl22d Это оно теперь будет переставлять строки в порядке не возрастания с помощью сортировки подсчетом? Просто доступа к кому на данный момент нет чтоб посмотреть нет, сортировка будет только в последнем столбце, а ваша процедура меня местами две строки, которые вы укажите.. 0

@vl22d 0 / 0 / 1 Регистрация: 09.12.2013 Сообщений: 12
	11.12.2013, 03:01 [ТС]	9
	Ага. .. но надо процедуру впихнуть в сортировку чтоб оно меняло не элементы а сразу строки Добавлено через 2 минуты Вот так мне написали ранее: просто кидаете "сортировку подсчетом" на последний столбец и место того, чтобы менять элементы.. меняете местами строки... можете отдельную функцию написать для обмена строк и ее использовать 0

@Svager 399 / 378 / 408 Регистрация: 14.09.2013 Сообщений: 1,204
	11.12.2013, 03:10	10
	стоп, или короче вы меня путаете или я не пойму , ваша процедура у нее два параметра, она будет меня две строки...но если ее даже и не менять, то последние элементы строк, и так у вас отсортированы по не возрастания...у вас задании написано последние элементы строк, у вас все сделано..что не так..и без процедуры.. 0

@vl22d 0 / 0 / 1 Регистрация: 09.12.2013 Сообщений: 12
	11.12.2013, 03:14 [ТС]	11
	Попробую объяснить. Надо переставить строки так чтобы их последние элементы были в порядке не возрастания с помощью сортировки подсчетом. Тоисть я в сортировку подсчетом последнего столбца должен еще как то впихнуть процедуру перестановки строк чтоб усе сразу заработало. По типу exc(j,j+1) 0