Question

Free pascal编程题目

有一道编程题目：编写程序，输出一列图形（字母金字塔）。就是第一层是一个a,最后一层是a到z。中间每多一层就多一个字母的那种。请各位帮我看看我做的对不对，如果有错就请帮我改一下，指点一下错处。
var p,k:integer;
z,m:char;
begin
for p:=1 to 26 do//总共要输出26行内容
begin
for k:=26-p downto 1 do
write(' ');//控制每行前面的空格数目
for z:='a' to 'z' do
begin
for m:='a' to z do
write(m);//控制每行的字母数量及字母
writeln;
end;
end;
end.

Answer 1

var p,k,m:integer;
begin
for p:=1 to 26 do//总共要输出26行内容
begin
for k:=26-p downto 1 do
write(' ');//控制每行前面的空格数目
for m:=1 to p do
write(chr(m+96),' ');//这里可以直接输出字符了，m的数据类型要改成integer
writeln;
end;
end.
【for z:='a' to 'z' do
begin//这一重循环需要省略，否则会输出很多个三角形】

Answer 2

program nea(input,output);
var
i,j:longint;
begin
for i:=1 to 26 do begin
for j:=1 to i do
write(chr(97+j-1),' ');
writeln;
end;
end.

Answer 3

program nea(input,output);
var
h，k:integer；
begin
for i:=1 to 26 do
for j:=1 to i do
write(chr(97+j-1),'* ');
writeln;
end
end.