機(jī)械專業(yè)的學(xué)生實(shí)驗(yàn)報(bào)告-文庫(kù)吧在線文庫(kù)
【正文】 UME CS:CODE, DS:DATASTART: MOV AX, DATA MOV DS, AX MOV AH, 1 INT 21H ；讀入一字符送入AL CMP AL, ‘a(chǎn)39。二、實(shí)驗(yàn)?zāi)康恼莆諈R編語言子程序的設(shè)計(jì)方法；掌握主程序與子程序之間的調(diào)用關(guān)系及調(diào)用方法。最后按學(xué)號(hào)順序把名次從終端顯示出來。程序框圖：源程序模塊名： 總控模塊EXTRN INPUT:FAREXTRN RANKP:FAREXTRN OUTPUT:FARCODE SEGMENTASSUME CS:CODESTART:CALL FAR PTR INPUT CALL FAR PTR RANKP CALL FAR PTR OUTPUT MOV AH,4CH INT 21H CODE ENDS END START模塊名： 輸入模塊PUBLIC INPUTPUBLIC GRADEPUBLIC COUNT DATA SEGMENT PUBLICGRADE DW 50 DUP(?)COUNT DW ?MESS1 DB 39。 MOV AH,02 INT 21H ADD SI,2 DEC DI JNZ NEXT1 RETBINIDEC PROC NEAR PUSH BX PUSH CX。JZ STORECMP DL,13JZ EXITSTORE:MOV GRADE[SI],BXADD SI,2JMP ENTEREXIT:MOV GRADE[SI],BXMOV DL,0AHMOV AH,02HINT 21HRETDECIBIN PROC NEAR MOV BX,0NEWCHAR: MOV AH,1 INT 21H MOV DL,AL SUB AL,30H JL EXIT1 CMP AL,9D JG EXIT1 CBW XCHG AX,BX MOV CX,10 MUL CX XCHG AX,BX ADD BX,AX JMP NEWCHAR EXIT1:RET DECIBIN ENDPINPUT ENDPCODE ENDS END 模塊名： 學(xué)生成績(jī)名次計(jì)算模塊EXTRN GRADE:WORDEXTRN COUNT:WORDPUBLIC RANKPPUBLIC RANKDATA SEGMENT PUBLICRANK DW 50 DUP(?)DATA ENDSCODE SEGMENTASSUME CS:CODE,DS:DATARANKP PROC FARMOV AX,DATAMOV DS,AXMOV DX,COUNTMOV BX,0LOOP1:MOV AX,GRADE[BX]MOV RANK[BX],0MOV CX,COUNTLEA SI,GRADENEXT:CMP AX,[SI]JG NO_COUNTINC RANK[BX]NO_COUNT:ADD SI,2LOOP NEXTADD BX,2DEC DXJNE LOOP1RETRANKP ENDPCODE ENDS END 模塊名： 輸出模塊EXTRN RANK:WORDEXTRN COUNT:WORDPUBLIC OUTPUTDATA SEGMENT PUBLICMESS2 DB 39。② 程序INPUT
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1