條件陳述式的問題 |
|
答題得分者是：chiehmin
|
|
ricky123
一般會員   發表：3 回覆：7 積分：2 註冊：2002-09-14 發送簡訊給我 |
|
|
chiehmin
高階會員  發表：13 回覆：134 積分：134 註冊：2002-05-23 發送簡訊給我 |
|
|
00156
高階會員 發表：45 回覆：195 積分：112 註冊：2002-06-01 發送簡訊給我 |
|
|
ricky123
一般會員 發表：3 回覆：7 積分：2 註冊：2002-09-14 發送簡訊給我 |
|
|
chiehmin
高階會員 發表：13 回覆：134 積分：134 註冊：2002-05-23 發送簡訊給我 |
不是很懂00156兄的寫法..?
不過當abcd分別為0001的時後好像會錯誤?? 變成a=b and c=d....
改成下面這樣就正確囉～～
x := StrToInt(IntToStr(Byte(a=b))
IntToStr(Byte(b=c))
IntToStr(Byte(c=d))
);
Case x of
1, 11, 100, 110:ShowMessage('a=b or c=d');
101:ShowMessage('a=b and c=d');
111:ShowMessage('a=b=c=d');
End; ===================================================
If ((a <> b) and (c = d)) then
ShowMessage('a不等於b且c等於d'); 發表人 - chiehmin 於 2002/10/05 13:26:20
|
|
00156
高階會員 發表：45 回覆：195 積分：112 註冊：2002-06-01 發送簡訊給我 |
作法只是將boolean數值化來判斷而已，當true時為1；false時為0
嗯～忽略了b=c時的狀況。所以稍微修改一下…
var a,b,c,d:integer;
x:byte;
Begin
x:=Byte(a=b) Byte(c=d); //←修改這行
Inc(x,Byte((x=2) and (b=c))); //←修改這行
Case x of
1:ShowMessage('a=b or c=d');
2:ShowMessage('a=b and c=d');
3:ShowMessage('a=b=c=d');
End;
End;
|
|
00156
高階會員 發表：45 回覆：195 積分：112 註冊：2002-06-01 發送簡訊給我 |
發表時間：2002-10-05 09:16:45
IP:61.216.xxx.xxx 未訂閱
系統時間：2024-11-23 10:54:32
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |