Здравствуйте! Есть программа на 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[j].sum > v[j+1].sum then
begin
temp:=v[j];
v[j] := v[j+1];
v[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[j].sum > v[j+1].sum then
begin
temp_1:=v[j].sum;
v[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;