求助一个Delphi数字游戏代码
请大家帮忙 谢谢了 用Delphi编写一个平行四边形
1
111
11111
111
1
就是这个样子的 在这里谢谢了
平行四边形,你是要求画图还是数字排列?
是数字 排列 不是画图 谢谢大哥帮帮忙
你那个是菱形啊,这个不难实现,首先定义一个
Delphi(Pascal) code:
function HuaLingXing(const MaxA):string;
var
i:integer;
begin
i:=1;
while i<=MaxA do
begin
result:=result+'#13#10' + '1';
i:=i+2;
end;
end;
你这个是控制台程序吗？ 我想的是在Memo上显示的
不要意思上面有点小错误
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;
这是函数,返回的就是你需要的图形了,参数就是中间最大的那行的个数,我没有调试你可以试试
你能把你QQ告诉我吗 我想向你请教几个问题 我QQ342273794 有几个地方不明白 谢谢了
这是一个控制台程序吗？
函数就是函数,在控制台可以用,在非控制台也可以用.看来不基础不牢啊
谢谢啊 刚才真
相关问答：
已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试
在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？
找到个方法
......
请教各路高手。武林前辈。我将B.EXE做成资源文件，然后加到123.dll中。用A.EXE来调用123.dll中的B.EXE
请各位前辈帮忙指教下。A.exe如何来调用dll中的exe？代码又该如何写？
无人回答？
做成资源� ......
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
程序最后输出一个S，Writeln('S='，S)； 为啥不直接写writeln(s)
Writeln(C，'…'，d)；是啥意思
输出输出等式 N3=X2—Y2 或N*N*N=X*X—Y*Y为啥要写成Writeln(N,'*',N,'*', N,'=', X,'*', X,'— ......
