VPF::[Assembler] Преобразование матрицы

InviZible

Дата 29.4.2007, 19:45 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 63
Регистрация: 13.9.2006

Репутация: нет
Всего: нет

Здравсвуйте. Как можно преобразовать матрицу(nxm) к виду:
    _    _
|  | |  | |
|  | |  | |
|_| |_|  |

(Змейкой)
Т.е. начинаем с левого верхнего угла и заканчиваем либо правым нижним, либо правым верхним.

Я реализовал для матриц вида 3х3, 5х5, 7х7 ....
а для 2х2, 4х4, 2х3 или 7х5 ... - не получается

Код


include mym.asm
stak segment para stack 'stack'
    dw 64 dup (?)
stak ends
data segment
a dw 10 dup (10 dup (?))
n dw ?
m dw ?
msggo db 10,13,' Vvedite kol-vo $'    
msgsto db 10,13,' Stolbcov : $'
msgstr db 10,13,' Strok    : $'
msgm db 10,13,' Vvedite matricy : $'
zv db 10,13,'******************** $'
msgpr db 10,13,'Preobrazovanie : $'
ps db 10,13,'$'
pus db ' $'
data ends
extrn read:far,write:far
code segment
start:  assume ds:data,cs:code,ss:stak
    mov ax,data
    mov ds,ax
    clear
    kursor 1,1
    out_st msggo
    out_st msgstr
    call read
    mov n,ax
    out_st msgsto
    call read
    mov m,ax
    out_st msgm
    out_st ps
    readmas a,n,m

    out_st zv
    out_st msgpr

    mov si,0
    mov bp,0
    mov ax,n
    imul m
    mov bx,2
    imul bx
    sub ax,2
    mov cx,ax
    mov bx,0    
m1:    mov ax,a+bx
    mov dx,bx
    call write
    out_st pus
    add bx,m
    add bx,n
    cmp bp,1
    je exit
        cmp bx,cx
    jl m1
    inc si
    cmp bx,cx
    je check
    add dx,2
    mov bx,dx
m2:    mov ax,a+bx
    mov dx,bx
    call write
    out_st pus
    sub bx,n
    sub bx,m
    cmp bx,0
    jg m2
    cmp bp,1
    je exit
    inc si
    add dx,2
    cmp bx,cx
    jne here
    mov bp,1
    jmp m2
here:    mov bx,dx
    jmp m1

check:  push bx
    mov ax,si
    cwd
    mov bx,2
    idiv bx
    pop bx
    cmp ah,0
    jne exit
    mov bp,1
    jmp m1

    ....

    clear,kursor,readmas - макросы из mym.asm

    Матрицу формирую так:

Код


    
    ...
    
    mov cx,n
    mov si,0
    mov bp,0
cikl:    push cx
    mov cx,m
    mov si,0
cikl2:    call read
    mov a[bp][si],ax
    add si,2
    add dl,5
    kursor dh,dl
    loop cikl2
    add bp,si
    inc dh
    mov dl,1
    kursor dh,dl
    pop cx
    loop cikl

Заранее спасибо

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »