level 2
lz
的学校老师布置了道题 大概描述下 就是输出
0
123
45678
9012345
……
这样的数塔
但是lz的程序
var i,j,k,n,js:longint;
begin
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for k:=-1 to 2*i-1 do
begin
if js<=9 then
begin
js:=js+1;write(js);
end
else
js:=0;write(js);
end;
writeln;
end;
readln;
end.
输出是这样的
2015年04月19日 03点04分
1
level 8
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
....滑呀滑
.....滑呀滑
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
....滑呀滑
.....滑呀滑
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
....滑呀滑
.....滑呀滑
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
....滑呀滑
.....滑呀滑
......滑呀滑
.......滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
........滑呀滑
.......滑呀滑
......滑呀滑
.....滑呀滑
....滑呀滑
...滑呀滑
..滑呀滑
.滑呀滑
.滑呀滑
.滑呀滑
..滑呀滑
...滑呀滑
....滑呀滑
.....滑呀滑
......滑呀滑
.......滑呀滑
2015年04月22日 05点04分
6
level 5
提述每行输出前没有要求空行吧?
for j:=1 to n-i do write(' ')
这句可能有问题
2015年04月25日 06点04分
7
那个估计是贴吧的问题。把前面的空格吃掉了。原来的题就是一个等腰三角形。
2015年04月25日 07点04分
level 5
var
i,j,k,n,js:longint;
begin k:=0; js:=0;
readln(n);
for i:=1 to n do
begin
for j:=1 to n-i do write(' ');
for js:=1 to 2*i-1 do
begin if k<10 then begin write(k); k:=k+1;end
else begin k:=0;write(k); end;
end;
writeln;
end;
readln;
end.
2015年04月26日 01点04分
8
当n>3时每行末尾会少一位,总体还是和谐的
2015年04月26日 01点04分