Рассортировать главную диагональ по убыванию

@metall-nya · Регистрация: 28.09.2010

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

Паскаль+вставка на ассемблере. Не могу понять в чем трабл, вроде все логично написано х) вот код:

Pascal

uses crt;
const n=5;
type matrix=array [1..n,1..n] of integer;
var a:matrix; i,j,sum: integer;
begin
 randomize; clrscr;
 writeln('Original matrix:'); writeln;
 for i:=1 to n do
 begin
 for j:=1 to n do
  begin a[i,j]:=random(47)-25;
        write(a[i,j]:5);
  end;
  writeln;
 end;
  asm
    lea si,a
    mov ax,0
    mov cx,2*n
@1: mov ax,[si]
    mov bp,ax
    add si,2*n+2
    mov bx,[si]
    cmp ax,bx
    jg @2
    mov ax,bx
    mov bx,bp
@2: add si,2*n+2
loop @1
 end;
 writeln;
 writeln; writeln('Sorted matrix:'); writeln;
  for i:=1 to n do
  begin
  for j:=1 to n do
  begin
  write(a[i,j]:5);
  end;
  writeln;
  end;
readkey;
end.

Charles Kludge · 21.03.2012, 18:21

Навскидку - вместо BP использовать DX или DI.

@metall-nya · 22.03.2012, 08:03 **[ТС]**

неа, не помогло

@zhan313 · 22.03.2012, 10:29

Регистры это конечно хорошо, а в память кто писать будет ?

Добавлено через 36 минут

Assembler

  asm
    mov cx,n-1
@3:    lea si,a
    lea di,a
    mov ax,0
    push cx
@1: mov ax,[si]
    add di,2*n+2
    mov bx,[di]
    cmp ax,bx
    jg @2
    mov [di],ax
    mov [si],bx
@2: add si,2*n+2
loop @1
pop cx
loop @3
 end;

@metall-nya · 22.03.2012, 16:18 **[ТС]**

хм) про push я как то и позабыл, пасиб)

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	21.03.2012, 18:21	2
	Навскидку - вместо BP использовать DX или DI. 0

@metall-nya 11 / 11 / 3 Регистрация: 28.09.2010 Сообщений: 72
	22.03.2012, 08:03 [ТС]	3
	неа, не помогло 0

@metall-nya 11 / 11 / 3 Регистрация: 28.09.2010 Сообщений: 72
	22.03.2012, 16:18 [ТС]	5
	хм) про push я как то и позабыл, пасиб) 0