● delphi水仙花数代码 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: Chengal (浩气冲天), 信区: Visual
标  题: delphi水仙花数代码
发信站: 荔园晨风BBS站 (Mon Jul 14 13:42:06 2003), 站内信件

见笑见笑

           procedure TForm1.Button1Click(Sender: TObject);
var i,j,k,number:integer;
    str:string;
begin
  for number:=100 to 999 do
    begin
    i:=number div 100;
    j:=(number mod 100) div 10;
    k:=number mod 10;
      if i*i*i+j*j*j+k*k*k=number then
          begin
          str:=str+' '+IntToStr(number);
          end;
    end;

ShowMessage(str);
end;

end.

--

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.36.4]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店