Сортировка

[DRAgon™]

Не понимаю ,запускаю программку и пишет, что фактический параметр должен быть переменной. Как это исправить?Помогите пожалуйста

CONST   M=3; N=4;
TYPE		matritsa = array[1..M,1..N] of integer;
CONST  a   			: matritsa =	((2,6,4,2),
									   	 (9,1,8,3),
										 (5,7,3,8));
VAR	 i,j :Word;

PROCEDURE puziryok_2 (var mass:matritsa; M,N:integer);
VAR 	i,j, i1,j1, k :integer;
		c			 :Integer;
LABEL 	metka;
BEGIN
	i1:=M; j1:=N;
	for k:=1 to M*N-1 do begin
		for i:=1 to M do
			for j:=1 to N do begin
					if NOT ((i<i1)OR(i=i1)AND(j<j1)) then goto metka;
					if j<>N then
						if mass[i,j]<mass[i,j+1] then begin
							c:=mass[i,j];
							mass[i,j]:= mass[i,j+1];
							mass[i,j+1]:=c
						end{if};
					if (j=N)AND(i<>M) then
						if mass[i,j]<mass[i+1,1] then begin
							c:=mass[i,j];
							mass[i,j]:= mass[i+1,1];
							mass[i+1,1]:=c
						end{if}
			end{for j};
metka:if j1>1 	then j1:=j1-1
					else begin j1:=N; i1:=i1-1 end
	end{for k};
END;
BEGIN
	puziryok_2 (a,M,N);
  {Pаспечатываем отсоpтиpованный массив:}
	for i:=1 to M do begin
		for j:=1 to N do Write (a[i,j],' ');
		WriteLn
	end{for};
	ReadLn
END.

[ex.cluz]

Так у вас а объявлена как константа:

CONST a : matritsa = ((2,6,4,2),
(9,1,8,3),
(5,7,3,8));

А вы хотите, например, сделать так:

Write (a[i,j],' ');

Как же оно работать будет?
Константе нельзя присвоить какое-то другое значение, нежели чем при ее объявлении.

Меняйте тип а (сделайте 2-х мерным массивом) и радуйтесь жизни


Добавлено позже.
Чет не то написал (давно с паскалем не работал). Щас разберусь...


Вот эту строчку:

for j:=1 to N do Write (a[i,j],' ');

не понимаю. Зачем вам распечатывать массив из константы? Вам, насколько я понял, отсортированный надо.

[DRAgon™]

Сообщение от ex.cluz

Так у вас а объявлена как константа:

А вы хотите, например, сделать так:

Как же оно работать будет?
Константе нельзя присвоить какое-то другое значение, нежели чем при ее объявлении.

Меняйте тип а (сделайте 2-х мерным массивом) и радуйтесь жизни


Добавлено позже.
Чет не то написал (давно с паскалем не работал). Щас разберусь...


Вот эту строчку:

for j:=1 to N do Write (a[i,j],' ');

не понимаю. Зачем вам распечатывать массив из константы? Вам, насколько я понял, отсортированный надо.

ну а как еще?

[ex.cluz]

Например, сделать puziryok_2 не процедурой, а функцией, которая возвращает тип matritsa. Вот результат этой функции и выводите на печать.

[ROMA2PVT]

Uses
   CRT;
const
  M = 3; N = 4;

type
  matritsa = array[1..M, 1..N] of integer;

const
  a: matritsa =               ((2, 6, 4, 2),
                                   (9, 1, 8, 3),
		        (5, 7, 3, 8));

var
  i, j: integer;
  kl:matritsa;

procedure puziryok_2(mass: matritsa; M, N: integer; Var rez:matritsa);
var
  i, j, i1, j1, k: integer;
  c: Integer;
label 	metka;
begin
  i1 := M;
  j1 := N;
  for k := 1 to M * N - 1 do
  begin
    for i := 1 to M do
      for j := 1 to N do
      begin
        if not ((i < i1) OR (i = i1) AND (j < j1)) then
          goto metka;
        if j <> N then
          if mass[i, j] < mass[i, j + 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i, j + 1];
            mass[i, j + 1] := c
          end{if};
        if (j = N) AND (i <> M) then
          if mass[i, j] < mass[i + 1, 1] then
          begin
            c := mass[i, j];
            mass[i, j] := mass[i + 1, 1];
            mass[i + 1, 1] := c
          end{if}
      end{for j};
    metka: if j1 > 1 then
      j1 := j1 - 1
    else
    begin
      j1 := N;
      i1 := i1 - 1
    end
  end;{for k};
  rez:=mass;
end;

begin
  Clrscr;
  puziryok_2(a, M, N, kl);
  {Pаспечатываем отсоpтиpованный массив:}{for};
  for i := 1 to M do
  begin
    for j := 1 to N do
      Write(kl[i, j], ' ');
    WriteLn
  end;
  ReadKey;
end.

Подправил.

[DRAgon™]

Спасибо!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!