一个Delphi数字游戏代码
求助一个Delphi数字游戏代码
请大家帮忙 谢谢了 用Delphi编写一个平行四边形
1
111
11111
111
1
就是这个样子的 在这里谢谢了
------解决方案--------------------
不要意思上面有点小错误
请大家帮忙 谢谢了 用Delphi编写一个平行四边形
1
111
11111
111
1
就是这个样子的 在这里谢谢了
------解决方案--------------------
不要意思上面有点小错误
- Delphi(Pascal) code
function HuaLingXing(const MaxA:integer):string; var i:integer; function LXLine(const ALine:integer):string; var j:integer begin for j:=1 to ALine do result:= result + '1'; end; begin i:=1; while i<=MaxA do begin result:=result+'#13#10' + LXLine(i); i:=i+2; end; end;