153=1^3次方 5^3次方 3^3次方
const
fontsize=12;
wordsize=fontsize 4;
var
i,j,k,n,sum1:integer;
sum2:extended;
begin
n:=0;
canvas.Font.Size:=fontsize;
canvas.Brush.Style:=bsclear;
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9do
begin
sum1:=100*i 10*j k;
sum2:=intpower(i,3) intpower(j,3) intpower(k,3); 程式跑到這裡都卡在這邊
if sum1=sum2 then
begin
n:=n 1;
Canvas.TextExtent(0,wordsize*n,inttostr(sum1));
end;


end;

end.

再請問一下

abcd=a4 b4 c4 d4
程式要怎麼改?

另外我想用英文字母排出金字塔的圖形
現在程式跑出來是三角形該如何改成金字塔的形狀?

var
n, i, x, nMult, nMax : Integer;
dRtn : double;
str, sFmt : string;
begin
try
ListBox1.Clear;
nMult := StrToIntDef(Edit1.text, 0);
nMax := StrToIntDef(StringOfChar('9', nMult), 0);
sFmt := '%.' IntToStr(nMult) 'd';

for n:=1 to nMax do
begin
dRtn := 0;
str := Format(sFmt, [n]);
for i:= 1 to nMult do
begin
dRtn := dRtn power(StrToIntDef(str[i], 0), nMult);
if (dRtn > n) then
Break;
end;
if (n = Trunc(dRtn)) then
ListBox1.Items.Add(Format('%.0f',[dRtn]));
end;

ShowMessage('OK');
except

end;
end;

Edit1.Text 輸入 數值長度，'153'就輸入3 ，符合公式的答案會列在 Listbox1

金字塔之前有人問過，請多爬文。

chenyk 重新編輯於 2009-09-15 15:37:09， 註解 無‧