Сортировка вставками. Найти число сравнений и число обменов

@ramzes62 · Регистрация: 06.12.2010

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

Delphi

procedure Sort(var f:file_typ);
var s1,s2:stadt;
    t,i,j:integer;
 
 
begin
Reset(f);
 
If FileSize(f)<=1 then exit;
For j:=1 to FileSize(f)-1 do
  begin
 
    i:=j-1;
    seek(f,j);
    read(f,s2);
    t:=s2.key;
    s1:=s2;
 
    repeat
      seek(f,i);
      read(f,s2);
 
      if t>=s2.key then Break
 
        else
          begin
 
            seek(f,i+1);
            write(f,s2);
            i:=i-1;
          end;
    until i=-1;
    seek(f,i+1);
    write(f,s1);
     end;
     //вывести количество обменов  и сравнений
 
end;

Помогите пожалуйста. Нужно создать 2 переменные, которые будут считать количество сравнений и количество обменов. Куда в коде нужно вставить счетчики сравнений и обменов?

Добавлено через 12 часов 12 минут
Помогите, пожайлуйста.

@Kitayets · 14.01.2016, 14:21

Кликните здесь для просмотра всего текста

Delphi

procedure Sort(var f:file_typ; out num_cmp, num_exch: integer);
var s1,s2:stadt;
    t,i,j:integer;
 
 
begin
num_cmp:=0; // кол-во сравнений
num_exch:=0; //кол-во обменов
Reset(f);
 
inc(num_cmp);
If FileSize(f)<=1 then exit;
For j:=1 to FileSize(f)-1 do
  begin
 
    i:=j-1;
    seek(f,j);
    read(f,s2);
    t:=s2.key;
    s1:=s2;
 
    repeat
      seek(f,i);
      read(f,s2);
      
      inc(num_cmp);
      if t>=s2.key then Break
 
        else
          begin
            inc(num_exch);
            seek(f,i+1);
            write(f,s2);
            i:=i-1;
          end;
    until i=-1;
    inc(num_exch);
    seek(f,i+1);
    write(f,s1);
     end;
end;

в коде программы:

Delphi

{...}
var
 ncmp, nexch: integer;
{...}
begin
{...}
  Sort(file_handler, ncmp, nexch);
  writeln('количество сравнений - ', ncmp, ', количество перестановок - ', nexch);
{...}
end.

Добавлено через 2 минуты
в 11 строке наверно не нужно считать сравнение....

@ramzes62 · 14.01.2016, 22:57 **[ТС]**

Спасибо большое!

@ramzes62 0 / 0 / 0 Регистрация: 06.12.2010 Сообщений: 10
	14.01.2016, 22:57 [ТС]	3
	Спасибо большое! 0