[Спайд]

Код:

for i:=1 to N do
 begin
 j:=i;
 while (j>1) and (B[j-1]>A[i]) do
 begin
 B[j]:=B[j-1];
 j:=j-1;
 end;
 B[j]:=A[i];
 end;
 end;

Админ: пользуемся тегами для оформления кода.

нужно перебить кусок этот программы под асемблерную вставку в Delphi
помогите завтра к зачету нужно сдать прогу

[NumLock]

вставляешь этот код в программу, ставишь на for точку останова и запускаешь. на точке останова вызываешь View CPU и переписываешь команды)

[Bargest]

Чтобы знать, до куда переписывать, можно вставить это

Код:

asm
 nop
 nop 
 nop
 nop
end;

после цикла. И перед ним заодно. Потом как сказал NumLock, скопировать команды из ViewCPU, от одного блока NOP'ов до другого.

[Спайд]

А поподробнее, а то я не очень понял как это реализовать

[Bargest]

Код:

asm
 nop
 nop 
 nop
 nop
end;
for i:=1 to N do
 begin
 j:=i;
 while (j>1) and (B[j-1]>A[i]) do
 begin
 B[j]:=B[j-1];
 j:=j-1;
 end;
 B[j]:=A[i];
 end;
 end;
asm
 nop
 nop 
 nop
 nop
end;

Потом BreakPoint на for'е и вперед.

[ALexandr555]

они сильно ускоряют? а если весь код так переписать?)

[Bargest]

Если ТАК переписать - не ускорят. NOP'ы только для выделения блока, который надо выдирать. По-хорошему его еще надо оптимизировать по полной программе, но не думаю, что ТС будет этим заниматься. Только тогда был бы прирост в скорости.
З.Ы. зачем переписывать весь код? Проще уж сразу на ассемблере писать.

[Спайд]

ставишь на for точку останова и запускаешь. на точке останова вызываешь View CPU

Как вот это сделать для меня большая проблема, можно от и до)

[NumLock]

Код:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);

procedure test;
const
  N = 10;
var
  i:  Integer;
  j: Integer;
  B, A: array [0..$ff] of Integer;
begin
  for i:=1 to N do
  begin
    j:=i;
    while (j>1) and (B[j-1]>A[i]) do
    begin
      B[j]:=B[j-1];
      j:=j-1;
    end;
    B[j]:=A[i];
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  test;
end;

в текст сам переписывай