IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

2 страниц V < 1 2  
  Ответить  Открыть новую тему 
> хочу оценить скорость работы сорт массива как??
сообщение
Сообщение #21


Новичок
*

Группа: Пользователи
Сообщений: 18

Репутация: -  0  +

2Gluk:
Отвечая, я ориентировался на сабж.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Lonely_Raven
****

Группа: Пользователи
Сообщений: 640
Пол: Мужской

Репутация: -  1  +

:D
ню ладно
---
я вывод цифрь тиков не прекодировал
---
------
;sorting matrix the save addres index
;
;
.MODEL SMALL
.STACK 100H
.DATA
;           1  2  3  4  5  6  7
mas      db 01,56,01,25,01,02,45 ;1
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      Db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;12
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;24
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;48
      db 04,15,56,41,14,15,03 ;1
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;60
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;1
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;72
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;84
      db 04,15,56,41,14,15,03 ;1
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;96
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 04,15,56,41,14,15,03 ;1
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;108
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;6
      db 56,02,59,02,95,03,89 ;2
      db 12,01,08,12,17,89,89 ;3
      db 05,50,15,47,34,54,45 ;4
      db 01,99,99,99,99,34,03 ;5
      db 04,15,56,41,14,15,03 ;120*7=840

      db 'яя'      
      db 10,13
      db '$'

fl_wr      db ?,'$'

time_h      dw ?,10,13,'$'
time_s      dw ?,10,13,'$'

time_h1      dw ?,10,13,'$'

time_s1      dw ?,10,13,'$'

.CODE
START:
      mov ax,@data      ;init data DS segment 
      mov ds,ax      ;/
      xor ax,ax      ;ax in zero
      mov al,0      
      mov ah,2ch
      mov al,0
      int 21h
;      mov time_h,cx
      mov time_s,dx
      xor dx,dx
      xor cx,cx
      
      mov ax,03
      int 10h
      mov dx,offset mas
      call _out_text
;      call _wait_key
      
      xor ax,ax
      xor dx,dx      
      
      mov bp,offset mas
rep:
      mov ax,ds:[bp]      ;in ax number ds:[bp] addres

      cmp ax,'яя'      ;if ax='255255' then exit this sign end mas
      je exit            ;goto exit
      cmp al,ah      ;if al>ah then 
      ja over_write      ;goto over write
      
      cmp fl_wr,1      ;
      je d_ad_m      ;
      
      inc  bp            ;
      jmp rep            ;
      
over_write:
      xchg al,ah      ;overal
      mov ds:[bp],ax      ;
;      push bp            ;saver addres

      cmp bp,0      ;if bp=0 then
      je d_ad_m      ;go to d_ad_m
      push bp
      mov fl_wr,1      ;init flag
      dec bp            ;else decrement bp
      jmp rep
d_ad_m:
      pop bp            ;
      inc bp            ;
      mov fl_wr,0      ;
      jmp rep            ;
      
exit:      
      mov ah,2ch
      int 21h
      mov time_h1,cx;
      mov time_s1,dx
      xor cx,cx
      xor dx,dx


      mov dx,offset time_s
      call _out_text
      
      mov dx,offset time_s1
      call _out_text
      
      call _wait_key
      mov dx,offset mas
      call _out_text
      
      call _wait_key
      call _exit
;      
;
;
_out_text proc near
      mov al,0
      mov ah,9
      int 21h
      ret
_out_text endp

_wait_key proc near
      mov ah,0
      int 16h
      ret
_wait_key endp

_exit proc near
      mov ah,4ch      ;|
      mov al,0      ;| -EXIT to DOS;
      int 21h            ;|/
_exit endp

END START


--------------------
Программа делает то что вы ей приказали а не то что бы ВАМ хотелось бы.
МЕРФИ
---------------------
RTFM - Read the fucking manual
---------------------
http://www.livejournal.com/users/lonley_raven/
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Теоретические вопросы · Следующая тема »
 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Стандартный · Переключить на: Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум



- Текстовая версия 21.12.2024 18:39
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name