主题：求助！怎样打印下面图案？
苹果Apple
[专家分：0] 发布于 2005-10-23 17:41:00
[em18]求助，用for循环语句怎样打印下面图案？
*
* * *
** * * *
回复列表 （共15个回复）
11 楼
无敌傻仔 [专家分：210] 发布于 2005-11-14 17:46:00
哎呀，打错了。
var
j,k:integer;
begin
for j:=1 to 3 do
begin
for k:=1 to j*2-1 do
if k=1 then write('*':4-j) 改为write('*':7-j*2)
else write('*'); 改为write('*':2);
writeln;
end;
end.
12 楼
潇洒无敌剑士 [专家分：0] 发布于 2005-11-15 17:25:00
var
i,j,k:integer;
begin
read(n);*/表示边长*/
for i:=1 to n do
begin
for k:=1 to i do write(' ');
for j:=1 to 2*i-1 do
write('*');
writeln;
end;
end.
13 楼
小虾虾 [专家分：300] 发布于 2005-11-18 10:48:00
楼上的*与*之间还有空格呢
十一楼的才是最正确的.
希望给我++++++++
14 楼
小田甜 [专家分：3910] 发布于 2005-11-18 19:10:00
begin
writeln(' *');
writeln(' * * *');
writeln('* * * * *');
end.
15 楼
onasp [专家分：5600] 发布于 2005-11-25 00:13:00
var
j,i,n:integer;
begin
readln(n);
for i := 0 to n-1 do
begin
for j := i to n-2 do
write(' ');
for j :=1 to 2*i+1 do
write('* ');
writeln;
end;
readln;
end.
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 求助！怎样打印下面图案？