关于pascal字母金字塔问题,帮我看看程序那个地方不对,2、 输入一列图形(字母金字塔)aa ba b c..a b c …… y zprogram jinzita;var i,j,m:integer;beginfor i:=0 to 25 dobeginwrite('a':(26-i));m:=ord('a')+1;for j:=0 to i d

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/12 04:19:03
关于pascal字母金字塔问题,帮我看看程序那个地方不对,2、 输入一列图形(字母金字塔)aa ba b c..a b c …… y zprogram jinzita;var i,j,m:integer;beginfor i:=0 to 25 dobeginwrite('a':(26-i));m:=ord('a')+1;for j:=0 to i d

关于pascal字母金字塔问题,帮我看看程序那个地方不对,2、 输入一列图形(字母金字塔)aa ba b c..a b c …… y zprogram jinzita;var i,j,m:integer;beginfor i:=0 to 25 dobeginwrite('a':(26-i));m:=ord('a')+1;for j:=0 to i d
关于pascal字母金字塔问题,帮我看看程序那个地方不对,
2、 输入一列图形(字母金字塔)
a
a b
a b c
..
a b c …… y z
program jinzita;
var i,j,m:integer;
begin
for i:=0 to 25 do
begin
write('a':(26-i));
m:=ord('a')+1;
for j:=0 to i do;
begin
write(chr(m):2);
m:=m+1;
end;
writeln;
end;
end.

关于pascal字母金字塔问题,帮我看看程序那个地方不对,2、 输入一列图形(字母金字塔)aa ba b c..a b c …… y zprogram jinzita;var i,j,m:integer;beginfor i:=0 to 25 dobeginwrite('a':(26-i));m:=ord('a')+1;for j:=0 to i d
把 for j:=0 to i do; 后面的分号去掉