主题：tiu 1003 小田甜的 程序没有AC
mdjqdh
[专家分：140] 发布于 2005-10-04 18:51:00
做程序 本机测试成功 在 tju就是 wrong answer
小田甜 给出的程序一样wrong answer.
下面是我的程序
program p58;
var i,j,k,n:integer;
begin
read(n);
for j:= n-i to downto 1 do
write(' ');
for k:=2*i-1 downto 1 do
write(chr(64+i));
writeln;
end;
writeln;
end.
P.S:不要嘲笑的我算法 我是初学.
回复列表 （共8个回复）
沙发
lzl1403 [专家分：1670] 发布于 2005-10-04 21:14:00
这个程序漏了某部分吧？应该还有个i变量的循环漏了复制过来……
板凳
fxzxg [专家分：430] 发布于 2005-10-05 11:02:00
var
n,i,j:byte;
begin
readln(n);
for i:=1 to n do begin
if i<>n then write(' ':n-i);
for j:=1 to i*2-1 do write(chr(ord('A')+i-1));
writeln;
end;
readln;
end.
3 楼
mdjqdh [专家分：140] 发布于 2005-10-05 17:33:00
做程序 本机测试成功 在 tju就是 wrong answer
小田甜 给出的程序一样wrong answer.
下面是我的程序
program p58;
var i,j,k,n:integer;
begin
read(n);
for i:= 1 to n do
begin
for j:= n-i downto 1 do
write(' ');
for k:=2*i-1 downto 1 do
write(chr(64+i));
writeln;
end;
writeln;
end.
汗 少打了 帮忙看看这个出错误在那里了好吗?这次是结果正确 格式有误.
4 楼
林记 [专家分：1680] 发布于 2005-10-05 18:17:00
最后多了一个回车
5 楼
mdjqdh [专家分：140] 发布于 2005-10-06 19:18:00
... 无语
6 楼
林记 [专家分：1680] 发布于 2005-10-06 19:32:00
那个...
如果我说对了的话请加分
7 楼
mdjqdh [专家分：140] 发布于 2005-10-07 19:11:00
真的是 回车的问题
谢谢 没想到啊~...分给你加..
8 楼
feierinlove2005 [专家分：80] 发布于 2005-10-09 20:19:00
初学能写出这样的程序不错啊！
小弟我初做这题时提交3次才ac
经验是靠积累而来的！努力啊！
我来回复
您所在位置：