【正文】 nteger。begin s:=strtonum(,haob)。 s:=int(s)。 s1:=1。 i:=1。 while i=s do begin s1:=s1*i。 i:=i+1。 end。 :=numtostr(s1,haob)。end。procedure (Sender: TObject)。var s:real。 s1:string。begin s1:=。 s:=strtonum(s1,haob)。 if s0 then begin s:=log10(s)。 :=numtostr(s,haob)。 end else (39。數(shù)值錯誤，請檢查！39。,39。提示信息39。,mb_ok)。end。procedure (Sender: TObject)。var s:real。begin s:=strtonum(,haob)。 if s0 then begin s:=ln(s)。 :=numtostr(s,haob)。 end else (39。數(shù)值錯誤，請檢查！39。,39。提示信息39。,mb_ok)。end。procedure (Sender: TObject)。begin :=numtostr(,haob)。end。procedure (Sender: TObject)。var s:real。begin s:=strtonum(,haob)。 s:=int(s)。 :=numtostr(s,haob)。end。procedure (Sender: TObject)。var s,x:real。begin s:=strtonum(,haob)。 if s=0 then x:=1 else x:=0。 :=numtostr(x,haob)。end。procedure (Sender: TObject)。begin num1:=strtonum(,haob)。 sign:=6。 //x^y :=39。039。 start_flag:=false。 n1_flag:=true。end。procedure (Sender: TObject)。begin num1:=strtonum(,haob)。 sign:=7。 //and :=39。039。 start_flag:=false。 n1_flag:=true。end。procedure (Sender: TObject)。begin num1:=strtonum(,haob)。 sign:=8。 //or :=39。039。 start_flag:=false。 n1_flag:=true。end。procedure (Sender: TObject)。begin num1:=strtonum(,haob)。 sign:=9。//xor :=39。039。 start_flag:=false。 n1_flag:=true。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。A39。 start_flag:=true end else :=+39。A39。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。B39。 start_flag:=true end else :=+39。B39。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。C39。 start_flag:=true end else :=+39。C39。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。D39。 start_flag:=true end else :=+39。D39。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。E39。 start_flag:=true end else :=+39。E39。end。procedure (Sender: TObject)。begin if start_flag=false then begin :=39。F39。 start_flag:=true end else :=+39。F39。end。procedure (Sender: TObject)。begin :=true。 :=true。 :=true。 :=true。 stat_count:=0。end。procedure (Sender: TObject)。begin stat_count:=stat_count+1。 stat_mem[stat_count]:=strtonum(,haob)。end。procedure (Sender: TObject)。var s:real。 i:integer。begin s:=0。 for i:=1 to stat_count do s:=s+stat_mem[i]。 :=numtostr(s,haob)。end。procedure (Sender: TObject)。var s:real。 i:integer。begin s:=0。 for i:=1 to stat_count do s:=s+stat_mem[i]。 s:=s /stat_count。 :=numtostr(s,haob)。end。procedure (Sender: TObject)。var s1,s2:real。 i:integer。begin s1:=0。 for i:=1 to stat_count do s1:=s1+stat_mem[i]。 s1:=s1 /stat_count。 s2:=0。 for i:=1 to stat_count do s2:=s2+(stat_mem[i]s1)*(stat_mem[i]s1)。 s2:=sqrt(s2)。 :=numtostr(s2,haob)。end