-
da1 db 63h, 52h, 16h, 7ah :
lea bx, da1 載入 da1 位址 bx=10 09h
mov cx, word ptr da1 從 da1 獲取兩個位元組的資料,左邊高,右邊低 cx=52 63
CX 000FH 52 63 和 000FH 執行並操作 CX=00 03H
mov al, da1+2 載入 da1 資料的第三個位元組 al=16h
shl al,cl 將 al 向左移動三位 al=b0h
因此:al=b0 cl=03 bx=10 09
org 1000h
a db '$', 10h
b db 'computer'
c db 1234h, 0ffh
d db 5 dup(?)
mov al,一美元 ASCII 程式碼 al=10h
Mov dx,從高到高,從低到低的原理dx=1024h
mov bx,偏移量 b b bx=1002h
mov cx, 3[bx] 得到資料的第四和第五位元組,即 PU cx=5550h 的 ASCII 碼
-
c name:,計算了承壓含水層穩定流動單孔抽水試驗的K值和R值。
C 計算為 K q (2 MSW
ln(r/rw
r=10sw
open(1,file=’
read(1,*)q,am,rw,sw
close(1)
r0=500
ak0=1000
i ak=q/(2*
r=10*sw*sqrt(ak)
wk=abs(ak-ak0)
if( 30
ak0=ak
r0=rgoto 20
30 寫(*,k ',ak,' 高訓清(m d)r ',r,'m'
open(1,file=’
write(1,*)q(m3/d)m(m)rw(m)’,sw(m)r(m)k(m/d)’
寫(1,10)q,am,rw,qiqiansw,changchair,akclose(1)
10 format(,stopend
-
c名稱,得到無界承壓含水層不穩定流動抽水試驗的Jacob公式,得到t值和s值。
c 計算公式:s q (4 t)ln (
dimension t0(500),s1(500),t1(500)open(1,file=’
讀取(1,河西*)n,q,r
close(1)
open(1,file=’
read(1,*)t0(i),s1(i),i=1,n)close(1)
y=0x=0
a1=0b1=0
do 10 i=1,n
t1(i)=alog(t0(i))
y=y+s1(i)/n
x=x+t1(i)/n
10 continue
do 20 i=1,n
a1=a1+(t1(i)-x)*(s1(i)-y)b1=b1+(t1(i)-x)**2
20 continue
b=a1/b1
a=y-b*x
t=q/b/4/
s ( r r r r
40 write(*,t=’,t,’(m2/d)s=’,sopen(1,file=’
write(1,*)q(m3/d)r(m)t(m2/d)s’
write(1,60)q,r,t,s
close(1)
60 format(,open(1,file=’
do 80 i=1,n,3
寫(1,zen Li 90)t0(i),s1(i),t0(i+1),s1(i+1),t0(i+1),t0(i+2),s1(i+2)。
80 continue
close(1)
90 format(3(,,9x))
stopend
mov dx,3 是初始化 dx,注意 dx 中的二進位是 0000 0000 0000 0011,稍後會用到。 >>>More