Question

pascal语言怎样可以编写出这样的图形： ××× □××× □□×××

□表示一个空格×表示一个"*"号
第一行是‘***’；
第二行是‘ ***’；
第三行是‘ ***’；
输入n,就输出每行n个*，前面第一行不空，第二行空1格，第三行空2格……
并输出n行。

Answer 1

不是直接输出 这个图形是有规律的
因为第一行0个空格，3个*，增加一行就加一个空格 所以个人认为是这样的
var
i,n:integer;
begin
read(n);(输入行数）；
for i:=1 to n do
write('':i-1,'***');
end.
应该是这样 希望能帮到你

Answer 2

begin
writeln('***');
writeln('***':1);
writeln('***':2);
end.

Answer 3

直接输出法
begin
writeln('***');
writeln('***':4);
writeln('***':5);
end.

如果要连续输出n行的话，就要用for循环了。

Answer 4

begin
writeln('***');
writeln('***':1);
writeln('***':2);
end.

Answer 5

program xx；
begin
writeln('***');
writeln('***':1);
writeln('***':2);
end.

Answer 6

begin
writeln('***');
writeln('***':1);
writeln('***':2);
end.
。。应该是这样