本人声明：一切文章博客均可随意转载，全部开源！只要对您有小小的帮助即可。

(***)判断一个不超过65535的整数是否为质数。DATAS SEGMENT ;此处输入数据段代码 string1 db 'yes$' string2 db 'no$' data dw 1848DATAS ENDSSTACKS SEGMENT ;此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS .

在BUFFER中定义了的十个带符号字，将其中的负数变成绝对值，并以十进制方式输出。DATAS SEGMENT ;此处输入数据段代码 data dw 0,1,0aH,4,-5555,-7777,-181,-911,-4396,11 buf db 5 dup(?) DATAS ENDSSTACKS SEGMENT ;此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:ST.

一个有符号字数组以0为结束标志，编程求这个数组的最大值、 最小值、平均值。DATAS SEGMENT buf dw 100H,-90H,50H,0 max dw 0 min dw 0 ave dw 0 num dw 0 buf1 db 'The maximum number is: ','$' buf2 db 0ah,'The minimum number is: ','$' buf3 db 0ah,'The average numbe.

现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，若存在将其删除, 并在显示器上显示。DATAS SEGMENT data db 'data,name,time,file,code,path,user,exit,quit,text,$';此处输入数据段代码 string1 db 'please input the word to be deleted:$' buf db .

现有一组字符串为data,name,time,file,code,path,user,exit,quit,text，请编写程序从键盘输入4个字符的字符串，若存在将其修改为disk, 并将结果在显示器上显示。DATAS SEGMENT ;此处输入数据段代码 data db 'data,name,time,file,code,path,user,exit,quit,text,$' replace db 'disk' buf db 5,?,5 dup(?) str.

现有一控制程序共5个工序，要求输入0-4的序号，分别执行各工序的子程序，每个子程序的任务是显示其入口地址。调用后继续等待调用，按回车则结束程序的执行。DATAS SEGMENT string1 db 'please input the nuber of subprogram(1~5) or #(exit):$'; tab dw buf0,buf1,buf2,buf3,buf4DATAS ENDSSTACKS SEGMENT STACKS ENDSCODES SEGM.

在多模块设计中，主模块中调用内部模块buf1，buf2，buf3，buf4。主模块根据键盘输入的指令（如：a,b,c,d）调用上述对应的子程序，每个子程序的任务是显示其入口地址。调用后继续等待调用，若输入ESC键（ASCII码为1BH）则结束程序的执行。请编写完成该任务的程序。DATAS SEGMENT buf0 db 0ah,'Please choose the subprogram(a,b,c,d): ','$' buf dw buf1,buf2,buf3,buf4D.

DATAS SEGMENT ;此处输入数据段代码 string1 db 'yes$' string2 db 'no$' data dw 1848DATAS ENDSSTACKS SEGMENT ;此处输入堆栈段代码STACKS ENDSCODES SEGMENT ASSUME CS:CODES,DS:DATAS,SS:STACKSSTART: MOV AX,DATAS MOV DS,AX ;此处输入代码段代码