汇编上机试验C-最大公约数_第1页
汇编上机试验C-最大公约数_第2页
汇编上机试验C-最大公约数_第3页
汇编上机试验C-最大公约数_第4页
汇编上机试验C-最大公约数_第5页
免费预览已结束,剩余1页可下载查看

付费下载

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、实验 C 最大公因数实验目的:从键盘输入两个不超过 65535的十进制整数 a、b,输出 a、b 的最大公因数 GCD(a,b)。实验要求:键盘输入两个十进制整数 a、 b(其对应的二进制至多 16 位),以回车结束 一个十进制数的输入。 接着在下面的一行上输出这两个整数的最大公约数。 如无 最大公因数,则输出“ No GCD”。注:为方便起见,最大公因数前允许有多余的前导 0。实验结果:Please input two numbers and press Enter key when you want to stop a number!9600003Do you want to contin

2、ue(Y/N)?yPlease input two numbers and press Enter key when you want to stop a number!301200006Do you want to continue(Y/N)?yPlease input two numbers and press Enter key when you want to stop a number!50000050Do you want to continue(Y/N)?yPlease input two numbers and press Enter key when you want to

3、stop a number!00No GCDDo you want to continue(Y/N)?n实验报告要求 :1、 分析要点及调试后的正确程序。DATAS SEGMENTUSE DB 10 DUP(0)BCNUM dw ?DCNUM dw ?DETAIL db Please input two numbers and press Enter key when you want to stop a number!,$CONTINUE db Do you want to continue(Y/N)?,$NO db No GCD,$TMP db ?DATAS ENDSEXDATAS SEG

4、MENTFLG DB 0;标记是否为第一次计算, 0 是,1否EXDATAS ENDSSTACKS SEGMENTDW 100 DUP(0) STACKS ENDSCODES SEGMENTASSUME CS:CODES,DS:DATAS,SS:STACKS,ES:EXDATASSTART:MOV AX,DATASMOV ds,AXMOV AX,EXDATASMOV ES,AXSHOWQUE:CMP FLG,0;判断是否为第一次计算JZ TWO;如果是第一次计算则跳过换行CALL CHANGELINETWO:LEA DX,DETAIL ;显示提示MOV ah,9INT 21hSUB BX,BX

5、SUB CX,CXMOV CX,10MOV SI,10ready:CALL CHANGELINESUB AX,AXSUB BX,BXSUB DX,DXINPUT:MOV ah,01h ;输入INT 21hCMP al,0dhJZ DECSITEMOV TMP,alSUB AX,AXSUB DX,DXMOV AX,BXmul CXMOV BX,AXSUB TMP,30h;转换ADD BX,word ptr TMPMOV SI,BX;保存SUB AX,AXJMP INPUTDECSITE:MOV DX,BXADD SI,2CMP SI,14JZ nextJNZ readynext:SUB AX,A

6、XSUB BX,BXSUB CX,CXSUB DX,DXMOV AH,02hMOV DX,0dhINT 21hMOV AH,02hMOV DX,0ahINT 21hMYREADY:SUB AX,AXMOV DX,0MOV AX,BCNUMMOV CX,DCNUMCMP CX,0JZ result2DIV CXCMP DX,0JZ resultJNZ SUB1SUB1:MOV BCNUM,CXMOV DCNUM,DXJMP MYREADYresult2:CMP AX,0JZ NOTICEMOV DX,AXJMP mycallresult:MOV DX,DX mycall: call transf

7、erMOV ah,02h INT 21hMOV ah,02h MOV DX,0dhINT 21h MOV ah,02hMOV DX,0ah INT 21hSUB AX,AXshow:MOV FLG,1 LEA DX,CONTINUE MOV ah,09h INT 21h SUB AX,BXMOV ah,01h INT 21h CMP al,y JZ SHOWQUE CMP al,Y JZ SHOWQUE JNZ EXIT;输出转换 transfer PROC NEARMOV SI,OFFSET USE ADD SI,4 SUB BX,CX MOV bl,$ MOV SI+1,bl MOV AX

8、,DX MOV CX,5AG1:MOV DX,0 MOV BX,10DIV BX PUSH DXADD DL,30H MOV SI,DL DEC SI POP DX LOOP AG1 MOV DX,SI INC DX MOV AH,9 INT 21H RET transfer ENDP;换行CHANGELINE PROC NEAR MOV ah,02h MOV DX,0dh INT 21h MOV ah,02h MOV DX,0ah INT 21h RETCHANGELINE ENDPNOTICE:LEA DX,NOMOV ah,09h INT 21hMOV ah,02hMOV DX,0dh INT 21hMOV ah,02hMOV SI,0ah INT 21h JMP showEXIT:MOV AH,4CHINT 21HCODES ENDSEND START2、实验体会。这次实验并没有什么技术方面的难度,但是它难在输入数据长度的处理。如 果输入了五位数, 那么一个寄存器无法放下, 必须增加一个寄存器, 同时在进行 乘法除法时,也要考虑这一点。同时有些难到我的是用户友好性的方面, 为了去除一个开头显示会换行的问 题,我增加了一个 FLG 标记是否为第

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论