Непростая задача...
const
n = 16;
type
R = record
v: integer;
p: integer
end;
mR = array[1..n] of R;
function SummOfDigits(n: integer): integer;
{ Сумма цифр в трехзначном числе }
begin
SummOfDigits := (n div 100) + ((n mod 100) div 10) + (n mod 10)
end;
procedure Swp(var a, b: R);
{ Меняет местами элементы a и b }
var
t: R;
begin
t.v := a.v; t.p := a.p;
a.v := b.v; a.p := b.p;
b.v := t.v; b.p := t.p
end;
procedure Shell(var a: mR; n: integer);
{ сортировка методом Шелла }
var
i, j, step: integer;
begin
step := n div 2;
while step > 0 do
begin
for j := n - step downto 1 do
begin
i := j;
while i <= n - step do
begin
if a[i].v > a[i + step].v then Swp(a[i], a[i + step]);
i := i + step
end
end;
step := step div 2
end
end;
var
a: array[1..n] of integer;
b: mR;
i: integer;
begin
Randomize;
Writeln('*** Исходные элементы массива ***');
for i := 1 to n do
begin
a[i] := Random(900) + 100;
b[i].v := SummOfDigits(a[i]);
b[i].p := i;
Write(a[i]:4)
end;
Writeln;
Shell(b, n);
Writeln('*** Упорядоченные по возрастанию суммы цифр элементы массива ***');
for i := 1 to n do
begin
Write(a[b[i].p]:4)
end;
Writeln
end.
Тестовое решение:
*** Исходные элементы массива ***
862 244 599 379 595 840 551 151 614 383 185 893 131 172 139 256
*** Упорядоченные по возрастанию суммы цифр элементы массива ***
131 151 244 172 551 614 840 139 256 185 383 862 595 379 893 599
Лучше скопировать код в текстовый файл - не уверен что тут он нормально будет читаться (много комментариев)
/* Рассматривать будем независимо координаты X (с шириной) и Y (с высотой) * * Варианты взаимного расположения одной координаты: * * 1) CD левее AB * A B * |-------| * |--------| * C D * * 2) CD пересекает слева AB * A B * |-------| * |--------| * C D * * 3) CD внутри AB * A B * |-------| * |-----| * C D * * 4) AB внутри CD * A B * |-------| * |---------| * C D * * 5) CD пересекает справа AB * A B * |-------| * |--------| * C D * * 6) CD правее AB * A B * |-------| * |--------| * C D */
/*****************************************************************************//* Вспомогательная функция inside_coord() определяет, что координата первого прямоугольника лежит полностью внутри второго.
Параметры: координата и размер первого прямоугольника координата и размер второго прямоугольника
Возвращает: 1 если координата первого лежит полностью внутри второго или 0 если не полностью или вообще за пределами. Фактически определяет имеем ли мы вариант 4 (см. выше).*/int inside_coord (int coord1, int size1, int coord2, int size2){ int A = coord1, B = coord1 + size1; int C = coord2, D = coord2 + size2;
/* проверяем вариант 4 */ if ((A >= C) && (B <= D)) { return 1; } else { return 0; }}
/*****************************************************************************//* Вспомогательная функция intersect_coord() определяет, что координаты не пересекаются. Параметры: координата и размер первого прямоугольника координата и размер второго прямоугольника
Возвращает: 1 если не пересекаются, 0 если хоть как-то пересекаются. Фактически определяет имеем ли мы вариант 1 или 6 (см. выше).*/int intersect_coord (int coord1, int size1, int coord2, int size2){ int A = coord1, B = coord1 + size1; int C = coord2, D = coord2 + size2;
/* проверяем вариант 1 или вариант 6 */ if ((D <= A) || (C >= B)) { return 1; } /* проверяем вариант 6 */ else if (C >= B) { return 1; } else { return 0; }}
/*****************************************************************************/
/* Переменные содержащие координаты (x, y, ширина, высота) первого прямоугольника: */int x1, y1, width1, height1;/* Переменные содержащие координаты (x, y, ширина, высота) второго прямоугольника: */int x2, y2, width2, height2;
/*****************************************************************************//* функция проверяющая, что все точки первого внутри второго * возвращает 1, если это так, 0 если не так. */int is_first_inside_second (void){int x_inside, y_inside; /* проверка, что x полностью внутри */ x_inside = inside_coord (x1, width1, x2, width2); /* проверка, что y полностью внутри */ y_inside = inside_coord (y1, height1, y2, height2);
if ((x_inside) && (y_inside)) { /* если x внутри И y внутри, то весь прямоугольник внутри */ return 1; } else { return 0; }}
/*****************************************************************************//* функция проверяющая, что все точки второго внутри первого * возвращает 1, если это так, 0 если не так. */int is_second_inside_first (void){int x_inside, y_inside; /* проверка, что x полностью внутри */ x_inside = inside_coord (x2, width2, x1, width1); /* проверка, что y полностью внутри */ y_inside = inside_coord (y2, height2, y1, height1);
if ((x_inside) && (y_inside)) { /* если x внутри И y внутри, то весь прямоугольник внутри */ return 1; } else { return 0; }}
/*****************************************************************************//* функция проверяющая, что все точки одного внутри второго * возвращает 1, если это так, 0 если не так. */int is_any_inside_any (void){ /* проверка что первый внутри второго или второй внутри первого */ if (is_first_inside_second() || is_second_inside_first()) { return 1; } else { return 0; }}
/*****************************************************************************//* функция проверяющая, что прямоугольники пересекаются * возвращает 1, если это так, 0 если не так. */int is_intersection (void){int x_intersect, y_intersect; /* проверка, что x вообще пересекаются хоть как-то */ x_intersect = intersect_coord (x1, width1, x2, width2); /* проверка, что y вообще пересекаются хоть как-то */ y_intersect = intersect_coord (y1, height1, y2, height2);
if ((x_intersect) && (y_intersect)) { /* если x пересекаются И y пересекаются, прямоугольники пересекаются */ return 1; } else { return 0; }}