主题：SOS！！！
致命一击
[专家分：0] 发布于 2007-11-03 18:15:00
编程输出以下图型
*
***
*****
*******
用for to 做（不能用for downto做）
回复列表 （共5个回复）
沙发
致命一击 [专家分：0] 发布于 2007-11-03 18:19:00
快快快快快快快快快快快快快快快快快！！！！！！！！！！！+50
板凳
angwuy [专家分：2280] 发布于 2007-11-03 19:55:00
var i,j,n:intger;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to n*2-4 do write('*');
writeln;
end;
end.
好久没编过这么低水平的程序
3 楼
shisutianxia [专家分：630] 发布于 2007-11-03 22:19:00
[quote]var i,j,n:intger;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for j:=1 to n*2-4 do write('*');
writeln;
end;
end.
[/quote]
不好意思，就是这么做的
4 楼
qqym710 [专家分：140] 发布于 2007-11-04 01:13:00
program ex;
var i,j,n:integer;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i+1 do write(' ');
for j:=1 to 2*i-1 do write('*');
for j:=1 to n-i+1 do write(' ');
writeln;
end;
end.
5 楼
angwuy [专家分：2280] 发布于 2007-11-04 13:04:00
最后的空格没必要输出
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — SOS！！！