路人求助!!急急急
pascal吧
全部回复
仅看楼主
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 2
怎么改?
2015年04月19日 03点04分 3
level 2
没人觉得lz的学校是个好学校么[不高兴]
2015年04月19日 03点04分 4
不明觉厉
2015年04月19日 06点04分
level 7
楼主的程序是从1开始的
2015年04月22日 00点04分 5
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分
1