Подстановки Опции

[Reflex]

Помогите смотри есть две подстаноки

Код

(1  2  3  4 ... n ) и   ( 1   2  3   4 ...  n )
(x1 x2 x3 x4 ...xn)  И  (y1 y2 y3 y4 ...yn)

требуеть написать прогамму которая выведет последовательность транспозиций вида

Код

(j,j+1)
(ij,ij+1)

такую, что если первую подстановку умножить на эту последовательность получиться вторая подстановка

Сообщение отредактировано: Reflex - 15.01.2007 20:11

[Reflex]

помогите кодом, я не понимаю что делать если вход 1 2 5 и 1 2 3 , тоесть как быстро определить можно ли это сделать и как сделать то что сказал малис

[Malice]

Вот набросок для примера:

const n=4;
type tt=record x,ind:byte; end;
const
    x:array [1..n] of byte=(2,3,1,4); {было}
    y:array [1..n] of byte=(1,3,2,4); {стало}
var z:array [1..n] of tt;
i,j,k:integer;
l:tt;
begin
for i:=1 to n do
for j:=1 to n do
if x[i]=y[j] then begin z[i].x:=x[i]; z[i].ind:=j; end; {Индексируем}
for k:=1 to n do
 for i:=1 to n-1 do
  if z[i].ind> z[i+1].ind then begin
  write ('(',i,',',i+1,') ');
  l:=z[i]; z[i]:=z[i+1]; z[i+1]:=l;
  end;
end.

Проверку на возможность перестановки не делал, считается, что ты его не обманул. Но проверка нужна, ее проще всего добавить в цикл индексирования массива.