【正文】 ..k]。for i:=2 to n1 do for j:=n to m doif j mod i =0 then sushu:=sushu[jn]。for i:=n to m div 2 do for j:= i+1 to m doif j mod i =0 then sushu:=sushu[jn]。s:=39。39。s0:=39。39。for i:=n to m do if in in sushu then beginif length(s0+39。 39。+inttostr(i))60 then begins:=s+s0+chr(13)。s0:=39。39。 end。s0:=s0+39。 39。+inttostr(i)。end。s:=s+s0。:=s。:=()div 2。end。end。procedure(Sender: TObject)。begin:=()div 2。end。procedure(Sender: TObject。var Key: Char)。var j:set of char。beginj:=[39。039。..39。939。,8]。if not(key in j)then key:=0。end。 implementation {$R *.dfm}function d7(x:integer):boolean。beginif x mod 7=0 then d7:=true else d7:=false。end。function d17(x:integer):boolean。beginif x mod 17=0 then d17:=true else d17:=false。end。procedure(Sender: TObject)。varn:integer。beginfor n:=1000 to 4000 do if d7(n)and d17(n)then (inttostr(n))。end。 implementation {$R *.dfm} function fib(n:integer):int64。begin case n of 1,2:fib:=1。else fib:=fib(n1)+fib(n2)。end。end。procedure (Sender: TObject)。var k:integer。begin 。for k:=1 to strtoint()do (format(39。%2d %3d39。,[k,fib(k)]))。end。，判斷是否是閏年 procedure (Sender: TObject)。var y,m:integer。begin y:=strtoint()。m:=strtoint()。:=39。39。if((y mod 4 = 0)and(y mod 100 0))or(y mod 400=0)then :=+39。年是閏年,39。 else :=+39。年不是閏年,39。case m of 3,4,5::=++39。月份是春天,39。6,7,8::=++39。月份是夏天,39。9,10,11::=++39。月份是秋天,39。else :=++39。月份是冬天,39。end。case m of1,3,5,7,8,10,12::=+39。共有31天,39。4,6,9,11::=+39。共有30天,39。elseif((y mod 4 = 0)and(y mod 100 0)or(y mod 400=0))then :=+39。共有29天,39。 else:=+39。共有28天,39。end。end。 procedure(Sender: TObject)。varn,k,j:integer。s:int64。beginn:=strtoint()。j:=0。s:=0。for k:=1 to n do begin j:=j+k。s:=s+j。end。:=format(39。s = %d39。,[s])。end。procedure(Sender: TObject。var Key: Char)。var b:boolean。beginb:=(key8)and(key57)。if b then key:=0。end。，女人，小孩各有多少人 procedure(Sender: TObject)。varx,y,z:integer。p:string。begin。for x:=0 to 16 do for y:=0 to 24 do beginz:=30xy。if 3*x+2*y+z/1=50 then beginp:=format(39。%3d %3d %3d39。,[x,y,z])。(p)。end。end。end。 procedure(Sender: TObject)。vars,l,k,h:double。beginl:=strtofloat()。k:=strtofloat()。h:=strtofloat()。s:=2*l*k+2*k*h+2*l*h。:=floattostr(s)。end。 procedure(Sender: TObject。var Key: Char)。var r:real。b:boolean。begin b:=(key8)and(key39。.39。)and(key13)and(key57)。if b then key:=0。if key =13 then begin if =39。39。 then :=39。039。r:=strtofloat()。if then :=format(39。圓的面積為： %f39。,[pi*r*r])。if then :=format(39。圓的周長為： %f39。,[2*pi*r])。if then :=format(39。圓的面積為： %f39。+chr(13)+ 39。周長為: %f39。,[pi*r*r,2*pi*r])。end。end。procedure (Sender: TObject)。var sender0:tobject。key:char。begin sender0:=edit1。key:=13。(sender0,key)。end。procedure (Sender: TObject)。var sender0:tobject。key:char。begin sender0:=edit1。key:=13。(sender0,key)。end。procedure (Sender: TObject)。var sender0:tobject。key:char。beginsender0:=edit1。key:=13。(sender0,key)。end。procedure(Sender: TObject)。vark,j,n:word。begin k:=0。n:=。for j:=1to n doif strtoint([j1])mod 2 = 0 then k:=k+1。:=format(39。共有: 39。+13+39。%d個偶數(shù)，39。+13+39。%d個奇數(shù)。39。,[k,nk])。end。procedure(Sender: TObject)。begin。end。procedure(Sender: TObject。var Key: Char)。begin if(key =13)and(39。39。)then//按鍵后接收輸入的選項 begin(0,)。//按鍵后移去選項:=0。:=39。39。end。if key = 27 thenif then()。end。，并進行倒計時 procedure(Sender: TObject)。varm,n,s,h:integer。begin:=。m:=。if m:=false。showmessage(39。預定的時間到了！39。)。:=39。039。end else begin s:=m。n:=s div 60。s:=s mod 60。h:=n div 60。n:=n mod 60。:=format(39。%d:%d:%d39。,[h,n,s])。if n strtoint()then :=inttostr(n)。end。end。procedure(Sender: TObject)。begin:=True。:=strtoint()*60。end。end.第四篇：80X86語言程序設計教程(楊季文)課后習題答案第二章 答案 8086/8088通用寄存器的通用性表現(xiàn)在何處？8個通用寄存器各自有何專門用途？哪些寄存器可作為存儲器尋址方式的指針寄存器？ 答：8086/8088通用寄存器的通用性表現(xiàn)在：這些寄存器除了各自規(guī)定的專門用途外，他們均可以用于傳送和暫存數(shù)據(jù)，可以保存算術邏輯運算中的操作數(shù)和運算結果； 8個通用寄存器的專門用途如下： AX 字乘法，字除法，字I/O BX 存儲器指針CX 串操作或循環(huán)控制中的計數(shù)器 DX 字乘法，字除法，間接I/O SI 存儲器指針（串操作中的源指針）DI 存儲器指針（串操作中的目的指針）BP 存儲器指針（存取堆棧的指針）SP 堆棧指針其中BX，SI，DI，BP可作為存儲器尋址方式的指針寄存器 從程序員的角度看，8086/8088有多少個可訪問的16位寄存器？有多少個可訪問的8位 寄存器？答： 從程序員的角度看，8086/8088有14個可訪問的16位寄存器；有8個可訪問的8位寄存器； 寄存器AX與寄存器AH和AL的關系如何？請寫出如下程序片段中每條指令執(zhí)行后寄存器AX的內容： MOV AX,1234H MOV AL,98H MOV AH,76H ADD AL,81H SUB AL,35H ADD AL,AH ADC AH,AL ADD AX,0D2H SUB AX,0FFH 答： MOV AX,1234H AX=1234H MOV AL,98H AX=1298H MOV AH,76H AX=7698H ADD AL,81H AX=7619H SUB AL,35H AX=76E4H ADD AL,AH AX=765AH ADC AH,AL AX=D15AH ADD AX,0D2H AX=D22CH SUB AX,0FFH AX=D12DH 8086/8088標志寄存器中定義了哪些標志？這些標志可分為哪兩類？如何改變這些標志的狀態(tài)？答： 8086/8088標志寄存器中定義了9個標志，如下： CF: Carry Flag ZF: Zero Flag SF: Sign Flag OF: Overflow Flag PF: Parity Flag AF: Auxiliary Carry Flag DF: Direction Flag IF: Interruptenable Flag TF: Trap Flag這些標志可分為兩類，分別為：運算結果標志；狀態(tài)控制標志；采用指令SAHF可把AH中的指定位送至標志寄存器低8位SF、ZF、AF、PF、CF；采用CLC可清除CF，置CF到0 采用STC可置CF到1 采用CLD可置DF到0 采用sTD可置DF到1 采用CLI可置IF到0 采用STI可置IF到1 另外，在某些指令執(zhí)行過程中會改變部分標志的狀態(tài)； 請說說標志CF和標志OF的差異。答： 如果把指令中處理的數(shù)據(jù)按照無符號數(shù)看待，則處理結果達到進位是，置CF為1；如果把該處理中的數(shù)據(jù)按照有符號數(shù)看待，則處理結果超過有符號數(shù)表達范圍的,置OF為1；兩個標志同步進行，CPU并不知道該數(shù)的類型； 8086/8088如何尋址1M字節(jié)的存儲器物理地址空間？在劃分段時必須滿足的兩個條件是什么？最多可把1M字節(jié)空間劃分成幾個段？最少可把1M字節(jié)地址空間劃分成幾個段？ 答： 8086/8088通過對存儲器分段和使用段寄存器的方式尋址1M字節(jié)的存儲器物理地址空間；在劃分段時必須滿足的兩個條件是：邏輯段的開始地址必須是16的倍數(shù)；邏輯段的嘴道長度是64K；1M的字節(jié)空間劃分為64K個邏輯段；最少可把1M字節(jié)地址劃分成16個邏輯段； 在8086/8088上運行的程序某一時刻最多可訪問幾個段？程序最多可具有多少個段？程序至少幾個段？答： 在8086/8088上運行的程序某一時刻最多可訪問4個當前段：代碼段，數(shù)據(jù)段，堆棧段和附加段；程序最多可具有4種類型的段，最少要有一個代碼段； 存儲單元的邏輯地址如何表示？存儲單元的20位物理地址如何構成？ 答： 存儲單元的邏輯地址由段值和偏移兩部分組成：段值：偏移；存儲單元的20位物理地址可以表示為：物理地址＝段值16＋偏移； 當段重疊時，一個存儲單元的地址可表示成多個邏輯地址。請問物理地址12345H可表示多少個不同的邏輯地址？偏移最大的邏輯地址是什么？偏移最小的邏輯地址是什么？答： 12345H可表示1000H（4096）個不同的邏輯地址，偏移最大的邏輯地址是235:0FFF5H 偏移最小的邏輯地址是1234:0005H 為什么稱CS為代碼段寄存器？為什么稱SS為堆棧寄存器？答： 因為在取指令的時候，規(guī)定的段寄存器就是CS，所以CS為代碼段寄存器；而堆棧操作時規(guī)定的寄存器是SS，所以SS為堆棧寄存器； 請舉例說明何為段前綴超越。什么場合下要使用段前綴超越？ 答： 在存取一般存儲器操作數(shù)時，段寄存器可以不是DS；當偏移設計BP寄存器時，段寄存器也可以不必是SS；如Mov AX,[si] 默認段地址在DS中，也可以改變：Mov AX, ES:[si] 當數(shù)據(jù)并不在默認的DS指定段時，可以采用段前綴超越； 8086/8088的基本尋址方式可分為哪三類？他們說明了什么？ 答： 8086/8088的基本尋址方式可分為以下三類：存儲器尋址；立即尋址；寄存器尋址；他們說明了cpu有三類合計七種方式進行基本尋址； 存儲器尋址方式分為哪幾種？何為存儲器的有效地址？ 答： 存儲器尋址方式分為以下幾種：立即尋址；直接尋址；寄存器尋址；寄存器間接尋址；寄存器相對尋址；基址加變址尋址；相對基址加變址尋址；存儲器的有效地址是一個