【正文】 begin num1:=strtonum(,haob)。end。begin num:=strtofloat()。procedure (Sender: TObject)。提示信息39。該數(shù)開方出錯，請檢查！39。 :=floattostr(num)。begin num:=strtofloat()。procedure (Sender: TObject)。 end。039。 then float_flag:=false。 if s2=39。39。 s2:=s1[i]。begin i:=()。var i,j:integer。end。 float_flag:=true end。 float_flag:=true end else begin :=+39。0.39。procedure (Sender: TObject)。039。 start_flag:=true。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 start_flag:=true end else :=+39。begin if start_flag=false then begin :=39。end。 mem_flag:=false。 float_flag:=false。039。procedure (Sender: TObject)。739。739。procedure (Sender: TObject)。 haob:=8。 s:=numtostr(StrToNum(,haob),8)。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=true。 :=true。 :=false。var s:string。end。 :=s。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=false。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。 :=true。begin :=true。procedure 。 haob:=2。 s:=numtostr(StrToNum(,haob),2)。 :=false。 :=false。 :=false。 :=false。 :=false。 :=true。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。 :=false。var s:string。end。 :=s。 x:=StrToNum(,haob)。 :=true。 :=true。 :=true。 :=true。 :=true。 :=false。 :=true。 :=false。 :=false。 :=false。 :=true。 :=true。 :=true。 :=true。 x:real。procedure 。 Stardardshow。 :=false。 :=false。 :=false。begin :=true。end。 :=true。 :=true。 :=true。 :=true。begin :=false。end。procedure (Sender: TObject)。begin ScienticToStardard。end。 :=false。 :=false。 end。 end else begin StardardToScientic。 if then begin ScienticToStardard。 n1_flag:=false。 start_flag:=false。參考文獻(xiàn)[1] 程序設(shè)計教程[M].北京：清華大學(xué)出版社，2003. [2] [M].北京：清華大學(xué)出版社， 2003[3] [M].北京：清華大學(xué)出版社,2005[4] [M].北京：機(jī)械工業(yè)出版社,2006附錄A:計算器外觀圖附錄B:源程序procedure (Sender: TObject)。而且很多時候是一個地方的改動必須要牽連到其他地方的變化，這也是最令我頭痛的。 在調(diào)試過程中。在開發(fā)過程還認(rèn)真學(xué)習(xí)了與系統(tǒng)相關(guān)的知識，極大地拓寬了本人的知識面,本人感到收獲不小。分四則運(yùn)算,統(tǒng)計運(yùn)算,三角運(yùn)算,對數(shù)運(yùn)算,邏輯運(yùn)算,進(jìn)制轉(zhuǎn)換運(yùn)算,6個模塊進(jìn)行編程調(diào)試。end。end。end。end。