массив из натуральных чисел, Pascal+Assembler Опции

[CooLLeR-zzz]

Создать прогрмму , где даны 10 натуральных чисел. Вывести на экран максимальные и минимальные числа.
Сидим с братом и не можем догнать ход проги , поняли одно что можно сделать через память или массив.
Пожалуста помогите народ , буду весьма благодарен !!!!!!!!!!!!!!!!!

[xds]

program MinMax;

var
  a: array[1..10] of Integer;
  i, Min, Max: Integer;

begin
  Randomize;
  for i := 1 to 10 do
    begin
      a[i] := Random(101) - 50;
      Write(a[i], ' ');
    end;
  Writeln;

  asm
    cld
    lea si,a
    lodsw
    mov bx,ax
    mov dx,ax
    mov cx,9
  @@1:
    lodsw
    cmp ax,bx
    jge @@2
    mov bx,ax
  @@2:
    cmp ax,dx
    jle @@3
    mov dx,ax
  @@3:
    loop @@1
    mov Min,bx
    mov Max,dx
  end;

  Writeln('Min = ', Min);
  Writeln('Max = ', Max);
end.

[CooLLeR-zzz]

xds извени пожалйста что ещё раз побеспокоил , помоги мне пожалуйста с описанием команд , я из них половину нашел , а вот что за команды cld , lodsw , jge @@2 , jle @@3 , что они выполняют ?

program MinMax;
var
  a: array[1..10] of Integer;
  i, Min, Max: Integer;
begin
  randomize;
  for i := 1 to 10 do
 begin
      a[i] := Random(101) - 50;
      Write(a[i], ' ');
  end;
  Writeln;

  asm
    cld  {Сброс флага направления при цепочной команде}
    lea si,a {Загрузка эффективного адреса}
    lodsw 
    mov bx,ax {В регистр bx помещается регистр ax }
    mov dx,ax {В регистр dx помещается регистр ax }
    mov cx,9 {В регистр cx помещается кол-во 9 натуральных чисел}
  @@1:
    lodsw
    cmp ax,bx {Сравниваем два операнда ax и bx}
    jge @@2
    mov bx,ax {В регистр bx помещается регистр ax }
  @@2:
    cmp ax,dx {Сравниваем два операнда ax и dx}
    jle @@3
    mov dx,ax {В регистр dx помещается регистр ax }
  @@3:
    loop @@1
    mov Min,bx {В Min помещается регистр bx }
    mov Max,dx{В Max помещается регистр dx} 
  end;

  Writeln('Min = ', Min);
  Writeln('Max = ', Max);

end.

Тегами так и не будешь пользоваться?

Сообщение отредактировано: volvo - 2.11.2006 20:07