Не сортируются элементы массива структур, Не сортируются элементы массива структур Опции

[dima154]

Здравствуйте! Есть программа на FreePaskal.
Возникла следующая проблема: при сортировке двумерного массива структур по ключу sum элементы массива не сортируются. Но если сортировать не элементами массива, а только полями структуры, например sum, то тогда сортировка проходит нормально. Но сортируются только значения поля sum структуры , а не структуры целиком.
Что самое интересное, в случае сортировки элементами массива, поcле сортировки переменные str и stolb становятся равными 0, хотя они должны иметь значение 5.
Заранее большое спасибо всем ответившим за помощь и оказанное внимание!

type Value = record
     a,b,i,j,sum:integer;
end;

const A = 5;
const B = 5;

var
   temp: Value;
   v : array[1..A,1..B] of Value;
   temp: Value;
   i,j,k,m,n,c,z,x,temp_1:Integer;
   str, stolb : Integer;

{Сортируем двумерный массив. Сортируем элементы массива структур.}
     writeln();
     writeln();
     writeln(str);
     for c:=1 to str*stolb do
     begin
     {Упорядочиваем в строках}
          for i:=1 to str do
          begin
               for j:=1 to stolb do
               begin
               if v[i][j].sum > v[i][j+1].sum then
                   begin
                   temp:=v[i][j];
                   v[i][j] := v[i][j+1];
                   v[i][j+1] := temp;
                   end;
               end;
          end;
	 {Упорядочиваем в столбцах}
		for x:=1 to stolb do
		begin
			for z:=0 to str do
			begin
				if v[z][x].sum > v[z][x+1].sum then
				begin
					temp := v[z][x];
					v[z][x] := v[z][x+1];
					v[z][x+1] := temp;
				end;
			end;
		end;
                 writeln(str);
     end; 

{Сортируем двумерный массив. Сортируем поля структуры массива структур.}
const A = 5;
const B = 5;

var
   temp: Value;
   i,j,k,m,n,c,z,x,temp_1:Integer;
   str, stolb : Integer;
   x0:Char;
   {Создаем массив записей типа Value}
   v : array[1..A,1..B] of Value;
{Сортируем двумерный массив}
     writeln();
     writeln();
     writeln(str);
     for c:=1 to str*stolb do
     begin
     {Упорядочиваем в строках}
          for i:=1 to str do
          begin
               for j:=1 to stolb do
               begin
               if v[i][j].sum > v[i][j+1].sum then
                   begin
                   temp_1:=v[i][j].sum;
                   v[i][j].sum := v[i][j+1].sum;
                   v[i][j+1].sum := temp_1;
                   end;
               end;
          end;
	 {Упорядочиваем в столбцах}
		for x:=1 to stolb do
		begin
			for z:=0 to str do
			begin
				if v[z][x].sum > v[z][x+1].sum then
				begin
					temp_1 := v[z][x].sum;
					v[z][x].sum := v[z][x+1].sum;
					v[z][x+1].sum :=temp_1;
				end;
			end;
		end;
     end;

Сообщение отредактировано: volvo - 23.10.2009 23:39

[volvo]

Ну, давай начнем с того, что твоя программа (в обоих случаях, кстати) вообще аварийно вылетает:

               for j:=1 to stolb do
               begin
               if v[i][j].sum > v[i][j+1].sum then // <--- Вот тут ...

, ибо stolb = 5, и попытка обратиться к элементу v[i][6] - недопустима. Включи в настройках Range Check и запусти программу еще раз...