求助一个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 有几个地方不明白 谢谢了
这是一个控制台程序吗？
函数就是函数,在控制台可以用,在非控制台也可以用.看来不基础不牢啊
谢谢啊 刚才真
相关问答：
返回的内容是如下代码,怎么能渠道2b?
<p class="text1">1a </p>
<p class="text1">2b </p>
<p class="text1">3c </p>
<p cl ......
delphi 手动装载驱动文件提示：
RROR (1058): The driver is marked as disabled (Start=4) in its service database entry.
是不是这个驱动必需要用INF来安装。。用自带的INF来装是正常的。用手动装载就提示如上� ......
一直想使用dll，但delphi的dll子窗体经常有各种问题，比如主窗口与dll子窗口的焦点问题，子窗口中控件的tab键、热键、enter键等的问题，子窗口退出的问题、平面按钮问题等等，网站上进行了搜索，没有比较完美的解决� ......
select * from shuju.DB where 开盘价-收盘价<=0.02
开盘价 与收盘价 是数据库里的字段
select * from aTableName where ((开盘价-收盘价) <=0.02 )
开盘价比收盘价低两分以下的情况
Mark!!!!!!
se ......
具体要求与报酬QQ729851670
771234717
“拼音编程”是什么意思
引用
“拼音编程”是什么意思
1.给一个字可以显示拼音，多音字的话能显示对应的多个拼音
2.对包含多音字的词语智能识别给出拼音。
3.对一段 ......
