Определить минимальное число перестановок местами пар чисел

@VadimBale · Регистрация: 10.06.2013

Author24 — интернет-сервис помощи студентам

Дано L чисел,которые принимают значения от 1 до L и расположены в произвольном порядке.Определить минимальное число перестановок местами пар чисел,после которых все чиса будут стоять в порядке возрастания 1,2,3....L

4<L,9

@Puporev · 06.08.2013, 14:01

Вроде так.

Pascal

uses crt;
var L,i,j,k,n,x:byte;
    a:array[1..9] of byte;
    m:set of byte;
begin
clrscr;
randomize;
repeat
write('L[4..9] L=');
readln(L);
until L in [4..9];
writeln('Исходное расположение:');
m:=[];
for i:=1 to L do
 begin
  repeat
  x:=random(L)+1;
  until not (x in m);
  m:=m+[x];
  a[i]:=x;
  write(a[i]:3);
 end;
writeln;
writeln('Обмены:');
i:=1;
k:=0;
while i<L do
 begin
  if a[i]<>i then
   begin
    k:=k+1;
    j:=i+1;
    n:=0;
    while n=0 do
    if a[j]=i then n:=j
    else j:=j+1;
    x:=a[i];
    a[i]:=a[n];
    a[n]:=x;
    i:=i+1;
    for j:=1 to L do
    write(a[j]:3);
    writeln;
    delay(1000);
   end
  else i:=i+1;
 end;
writeln('Количество обменов=',k);
readln
end.

@VadimBale 0 / 0 / 0 Регистрация: 10.06.2013 Сообщений: 36
		1
	Определить минимальное число перестановок местами пар чисел 05.08.2013, 21:17. Показов 1299. Ответов 1 Метки нет (Все метки) Дано L чисел,которые принимают значения от 1 до L и расположены в произвольном порядке.Определить минимальное число перестановок местами пар чисел,после которых все чиса будут стоять в порядке возрастания 1,2,3....L 4<L,9 0

	06.08.2013, 14:01

Определить минимальное число перестановок местами пар чисел

Решение