主题：新手求助
hmx0979
[专家分：160] 发布于 2006-02-16 18:41:00
9.编程序打印出下列图案：
平行四边形 等腰三解形 菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
回复列表 （共21个回复）
沙发
hmx0979 [专家分：160] 发布于 2006-02-16 19:11:00
没人理我啊
板凳
lmj9201 [专家分：1400] 发布于 2006-02-16 19:32:00
可以直接打印啊
3 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 19:39:00
1
begin
writeln(' ******');
writeln(' ****** ');
writeln(' ****** ');
writeln(' ****** ');
writeln('****** ');
end.
2
begin
writeln(' * ');
writeln(' *** ');
writeln(' ***** ');
writeln(' ******* ');
writeln('********* ');
end.
3
begin
writeln(' * ');
writeln(' *** ');
writeln('*****');
writeln(' *** ');
writeln(' * ');
end.
4 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 19:40:00
连变量都不用定义直接打印就可以了
5 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 20:03:00
还算正规的方法
1
var
h,k:integer;
begin
for h:=4 downto 1 do
begin
write(' ':h);
for k:=1 to 6 do write('*');
writeln;
end;
for k:=1 to 6 do write('*');
end.
2
var
i:integer;
begin
for i:=4 downto 1 do
begin
write(' ':i);
case i of
4: writeln('*');
3: writeln('***');
2: writeln('*****');
1: writeln('*******');
end;
end;
writeln('*********');
end.
3
var
i:integer;
begin
for i:=3 downto 1 do
begin
write(' ':i);
case i of
3: writeln('*');
2: writeln('***');
1: writeln('*****');
end;
end;
for i:=2 to 3 do
begin
write(' ':i);
case i of
2: writeln('***');
3: writeln('*');
end;
end;
end.
6 楼
hmx0979 [专家分：160] 发布于 2006-02-16 20:39:00
谢谢,是什么意思?
7 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 21:09:00
var
h,k:integer;
begin
for h:=4 downto 1 do
begin
write(' ':h);{打印空格}
for k:=1 to 6 do write('*');{打印星,前4排的}
writeln;
end;
for k:=1 to 6 do write('*');{最后一排的}
writeln;
end.
8 楼
hmx0979 [专家分：160] 发布于 2006-02-16 21:10:00
write(' ':h); 为什么有个H?
9 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 21:13:00
var
i:integer;
begin
for i:=4 downto 1 do
begin
write(' ':i);
case i of
4: writeln('*');{第一行有4个空格和一颗星，下面依次类推}
3: writeln('***');
2: writeln('*****');
1: writeln('*******');
end;
end;
writeln('*********'){第五行没有空格而有9颗星};
end.
10 楼
lmj9201 [专家分：1400] 发布于 2006-02-16 21:15:00
write(' ':h);
就是打印h个空格
我来回复
您所在位置：