這段程式Delphi該如何寫? |
|
|
|
tayancom
一般會員   發表：4 回覆：7 積分：2 註冊：2002-04-15 發送簡訊給我 |
|
|
kan0515
中階會員  發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
kan0515
中階會員 發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
tayancom
一般會員 發表：4 回覆：7 積分：2 註冊：2002-04-15 發送簡訊給我 |
|
|
kan0515
中階會員 發表：56 回覆：120 積分：50 註冊：2002-06-24 發送簡訊給我 |
|
|
ccchen
版主 發表：61 回覆：940 積分：1394 註冊：2002-04-15 發送簡訊給我 |
引言:
for(double d5 = d3; d3 >= d5;)
由於Delphi 所有local變數必須在begin之前宣告,無法像C 或Java般在任意位置宣告. 且ForLoop 必須使用ordinal type 故必須用 while 或Repeat取代 for(double d5 = d3; d3 >= d5;)
d3為已知, d5=d3只是initial d5之值並使 loop至少會執行一次 TimeSpace應為該AP中自定之function, 會改變d5之值使loop結束
可如此改寫
var j2:integer;
d5:double;
//d3,j,k均應有其他來源
begin
j2 := 0;
d5:=d3;
repeat
d3:=d5;
dec(j2);
d5 = TimeSpace(j, k, l j2);
until d3 < d5;
end;
發表人 - ccchen 於 2002/08/06 19:40:36 發表人 - ccchen 於 2002/08/06 19:41:29
|
|
tayancom
一般會員 發表：4 回覆：7 積分：2 註冊：2002-04-15 發送簡訊給我 |
發表時間：2002-08-06 11:31:56
IP:61.59.xxx.xxx 未訂閱
系統時間：2024-04-25 21:21:22
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |