ジ橄情..★ 发表于 2012-5-15 11:18:01

实验七的程序源代码哪位大虾有啊

如题,有的麻烦发下我啊

Yara 发表于 2012-5-15 12:39:07

程序一:四个循环

assume cs:codesg,ds:data,es:table

data segment

    db '1975','1976','1977','1978','1979','1980','1981','1982','1983'

    db '1984','1985','1986','1987','1988','1989','1990','1991','1992'

    db '1993','1994','1995'

    dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514

    dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000

    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226

    dw 11452,14430,15257,17800

data ends

table segment

    db 21 dup ('year summ ne ?? ')

table ends

codesg segment

start:mov ax,data

      mov ds,ax

      mov ax,table

      mov ss,ax

      mov bx,0

      mov si,0

      mov bp,0

      mov cx,21

s0:mov ax,

   mov ,ax

   add si,2

   mov ax,

   mov ,ax

   add si,2

   add bp,10h

   loop s0



   mov cx,21

   mov bp,0

   mov si,0

s1:mov ax,

   mov ,ax

   add si,2

   mov ax,

   mov ,ax

   add si,2

   add bp,10h

   loop s1



   mov cx,21

   mov bp,0

   mov si,0

s2:mov ax,

   mov ,ax

   add si,2

   add bp,10h

   loop s2



   mov cx,21

   mov bp,0

s3:mov ax,

   mov dx,

   div word ptr

   mov ,ax

   add bp,10h

   loop s3



    mov ax,4c00h

    int 21h

codesg ends

end start

----------------------------------华丽的分割线---------------------------------

程序二:一个循环

assume cs:code,ds:data,es:table

data segment

    db '1975','1976','1977','1978','1979','1980','1981','1982','1983'

    db '1984','1985','1986','1987','1988','1989','1990','1991','1992'

    db '1993','1994','1995'

    dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514

    dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000

    dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226

    dw 11452,14430,15257,17800

data ends

table segment

    db 21 dup ('year summ ne ?? ')

table ends

code segment

start:mov ax,data

      mov ds,ax

      mov ax,table

      mov es,ax

      mov bx,0

      mov si,0

      mov di,0

      mov cx,21

s:      mov ax,

      mov es:,ax

      mov ax,.2

      mov es:.2,ax



      mov ax,.84

      mov es:.5,ax

      mov dx,.86

      mov es:.7,dx



      div word ptr ds:.168

      mov es:.13,ax

      

      mov ax,.168

      mov es:.10,ax



      add di,2

      add bx,4

      add si,16

      loop s



      mov ax,4c00h

      int 21h

code ends

end start

︵ゞ痴.想 发表于 2012-5-15 12:39:11

本帖最后由 ︵ゞ痴.想 于 2012-5-15 12:40 编辑

assume cs:code

data segment
db '1975','1976','1977','1978','1979','1980','1981','1982','1983'
db '1984','1985','1986','1987','1988','1989','1990','1991','1992'
db '1993','1994','1995'
;21个字符   84

dd 16,22,382,1356,2390,8000,16000,24486,50065,97479,140417,197514
dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000
;21个双字   168

dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226
dw 11542,14430,15257,17800
;21个字型    210

data ends

tihuan segment
db 21 dup ('year summ ne ??')
tihuan ends

code segment
start:mov ax,data
       mov ds,ax
       mov ax,tihuan
       mov es,ax
       mov cx,21
       mov bx,0
       mov si,0
      
       ;年份
a:   mov ax,ds:                     
       mov dx,ds:
       mov word ptr es:,ax
       mov word ptr es:,dx
      
       ;收入
       mov ax,ds:            
       mov dx,ds:
       mov word ptr es:,ax
       mov word ptr es:,dx
      
       ;人数
       mov ax,ds:               
       mov word ptr es:,ax
      
       ;人均收入
       mov ax,ds:
       mov dx,ds:
       divword ptr ds:
       mov es:,ax
      
      
       ;循环
       add bx,4
       add si,15
      
       loop a
      
       mov ax,4c00h
       int 21h
      
   

code ends
end start


wangshan3366 发表于 2012-5-20 12:02:29

你好 我自己写了个,感觉还行
页: [1]
查看完整版本: 实验七的程序源代码哪位大虾有啊