撰寫一程式，求解下列二次方程式 a X2 b X c = 0 程式要求如下 ( 1 ) a , b, c 均為 real 實數型態 ( 2 ) 以 Inputbox( ) 讓使用者輸入a , b, c , 由程式判別 a 不可為零 ( 3 ) 依 a , b, c , 判別該二次方程式之解屬於下列何種情況 ( i ) 兩相異根, X=..... ( ii ) 兩重根, X=..... ( iii ) 複數根 (有實部, 如 1 2 i , 1 - 2i ), X=..... ( iv ) 虛根 (無實部, 如 2 i , - 2i ), X=..... 我是新手，可以請大家教我怎麼寫嗎？完整的程式碼，小弟不才，懇請大家幫幫忙！謝謝各位高手！

編輯記錄

作業??

引言:完整的程式碼

作業應該自己做

若要使用複數的話, 可以參考 VarCmplx unit 內的 function!! 因為一元二次方程式的根為 (-b (b^2-4ac)^(1/2))/2a 及 (-b (b^2-4ac)^(1/2))/2a 所以是否會使用複數 (Complex number) 就看 b^2-4ac 是否小於 0 試試看.

由於 VarComplexPower FUNCTION 有 bug , 所以這裡先不使用該 function, 原來想說用該 function 來進行, 這樣程式碼會簡單很多, 這裡先簡單寫一下你要解根的功能, 剩餘根型態判定的問題, 就給你當作業好了..  放三個 class="code"> uses VarCmplx, Math; procedure TForm1.Button1Click(Sender: TObject); var a, b, c: Double; d : Double; x1, x2 : Variant; begin a := StrToFloat(Edit1.Text); b := StrToFloat(Edit2.Text); c := StrToFloat(Edit3.Text); d := b*b-4*a*c; if d >= 0 then begin x1 := (-b Power(d,0.5))/(2*a); x2 := (-b-Power(d,0.5))/(2*a); end else begin x1 := VarComplexCreate((-b)/(2*a), Power(-d,0.5)/(2*a)); x2 := VarComplexCreate((-b)/(2*a), -Power(-d,0.5)/(2*a)); end; Memo1.Lines.Add(FloatToStr(a) 'x^2 ' FloatToStr(a) 'x ' FloatToStr(c) '=0'); Memo1.Lines.Add('d=' FloatToStr(d)); if VarType(x1) = varDouble then begin //實數解 Memo1.Lines.Add('x1=' FloatToStr(x1)); Memo1.Lines.Add('x2=' FloatToStr(x2)); end else begin //複數解 Memo1.Lines.Add('x1=' x1); Memo1.Lines.Add('x2=' x2); end; end;

..........竟來這問@@" 你是那位呀 ^^" [徐老師]的課可不好上呢！ 不過你也太懶了吧！題目整個po上來...... 還有你忘了貼個東西，老師有要求要用InputBox輸入喔，記得改呢！！ 可別直接用下面timhuangd大大的Edit喔 ^^"

為了問作業而入會員嗎？太誇張了

引言: ..........竟來這問@@" 你是那位呀 ^^" [徐老師]的課可不好上呢！ 不過你也太懶了吧！題目整個po上來...... 還有你忘了貼個東西，老師有要求要用InputBox輸入喔，記得改呢！！ 可別直接用下面timhuangd大大的Edit喔 ^^"

這位同學，只是問個問題？你們那麼多的廢話，就是不會才會問你們的，能否指點迷津，結果呢？就在那兒作業不作業的，真是求人不如求自已，我自已搞定了啦，不用大家的幫忙，但還是要感謝有對我指點的timhuang大大，雖然不是用你教的，但還是要謝謝你啦！

引言:只是問個問題？你們那麼多的廢話，就是不會才會問你們的，能否指點迷津，結果呢？就在那兒作業不作業的，真是求人不如求自已，我自已搞定了啦，不用大家的幫忙

處世之道有待加強... 您可以參考下面連結的討論: < href="http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28041">http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28041 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=20571 ～我也是在學習的階段,所以請您多多見諒與指教～ 發表人 - taishyang 於 2003/04/22 00:10:25

bzbz 兄 所謂國有國法，家有家規，本站當然也有些規定 請詳讀本站規定後再發言 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19264    雖未禁止發問作業 但是發問仍是需要技巧的 不僅本站，相信各大論壇都有一個不成文的規定… 就是對於將作業一字不露的po上來尋求解答的 通常不會得到好的回應…所以…學會發問技巧也是網路禮節之一