- [somniumchase] 我一运行就说没有数字 01/01 11:44
- [游客] 为什么啊 08/07 15:36
- [游客] 如果想快一些 就改下面这里 dx值改成1H delay: push ax 04/19 02:53
- [lshhjx] 注释在程序中很重要,楼主不知道吗? 12/08 13:40
- [biaggi] 看不明白,在下還須學習 11/06 08:11
- [游客] 我运行的时候直接显示Unkown filename跳出了- -请问怎么改 06/16 21:44
- [游客] 勿庸置疑,注释是好习惯。与人方便自己方便。 04/12 10:33
- [游客] 老实说,看着真心累呀! 04/07 18:37
- [游客] 很无语,初学者就多看书,不要动不动要别人注释,基础打好了,再自己注释,这样比别人帮你注释好得多 12/17 19:43
- [dgkepu] 初学者:不懂,希望有多点注释带着学习学习! 12/07 20:52
- [游客] windows 7是一个64Bit操作系统,它不兼容DOS,无法识别16Bit系统。重装系统wind 02/28 21:05
- [游客] windows 7是一个64Bit操作系统,它不兼容DOS,无法识别16Bit系统。重装系统wind 02/28 21:05
- [466987333] 你好,高手,我想请教一个问题。 我用的是win7操作系统,32位的,里面没有找masm目录,是不是 12/12 17:30
- [lanfioncc] 那个太高级了。。。我还有点看不懂。。不过谢谢!!! 11/27 11:23
- [yc2010] 实验16中的 table: dw sub1,sub2,sub3,sub4 可不可以改成呢? 09/11 09:08
- [yc2010] mov bl,ah mov bh,0 add bx,bx ----------->这里为 09/07 21:03
- [yc2010] 为什么要add bx,bx呢? 09/07 20:55
- [yc2010] 那是不是像table[bx],ds[bx]....等(内存单元)都是表示一个字节呢? 09/06 21:10
- [masmaster] 杨季文的《80X86汇编语言程序设计教程》 09/01 12:52
- [游客] to masmaster shl左移4位,那al传进来的4,5,6位背景色不就没了. 为什 09/01 11:00
[2010-08-09 13:24] 顺序表算法练习之:删除数组中重复元素
设计思路:
第一步:用两重循环依次逐个查找相同的元素。 如果存在相同元素,用20h填充。
第二步:将重复元素位置存入pos单元
第三步:将出现重复元素的位置通过栈来实现倒序,如果不倒序的话, 在下面的前移动作中, 略显麻烦。
第四步:循环读取位置,将子串前移,实现目标。
;-----------------------------------------------------
1 title delete dup element in array
2 assume cs:code,ds:data,ss:stack
3 data segment
4 array db 30h,32h,32h,34h,32h,31h,33h,35h,32h,38h
5 pos db 10 dup (0)
6 msg1 db 'Before:$'
7 crlf db 0dh,0ah,'$'
8 msg2 db ' After:$'
9 data ends
10 stack segment stack
11 dw 128 dup (0)
12 stack ends
13 code segment
14 start:
15 mov ax,data
16 mov ds,ax
17 mov ax,stack
18 mov ss,ax
19 mov sp,256
20 ;----------------------------------------------------------------;
21 ;print old array
22 mov dx,offset msg1
23 mov ah,9
24 int 21h
25
26 mov bx,offset array
27 mov cx,lengthof array
28 d1: mov dl,[bx]
29 mov ah,2
30 int 21h
31 mov dl,' '
32 mov ah,2
33 int 21h
34 inc bx
35 loop d1
36 mov dx,offset crlf
37 mov ah,9
38 int 21h
39 ;----------------------------------------------------------------;
40 ;delete dup element
41 mov bx,0 ;ds:bx,First address
42 mov cx,lengthof array ;loop times
43 _out:
44 push cx ;save cx
45 mov si,bx ;
46 inc si ;init si
47 dec cx
48 _in:
49 mov al,[bx] ;compare one by one
50 cmp al,[si] ;[bx]=?[si]
51 jnz next ;
52 mov byte ptr [si],' ' ;fill space
53
54 next:
55 inc si ;si++
56 cmp bx,si ;comp bx and si
57 jz continue ;if bx=si,then jump loop
58 loop _in
59
60 pop cx ;recover cx
61 inc bx ;bx++
62 loop _out
63 ;----------------------------------------------------------------;
64 continue:
65 mov si,offset array ;array first address
66 mov di,offset pos ;dest position
67 mov cx,lengthof array ;loop times
68 L1:
69 mov al,[si] ;compare al=20h?
70 cmp al,20h ;
71 jnz jump
72 mov ax,si ;al=20h,then
73 mov [di],al ;put si into pos[di]
74 inc di ;di++
75 jump:
76 inc si ;si++
77 loop L1
78
79 ;----------------------------------------------------------------;
80 ;forward move element
81 mov bx,offset pos ;get position
82 xor ax,ax ;
83 xor cx,cx
84 L2: mov al,[bx] ;if al=0
85 cmp al,0 ;jump L2
86 jz move
87 push ax ;save bx
88 inc bx ;bx++
89 inc cx ;cx++
90 jmp L2
91
92 move:
93 mov di,offset pos ;adjust position
94 L3:
95 pop ax
96 mov [di],al ;sign pos
97 inc di ;di++
98 loop L3
99
100 mov bx,offset pos
101 L4:
102 mov al,[bx] ;if [bx]=0
103 cmp al,0 ;jump out loop
104 jz over
105
106 mov cx,lengthof array-1 ;loop times
107 sub cl,[bx]
108 mov dl,[bx]
109 mov dh,0
110 mov si,dx ;array address
111 L5:
112 mov al,array[si+1] ;forward move
113 mov array[si],al ;element,
114 mov array[si+1],' ' ;fill up space
115 inc si ;next element
116 loop L5
117
118 inc bx ;next pos
119 jmp L4
120 ;----------------------------------------------------------------;
121 ;print new array
122 over:
123 mov dx,offset msg2
124 mov ah,9
125 int 21h
126 mov bx,offset array
127 mov cx,lengthof array
128 d2: mov dl,[bx]
129 mov ah,2
130 int 21h
131 mov dl,' '
132 mov ah,2
133 int 21h
134 inc bx
135 loop d2
136 ;----------------------------------------------------------------;
137 mov ah,4ch
138 int 21h
139 code ends
140 end start
;----------------------------------------------------
作为一个练习, 给我的感觉是题目倒不难, 可是做起来的时候, 需要考虑的细节真的是太多啦! 棋谚有云:一招走错满盘皆输。写程序也一样, 多一个指令少一个指令以及指令所在位置这些细节都会影响程序的正常运行。
第一步:用两重循环依次逐个查找相同的元素。 如果存在相同元素,用20h填充。
第二步:将重复元素位置存入pos单元
第三步:将出现重复元素的位置通过栈来实现倒序,如果不倒序的话, 在下面的前移动作中, 略显麻烦。
第四步:循环读取位置,将子串前移,实现目标。
;-----------------------------------------------------
1 title delete dup element in array
2 assume cs:code,ds:data,ss:stack
3 data segment
4 array db 30h,32h,32h,34h,32h,31h,33h,35h,32h,38h
5 pos db 10 dup (0)
6 msg1 db 'Before:$'
7 crlf db 0dh,0ah,'$'
8 msg2 db ' After:$'
9 data ends
10 stack segment stack
11 dw 128 dup (0)
12 stack ends
13 code segment
14 start:
15 mov ax,data
16 mov ds,ax
17 mov ax,stack
18 mov ss,ax
19 mov sp,256
20 ;----------------------------------------------------------------;
21 ;print old array
22 mov dx,offset msg1
23 mov ah,9
24 int 21h
25
26 mov bx,offset array
27 mov cx,lengthof array
28 d1: mov dl,[bx]
29 mov ah,2
30 int 21h
31 mov dl,' '
32 mov ah,2
33 int 21h
34 inc bx
35 loop d1
36 mov dx,offset crlf
37 mov ah,9
38 int 21h
39 ;----------------------------------------------------------------;
40 ;delete dup element
41 mov bx,0 ;ds:bx,First address
42 mov cx,lengthof array ;loop times
43 _out:
44 push cx ;save cx
45 mov si,bx ;
46 inc si ;init si
47 dec cx
48 _in:
49 mov al,[bx] ;compare one by one
50 cmp al,[si] ;[bx]=?[si]
51 jnz next ;
52 mov byte ptr [si],' ' ;fill space
53
54 next:
55 inc si ;si++
56 cmp bx,si ;comp bx and si
57 jz continue ;if bx=si,then jump loop
58 loop _in
59
60 pop cx ;recover cx
61 inc bx ;bx++
62 loop _out
63 ;----------------------------------------------------------------;
64 continue:
65 mov si,offset array ;array first address
66 mov di,offset pos ;dest position
67 mov cx,lengthof array ;loop times
68 L1:
69 mov al,[si] ;compare al=20h?
70 cmp al,20h ;
71 jnz jump
72 mov ax,si ;al=20h,then
73 mov [di],al ;put si into pos[di]
74 inc di ;di++
75 jump:
76 inc si ;si++
77 loop L1
78
79 ;----------------------------------------------------------------;
80 ;forward move element
81 mov bx,offset pos ;get position
82 xor ax,ax ;
83 xor cx,cx
84 L2: mov al,[bx] ;if al=0
85 cmp al,0 ;jump L2
86 jz move
87 push ax ;save bx
88 inc bx ;bx++
89 inc cx ;cx++
90 jmp L2
91
92 move:
93 mov di,offset pos ;adjust position
94 L3:
95 pop ax
96 mov [di],al ;sign pos
97 inc di ;di++
98 loop L3
99
100 mov bx,offset pos
101 L4:
102 mov al,[bx] ;if [bx]=0
103 cmp al,0 ;jump out loop
104 jz over
105
106 mov cx,lengthof array-1 ;loop times
107 sub cl,[bx]
108 mov dl,[bx]
109 mov dh,0
110 mov si,dx ;array address
111 L5:
112 mov al,array[si+1] ;forward move
113 mov array[si],al ;element,
114 mov array[si+1],' ' ;fill up space
115 inc si ;next element
116 loop L5
117
118 inc bx ;next pos
119 jmp L4
120 ;----------------------------------------------------------------;
121 ;print new array
122 over:
123 mov dx,offset msg2
124 mov ah,9
125 int 21h
126 mov bx,offset array
127 mov cx,lengthof array
128 d2: mov dl,[bx]
129 mov ah,2
130 int 21h
131 mov dl,' '
132 mov ah,2
133 int 21h
134 inc bx
135 loop d2
136 ;----------------------------------------------------------------;
137 mov ah,4ch
138 int 21h
139 code ends
140 end start
;----------------------------------------------------
作为一个练习, 给我的感觉是题目倒不难, 可是做起来的时候, 需要考虑的细节真的是太多啦! 棋谚有云:一招走错满盘皆输。写程序也一样, 多一个指令少一个指令以及指令所在位置这些细节都会影响程序的正常运行。
评论次数(0) |
浏览次数(548) |
类型(程序与练习) |
收藏此文 |