16,748
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
eWong2016 2005-12-28
- 打赏
- 举报
我这里有本讲A*算法的书，看完后保证你对这个算法明明白白！书请到我的博客下载：http://www8k41com.xfblog.com/user1/wangyi16/archives/2005/61529.html
Blakhawk 2005-12-27
- 打赏
- 举报
没明白
daniel_skybird 2005-12-26
- 打赏
- 举报
procedure TForm1.FormActivate(Sender: TObject);
var
i,j:integer;
str:string;
begin
for i:=0 to 5 do
begin
for j:=5 downto i do
str:=str+' ';
for j:=0 to 2*i do
str:=str+'*';
memo1.Lines.Add(str);
str:='';
end;
end;
var
i,j:integer;
str:string;
begin
for i:=0 to 5 do
begin
for j:=5 downto i do
str:=str+' ';
for j:=0 to 2*i do
str:=str+'*';
memo1.Lines.Add(str);
str:='';
end;
end;
快乐老猫 2005-12-26
- 打赏
- 举报
谜语？
