可以幫我寫一下注解嗎? |
尚未結案
|
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |