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

[CooLLeR-zzz]

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

[red_alex]

можно еще и вот так:

Код

program poisk;
var
  a : array[1 .. 10] of integer;
  i : integer;
  min, max : integer;
begin
  randomize;
  for i := 1 to 10 do
  begin
    a[i] := random(100) - 50;
    write(a[i]:4);
  end;
  writeln;


  asm
  sub si,si
  mov bx,offset a
  mov ax, [bx]
  mov max,ax
  mov min,ax
  mov cx,9
  add bx,2
@1:
  mov ax,[bx]
  cmp max,ax
  jge @fin
  mov max,ax
@fin:
  cmp min,ax
  jle @fin2
  mov min,ax
@fin2:
  add bx,2
  loop @1
end;
  writeln('min: ', min);
  writeln('max: ', max);
  readln;
end.

по команда cld флаг направления обнуляется (DF:=0), т.е когда ты просматриваешь "массив" при помощи строковых команд, ты выбирашь направления его просмотра, слева направо (DF=0) или справа налево (DF=1), взависимости от этого у тебя к (от) значению регистра SI (DI) прибавляется (отнимается) 2, если у тебя "массив" слов, или 1 если "массив" байтов
jge ... это переход для знаковых чисел, если первый операнд больше либо равен второго
jle ... аналогично , только по меньше либо равно

lodsw записывает в регистр АХ содержимое слова памяти, абсолютный адрес которого задается регистрами DS:Si, после чего меняется значение регистра SI на +-2

Сообщение отредактировано: FreeMan - 17.05.2006 8:58