数字统计程序，高手求救！！！

tftfttff 2008-12-31 07:35:30
汇编的课程设计：要求输入一串字符，找出其中相同的，并且最长的字符串，输出。例如，输入12223444444456，就输出为4444444，如果有相同长度的，
例如11111133444555555，则输出111111555555。我的想法是，分成3块。1.首先，将输入串放入BUF,对连续数字进行统计，放入对应位置的BUF1中，连续的数字的个数放入首个里面，例如输入1113355555，则BUF1里面为3002050000。2.然后进行排序，找出BUF1里面的最大数。3.按最大数对BUF1进行扫描，有与最大数相同的，就找到BUF里面对应位置的字符，在BUF2里面存入最大数个这个字符，扫描完毕后对BUF2进行输出。最后我自己写了一个，前面2个模块好像还行，就是第三个模块出不来结果。
（而且按Q/q退出的程序的跳转，因为跳转距离过长，编译报错，也不知道怎么办）
急啊！！！高手帮帮忙忙吧
DATA SEGMENT
BUF DB 10
DB ?
DB 10 DUP(?)
BUF1 DB 10 DUP(0)
INPUT DB 0AH,0DH,'PLEASE INPUT:',0AH,0DH
DB 'IF YOU WANT TO QUIT,PRESS Q OR q',0AH,0DH,'$'
BUF2 DB 100 DUP(0)
DATA ENDS
STACK SEGMENT USE16 STACK
DB 200 DUP(0)
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,DS;DATA,SS:STACK
START:MOV AX,DATA
MOV DS,AX
LEA DX,INPUT
MOV AH,9C
INT 21H

mov ah,08h ;按Q/q退出
int 21h
cmp al,'Q'
je exit
cmp al,'q'
je exit
LEA DX,BUF
MOV AH,0AH
INT 21H

MOV CX,-2 ；计算BUF里面有效字符长度
LEA SI,BUF
COUNT1:INC CX
INC SI
CMP BYTE PTR [SI],0DH
JNZ COUNT1

PUSH CX

LEA SI,BUF+2 ；统计BUF里面连续字符数目，放到BUF1对应的每个位置里面
LEA DI,BUF1
MOV AX,SI
MOV BX,DI
INC BYTE PTR [DI]
LOOPA:MOV DL,[SI]
INC SI
CMP DL,[SI]
JZ A
PUSH SI
PUSH BX
SUB SI,AX
ADD BX,SI
MOV DI,BX
POP BX
POP SI
A:INC BYTE PTR [DI]
LOOP LOOPA

PUSH CX ；将BUF1里面的最大数找出，放入AL中
LEA DI,BUF1
MOV AL,[DI]
DEC CX
A1:INC DI
CMP AL,[DI]
JG A2
MOV AL,[DI]
A2:LOOP A1
POP CX


LEA BX,BUF ；将与BUF1里面最大数相同的数找到，并输出与BUF相同位置的字符，输出AL次
LEA DI,BUF1
LEA SI,BUF2
MOV AH,AL
MOV AL,0
A3:CMP AH,[DI]
JNZ D
MOV DL,AH
PUSH SI
A4:PUSH AX
MOV AH,0
ADD SI,WORD PTR AX
POP AX
MOV BH,BYTE PTR [BX]
MOV BYTE PTR [SI],BH
INC SI
DEC DL
JNZ A4
D:INC DI
INC AL
POP SI
LOOP A3
MOV BYTE PTR [SI],'$'
LEA DX,BUF2
MOV AH,9
INT 21H


EXIT:MOV AX,4C00H
INT 21H
CODE ENDS
END START
...全文
113 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
cnzdgs 2009-01-01
  • 打赏
  • 举报
 回复
你的思路比较繁琐，一次扫描就够了，给你写一段参考：
BUFFER_LENGTH EQU 80 ; 缓冲区长度



DATA SEGMENT

NewLine DB 0AH, 0DH, '$'

InputBuffer DB BUFFER_LENGTH, ?, BUFFER_LENGTH DUP(?)

OutputBuffer DB BUFFER_LENGTH DUP(?), ?

Chars DB 100H DUP(0) ; 按顺序储存哪些字符出现的次数最多

RepeatCount DW 0 ; 储存重复次数

LastChar DB 0 ; 储存前一个字符

DATA ENDS



STACK SEGMENT USE16 STACK 

DB 200 DUP(0) 

STACK ENDS 



CODE SEGMENT

ASSUME CS:CODE, DS:DATA, SS:STACK

Start:

	mov ax, DATA ; 初始化

	mov ds, ax

	mov es, ax

	cld



	mov ah, 0AH ; 输入字符串

	lea dx, InputBuffer

	int 21H



	lea si, InputBuffer[1] ; 取缓冲区地址

	lea di, Chars ; 取字符数组地址

	lodsb ; 取字符串长度

	inc ax ; 把最后的0DH也算在内，作为结尾

	xor ah, ah

	mov cx, ax ; 循环次数

	xor dx, dx ; 记录当前字符重复次数

Lp:

	lodsb ; 取字符

	cmp al, LastChar ; 与前一字符比较

	jz Next ; 相同则跳转

	xchg al, LastChar ; 取出并更新前一字符

	mov bx, dx ; 取出最大重复次数

	xor dx, dx ; 重新计数

	cmp bx, RepeatCount ; 比较最大重复次数

	jc Next ; 小于当前最大重复次数则跳转

	jz Equal ; 等于则跳转

	mov RepeatCount, bx ; 更新最大重复次数

	lea di, Chars ; 重置di

Equal:

	stosb

Next:

	inc dx ; 增加计数

	loop Lp



	mov ah, 9

	lea dx, NewLine

	int 21H

	lea si, Chars ; 取字符数组地址

Print:

	cmp si, di

	jz Exit

	mov cx, RepeatCount ; 取重复次数

	lodsb ; 取字符

	mov dl, al

PrintChar:

	mov ah, 2 ; 显示字符

	int 21H

	loop PrintChar

	jmp Print

Exit:

	mov ah, 4CH

	int 21H

CODE ENDS

END Start
zhanhuichong 2009-01-01
  • 打赏
  • 举报
 回复
Gerald Recktenwald 《Numerical Methods with MATLAB》(NMM1.5数值分析工具箱) http://www.matlabsky.net/thread-325-1-1.html
Dahua Lin《Statistical Learning Toolbox》(统计学习工具箱) http://www.matlabsky.net/thread-301-1-1.html
Sergiy Iglin《Graph Theory Toolbox》(图论工具箱) http://www.matlabsky.net/thread-295-1-1.html
Jouni Hartikainen《EKF/UKF Toolbox for Matlab》(扩展卡曼滤波工具箱) http://www.matlabsky.net/thread-294-1-1.html
Paolo Di Prodi《robotic toolbox》(机器人工具箱)http://www.matlabsky.net/thread-274-1-1.html
Mike Craymer《Geodetic Toolbox》(大地测量学工具箱) http://www.matlabsky.net/thread-271-1-1.html
Gabriel Peyre《Toolbox Fast Marching》(快速步进工具箱) http://www.matlabsky.net/thread-254-1-1.html
Rasmus Anthin《Multivariable Calculus Toolbox 》(多变量微积分工具箱) http://www.matlabsky.net/thread-251-1-1.html
Janos Abonyi《Fuzzy Cluster Analysis Toolbox》(模糊聚类和数据分析工具箱) http://www.matlabsky.net/thread-239-1-1.html
Eric Debreuve《Active Contour Toolbox》(主动轮廓线工具箱)http://www.matlabsky.net/thread-238-1-1.html
YALMIP高级优化工具箱http://www.matlabsky.net/thread-237-1-1.html
Maplesoft《Maple Toolbox for MATLAB》 http://www.matlabsky.net/thread-236-1-1.html
sheffield《genetic arithmetic toolbox》(遗传算法工具箱) http://www.matlabsky.net/thread-234-1-1.html
Gonzalez《DIPUM Toolbox》(数字图像处理工具箱) http://www.matlabsky.net/thread-233-1-1.html
Frederic Moisy《EzyFit toolbox 2.20》(快速拟合工具箱)http://www.matlabsky.net/thread-232-1-2.html
Moein Mehrtash《GPS Navigation Toolbox 》(GPS导航工具箱) http://www.matlabsky.net/thread-228-1-2.html
Mike Brookes《Voice box》(语音处理工具箱) http://www.matlabsky.net/thread-227-1-2.html
Koert Kuipers《Branch And Bound toolbox 2.0》(BNB20分支定界工具箱) http://www.matlabsky.net/thread-226-1-2.html
Howard Wilson《Numerical Integration Toolbox》(NIT数值积分工具箱) http://www.matlabsky.net/thread-225-1-2.html
Kevin Murphy《Kalman filter toolbox》(卡曼滤波工具箱)http://www.matlabsky.net/thread-224-1-2.html
Brian Birge《Particle Swarm Optimization Toolbox》(PSO粒子群优化工具箱) http://www.matlabsky.net/thread-223-1-2.html
《PLS toolbox》(偏最小二乘工具箱) http://www.matlabsky.net/thread-222-1-2.html
《Math modl toolbox》(数学建模工具箱) http://www.matlabsky.net/thread-221-1-2.html
Rasmus Anthin《Finite Element Toolbox 2.1》 http://www.matlabsky.net/thread-220-1-2.html
Anton Zaicenco《FEM toolbox for solid mechanics》(固体力学有限元工具箱)http://www.matlabsky.net/thread-219-1-2.html
J.Divahar 《Airfoil_Analyzer_toolbox》(翼型分析工具箱) http://www.matlabsky.net/thread-218-1-2.html
xiaopoy 2009-01-01
  • 打赏
  • 举报
 回复
[Quote=引用 4 楼 tftfttff 的回复:]
呵呵，这么晚还有人回贴。祝大家新年快乐
[/Quote]
支持
tftfttff 2009-01-01
  • 打赏
  • 举报
 回复
呵呵，这么晚还有人回贴。祝大家新年快乐
xtdumpling 2008-12-31
  • 打赏
  • 举报
 回复
...是编译不过去，不过不是因为跳转太远了，这个可以编译了，LZ继续改吧，
DATA SEGMENT 

BUF DB 10 

    DB ? 

    DB 10 DUP(?) 

BUF1 DB 10 DUP(0) 

INPUT DB 0AH,0DH,'PLEASE INPUT:',0AH,0DH 

DB 'IF YOU WANT TO QUIT,PRESS Q OR q',0AH,0DH,'$' 

BUF2 DB 100 DUP(0) 

DATA ENDS 

STACK SEGMENT USE16 STACK 

DB 200 DUP(0) 

STACK ENDS 

CODE SEGMENT 'code'

ASSUME CS:CODE,DS:DATA,SS:STACK 

START:MOV AX,DATA 

MOV DS,AX 

LEA DX,INPUT 

MOV AH,9h

INT 21H 



mov ah,08h    ;按Q/q退出 

int 21h 

cmp al,'Q' 

je exit 

cmp al,'q' 

je exit 

LEA DX,BUF 

MOV AH,0AH 

INT 21H 



MOV CX,-2      ;计算BUF里面有效字符长度 

LEA SI,BUF 

COUNT1:INC CX 

INC SI 

CMP BYTE PTR [SI],0DH 

JNZ COUNT1 



PUSH CX 



LEA SI,BUF+2    ;统计BUF里面连续字符数目，放到BUF1对应的每个位置里面 

LEA DI,BUF1 

MOV AX,SI 

MOV BX,DI 

INC BYTE PTR [DI] 

LOOPA:MOV DL,[SI] 

INC SI 

CMP DL,[SI] 

JZ A 

PUSH SI 

PUSH BX 

SUB SI,AX 

ADD BX,SI 

MOV DI,BX 

POP BX 

POP SI 

A:INC BYTE PTR [DI] 

LOOP LOOPA 



PUSH CX                ;将BUF1里面的最大数找出，放入AL中 

LEA DI,BUF1 

MOV AL,[DI] 

DEC CX 

A1:INC DI 

CMP AL,[DI] 

JG A2 

MOV AL,[DI] 

A2:LOOP A1 

POP CX 





LEA BX,BUF              ;将与BUF1里面最大数相同的数找到，并输出与BUF相同位置的字符，输出AL次 

LEA DI,BUF1 

LEA SI,BUF2 

MOV AH,AL 

MOV AL,0 

A3:CMP AH,[DI] 

JNZ D 

MOV DL,AH 

PUSH SI 

A4:PUSH AX 

MOV AH,0 

ADD SI,WORD PTR AX 

POP AX 

MOV BH,BYTE PTR [BX] 

MOV BYTE PTR [SI],BH 

INC SI 

DEC DL 

JNZ A4 

D:INC DI 

INC AL 

POP SI 

LOOP A3 

MOV BYTE PTR [SI],'$' 

LEA DX,BUF2 

MOV AH,9 

INT 21H 





EXIT:MOV AX,4C00H 

INT 21H 

CODE ENDS 

END START
tftfttff 2008-12-31
  • 打赏
  • 举报
 回复
好急啊，高手来帮忙啊。
自己顶一下
vb/vb.net开发精粹(23)
本文探讨了使用VB编程语言时遇到的各种问题，包括字符串数据提取、模块化、数据库操作、程序性能优化、文件操作、GUI设计等多个方面，并提供了详细的解决方案和思路。涵盖了从基础到进阶的多个知识点，适合VB初学者和有一定经验的开发者。
vb/vb.net开发精粹(21)
本文涵盖了信息技术领域内的多种常见问题及其解决方案，包括但不限于VB编程、数据库操作、图像处理、音视频技术、人工智能等多个方面。从基础知识到高级应用，旨在帮助开发者解决实际问题。
我月薪2万，却是在亏钱上班……
文章讲述了无代码编程如何帮助身兼多职的职场人提高工作效率，如数据分析、项目管理等，同时指出这是一种低门槛的技能，对于非技术岗位员工成为职场硬技能有重要意义。作者推荐了一门无代码软件开发课程，强调其工作提效和兼职创收的价值。,
YF2005.pdf
YF2005
易语言源码易语言桌面转移备份源码
易语言源码易语言桌面转移备份源码
汇编语言

21,500

社区成员

41,617

社区内容

发帖
与我相关
我的任务
社区描述
汇编语言（Assembly Language）是任何一种用于电子计算机、微处理器、微控制器或其他可编程器件的低级语言，亦称为符号语言。
社区管理员
  • 汇编语言
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章