【正文】 end。 s2:=sqrt(s2)。 s2:=0。 for i:=1 to stat_count do s1:=s1+stat_mem[i]。 i:integer。procedure (Sender: TObject)。 :=numtostr(s,haob)。 for i:=1 to stat_count do s:=s+stat_mem[i]。 i:integer。procedure (Sender: TObject)。 :=numtostr(s,haob)。begin s:=0。var s:real。end。begin stat_count:=stat_count+1。end。 :=true。 :=true。procedure (Sender: TObject)。F39。F39。procedure (Sender: TObject)。E39。E39。procedure (Sender: TObject)。D39。D39。procedure (Sender: TObject)。C39。C39。procedure (Sender: TObject)。B39。B39。procedure (Sender: TObject)。A39。A39。procedure (Sender: TObject)。 n1_flag:=true。039。 sign:=9。procedure (Sender: TObject)。 n1_flag:=true。039。 sign:=8。procedure (Sender: TObject)。 n1_flag:=true。039。 sign:=7。procedure (Sender: TObject)。 n1_flag:=true。039。 sign:=6。procedure (Sender: TObject)。 :=numtostr(x,haob)。begin s:=strtonum(,haob)。procedure (Sender: TObject)。 :=numtostr(s,haob)。begin s:=strtonum(,haob)。procedure (Sender: TObject)。begin :=numtostr(,haob)。end。提示信息39。數(shù)值錯誤，請檢查！39。 :=numtostr(s,haob)。begin s:=strtonum(,haob)。procedure (Sender: TObject)。,mb_ok)。,39。 end else (39。 if s0 then begin s:=log10(s)。begin s1:=。var s:real。end。 end。 while i=s do begin s1:=s1*i。 s1:=1。begin s:=strtonum(,haob)。var s,s1:real。end。 s:=s*s*s。var s:real。end。 s:=s*s。var s:real。end。 str(s1:8:5,s2)。begin s1:=strtofloat()。var s1:real。end。 str(t2:6:4,s)。 if then t1:=t1 * /180。 s:string。var t1:real。end。 str(t2:6:4,s)。 if then t1:=t1 * /180。 s:string。var t1:real。end。 str(t2:6:4,s)。 if then t1:=t1 * /180。 s:string。var t1:real。end。 :=true。procedure (Sender: TObject)。 :=true。begin :=true。end。begin :=false。end。begin :=true。end。procedure (Sender: TObject)。begin CheckOctavo。end。procedure (Sender: TObject)。begin checkHex。end。procedure (Sender: TObject)。begin CheckOctavo。end。procedure (Sender: TObject)。begin CheckAlgorism。end。 start_flag:=false。 :=39。begin num1:=strtofloat()。end。 mem_flag:=true。procedure (Sender: TObject)。,mb_ok)。,39。begin if mem_flag=true then :=floattostr(mem) else (39。end。begin mem:=strtofloat()。end。procedure (Sender: TObject)。 float_flag:=false。039。procedure (Sender: TObject)。 :=floattostr(num)。begin num:=strtofloat()。procedure (Sender: TObject)。 n1_flag:=false。提示信息39。1111除數(shù)為零，不能運算！39。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 i:=i+1。 i:=1。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 :=numtostr(num3,haob)。 end。,mb_ok) else begin num3:=num1 / num2。,39。 if sign=1 then begin if num2=0 then (39。var i:real。end。 start_flag:=false。 :=39。begin num1:=strtonum(,haob)。end。 start_flag:=false。 :=39。begin num1:=strtonum(,haob)。end。 start_flag:=false。 :=39。begin num1:=strtonum(,haob)。end。 start_flag:=false。 :=39。