Delphi雙迴圈問題… |
|
jkyn
一般會員 發表:3 回覆:2 積分:1 註冊:2006-11-11 發送簡訊給我 |
我要印出下列
11 21 31 41 51 61 71 81 91 101 12 22 32 42 52 62 72 82 92 13 23 33 43 53 63 73 83 14 24 34 44 54 64 74 15 25 35 45 55 65 16 26 36 46 56 17 27 37 47 18 28 38 19 29 20 程式如下… var i,j:integer; begin for i:= 1 to 10 do begin for j:=1 to (11-i) do form1.canvas.TextOut(i*60-50,j*15,inttostr(i) inttostr(j)); end; 但是最下面的卻是卬出110而不是20…請問這題要怎麼寫才可以呢? |
jeangmj
一般會員 發表:1 回覆:4 積分:6 註冊:2004-12-28 發送簡訊給我 |
試試把
form1.canvas.TextOut(i*60-50,j*15,inttostr(i) inttostr(j)); 改成 form1.canvas.TextOut(i*60-50,j*15,inttostr(i*10 j)); ===================引 用 文 章=================== 我要印出下列 11 21 31 41 51 61 71 81 91 101 12 22 32 42 52 62 72 82 92 13 23 33 43 53 63 73 83 14 24 34 44 54 64 74 15 25 35 45 55 65 16 26 36 46 56 17 27 37 47 18 28 38 19 29 20 程式如下… var i,j:integer; begin for i:= 1 to 10 do begin for j:=1 to (11-i) do form1.canvas.TextOut(i*60-50,j*15,inttostr(i) inttostr(j)); end; 但是最下面的卻是卬出110而不是20…請問這題要怎麼寫才可以呢? |
jkyn
一般會員 發表:3 回覆:2 積分:1 註冊:2006-11-11 發送簡訊給我 |
嗯嗯…可以了…
我有用替代方式寫了另一程式(別人教的)…也可以喔… 不過這個程式對我來說有點不是很完美… 幸好大大替我解決了我的因難…原來只要這樣就OK…謝謝~~~ for i:= 1 to 10 do for j:=1 to (11-i) do if j=10 then form1.canvas.TextOut(i*60-50,j*15,'20') else form1.canvas.TextOut(i*60-50,j*15,inttostr(i) inttostr(j)); end; |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |