参考答案:
①经分析,完整程序代码如下。
assume cs:codesg
data segmentdb '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,197514dd 345980,590827,803530,1183000,1843000,2759000,3753000,4649000,5937000dw 3,7,9,13,28,38,130,220,476,778,1001,1442,2258,2793,4037,5635,8226dw 11542,14430,15257,17800
data endstable segmentdb 21 dup ('year summ ne in ')
table endscodesg segment
start: mov ax,datamov ds,axmov ax,tablemov es,ax;Calculating per capita incomemov bx,0mov bp,0mov si,0mov cx,21
s0: mov ax,[bx+84] mov dx,[bx+86];Write summ to tablemov es:[bp+5],ax mov es:[bp+7],dxdiv word ptr [si+168]mov es:[bp+13],ax;Write ne to tablemov ax,[si+168]mov es:[bp+10],ax; add bx,4add bp,16add si,2loop s0;write year to tablemov bx,0mov bp,0mov si,0mov cx,21
s1: mov al,[bx]mov es:[bp],almov al,[bx+1]mov es:[bp+1],almov al,[bx+2]mov es:[bp+2],almov al,[bx+3]mov es:[bp+3],aladd bx,4add bp,16loop s1mov ax,4c00hint 21h
codesg ends
end start
②进入Dos
,编译并连接上述程序,结果如下。