可以幫我寫一下注解嗎? |
|
尚未結案
|
|
misia_shair
一般會員   發表：2 回覆：12 積分：2 註冊：2004-12-01 發送簡訊給我 |
各位高手，可以幫我寫一下注解嗎?
有的程式看不太懂!因為我要小改一下程式，
所以需要高手們的幫忙!
procedure TForm1.Button1Click(Sender: TObject); var tab:array[0..49] of integer; i,j,num,ball:integer; v_found:boolean; begin Memo1.Lines.Clear; ball:=strtoint(Edit1.text); //Edit內輸入你的n // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit i:=0; while i |
|
peterpcc
一般會員 發表：6 回覆：37 積分：13 註冊：2004-09-27 發送簡訊給我 |
procedure TForm1.Button1Click(Sender: TObject); var tab:array[0..49] of integer; i,j,num,ball:integer; v_found:boolean; begin Memo1.Lines.Clear; // 清空MEMO的原有內容 ball:=strtoint(Edit1.text); //Edit內輸入你的n // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit i:=0; while i |
|
misia_shair
一般會員 發表：2 回覆：12 積分：2 註冊：2004-12-01 發送簡訊給我 |
|
|
jow
尊榮會員  發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
又是樂透!
type
TLotto = 1..49;
TLottoSet = set of TLotto; function GetRandomdLottoSet(ElementCount: Integer): TLottoSet; implementation function GetRandomLottoSet(ElementCount: Integer): TLottoSet;
var
I: Integer;
L: TLotto;
begin
Result := [];
I := 0;
repeat
L := Random(MaxInt) mod 49 1;
while L in Result do L := Random(MaxInt) mod 49 1;
Result := Result [L];
Inc(I);
until I = ElementCount;
end; 個人做法,謹供參考 |
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
又是樂透!
type
TLotto = 1..49;
TLottoSet = set of TLotto; function GetRandomdLottoSet(ElementCount: Integer): TLottoSet; implementation function GetRandomLottoSet(ElementCount: Integer): TLottoSet;
var
I: Integer;
L: TLotto;
begin
Result := [];
I := 0;
repeat
L := Random(MaxInt) mod 49 1;
while L in Result do L := Random(MaxInt) mod 49 1;
Result := Result [L];
Inc(I);
until I = ElementCount;
end; 個人做法,謹供參考 |
|
jow
尊榮會員 發表：66 回覆：751 積分：1253 註冊：2002-03-13 發送簡訊給我 |
又是樂透!
type
TLotto = 1..49;
TLottoSet = set of TLotto; function GetRandomdLottoSet(ElementCount: Integer): TLottoSet; implementation function GetRandomLottoSet(ElementCount: Integer): TLottoSet;
var
I: Integer;
L: TLotto;
begin
Result := [];
I := 0;
repeat
L := Random(MaxInt) mod 49 1;
while L in Result do L := Random(MaxInt) mod 49 1;
Result := Result [L];
Inc(I);
until I = ElementCount;
end; 個人做法,謹供參考 |
|
misia_shair
一般會員 發表：2 回覆：12 積分：2 註冊：2004-12-01 發送簡訊給我 |
可以幫我看一下，那排序程式的錯誤嗎?
procedure TForm1.Button1Click(Sender: TObject); var tab:array[0..49] of integer; i,j,num,ball:integer; v_found:boolean; a,b,c:integer; begin Memo1.Lines.Clear; // 清空Memo1的原有內容 Memo2.Lines.Clear; // 清空Memo2的原有內容 ball:=strtoint(Edit1.text); //Edit1內輸入你的n // if(ball>49 ||ball<=1) return; // 在Edit1內設定,或用其他專輸數字的Edit i:=0; while i |
|
peterpcc
一般會員 發表：6 回覆：37 積分：13 註冊：2004-09-27 發送簡訊給我 |
發表時間：2004-12-08 11:34:56
IP:203.69.xxx.xxx 未訂閱
系統時間：2024-07-03 19:08:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |