請問一下...自動判別結果問題... |
答題得分者是:cobraliu
|
nightforlove
一般會員 發表:4 回覆:5 積分:1 註冊:2008-04-08 發送簡訊給我 |
|
cobraliu
中階會員 發表:15 回覆:75 積分:83 註冊:2007-11-22 發送簡訊給我 |
自動判別結果???停止程序??
離開迴圈??? [code delphi] procedure TForm1.Button1Click(Sender: TObject); var i : integer; begin for i := 1 to 100 do Begin ShowMessage(IntToStr(i)); IF i <= 2 THEN break; End; end; [/code] 關閉程式??? [code delphi] procedure TForm1.Button2Click(Sender: TObject); VAR i : Integer; begin i := 1; IF i <= 1 THEN Close; end; [/code]
------
初學、初學、學了很久...還是在初學階段..Orz |
nightforlove
一般會員 發表:4 回覆:5 積分:1 註冊:2008-04-08 發送簡訊給我 |
大約是判斷一元二次的delta的正負那樣吧...
正就算下去 負就顯示無解那樣吧... 謝謝大大了/..
編輯記錄
nightforlove 重新編輯於 2008-04-09 23:13:43, 註解 無‧
|
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
先把你想做的這段程式碼po上來看看, 如果你都完全不會, 我們如何指導, 其實答案已經在樓上了!
===================引 用 nightforlove 文 章=================== 大約是判斷一元二次的delta的正負那樣吧... 正就算下去 負就顯示無解那樣吧... 謝謝大大了/.. |
nightforlove
一般會員 發表:4 回覆:5 積分:1 註冊:2008-04-08 發送簡訊給我 |
[code delphi] var a,b,c,delta:real; begin a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); delta:=b*b-4*a*c; if delta<0 then; close; edit4.text:=floattostr(delta); [/code] 這樣.... 一按下按鈕就close了...(就是成功了~) 但係如果用break就出錯(可能我不太明白break的用法!?) |
chenyk
高階會員 發表:14 回覆:95 積分:171 註冊:2002-07-08 發送簡訊給我 |
把 if delta<0 then; close; edit4.text:=floattostr(delta);
改成 if delta>0 then begin //delta > 0的處理 edit4.text:=floattostr(delta); end else begin // delta <= 0 的處理 end; break 一般用於強制跳離迴圈 colse 則是直接離開程式 then 後面不應該加分號 建議既然是初學,還是按部就班把該打的 begin...end 補上。別人比較容易看懂。 |
nightforlove
一般會員 發表:4 回覆:5 積分:1 註冊:2008-04-08 發送簡訊給我 |
[code delphi] procedure TForm1.Button1Click(Sender: TObject); var a,b,c,delta,plana,planb:real; begin if edit1.text='' then exit; if edit2.text='' then exit; if edit3.text='' then exit; a:=strtofloat(edit1.text); b:=strtofloat(edit2.text); c:=strtofloat(edit3.text); delta:=b*b-4*a*c; if delta<0 then begin edit8.text:='µL¸Ñ'; exit; end; if delta>0 then begin edit8.Text:=''; edit4.text:=floattostr(delta); edit5.Text:=floattostr(a) 'x*x ' floattostr(b) 'x ' floattostr(c); plana:=-b sqrt(delta)/(2*a); edit6.Text:=floattostr(plana); planb:=-b-sqrt(delta)/(2*a); edit7.Text:=floattostr(planb); end; end; [/code] 謝謝大大們... 多得你們的提示... 基本ok了... 順便問下... 我寫的東西... 有地方能縮短ma?(意思是會不會太複雜?) |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |