一个图形算法的问题！！谢谢！(50分)

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #1

编写一个程序，从键盘输入一个整型变量表示行数，使屏幕上显示相应的图案。
如：
输入1显示
**
输入2显示
**
****
输入3显示
**
　****
********
输入4显示
**
　　　****
　　********
****************
依次类推。

请问怎么实现？

 

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #2

[]给自己顶下！[]不能沉大海啊！

 

L

luoxipo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #3

一个edit，一个button
button响应事件：
procedure TForm1.Button1Click(Sender: TObject);
var
count:integer;
i:integer;
j:integer;
begin
count:=StrToInt(edit1.Text );//获取行数
for i:=1 to Count do //外循环画行数
for j:=1 to (i*2) do //内循环画每行
canvas.TextOut(((j+Count-i)*10),(i*10),'*');
end;

 

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #4

从输入3以后就有问题了！
要求 输入三的时候是第三行8个 你的是6个

 

L

luoxipo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #5

一开始看错了，还以为每行都是行数×2呢，稍微修改下
procedure TForm1.Button1Click(Sender: TObject);
var
count:integer;
i:integer;
j:integer;
t:integer;
begin
count:=StrToInt(edit1.Text );//获取行数
for i:=1 to count do //外循环画行数
begin
t:=Trunc(IntPower(2,i));
for j:=1 to t do //内循环画每行
canvas.TextOut((j*10+trunc(IntPower(2,count)-t)*5),(i*10),'*');
end;
end;

 

G

gotiger

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-04-23

• #6

搞定了 给分！谢谢！！！[][][]