我要印出下列
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…請問這題要怎麼寫才可以呢？

試試把
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…請問這題要怎麼寫才可以呢？

嗯嗯…可以了…
我有用替代方式寫了另一程式(別人教的)…也可以喔…
不過這個程式對我來說有點不是很完美…
幸好大大替我解決了我的因難…原來只要這樣就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;