作业帮 > 综合 > 作业

用 free pascal 编写程序,输出一列图形(字母金字塔) a a b a b c ……

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/28 13:18:37
用 free pascal 编写程序,输出一列图形(字母金字塔) a a b a b c ……
program ex01;
var
i, j: integer;
begin
for i := 1 to 26 do
begin
for j := 1 to 26 - i do
Write(' ');
for j := 1 to i do
Write(chr(j + Ord('a') - 1));
for j := i - 1 downto 1 do
Write(chr(j + Ord('a') - 1));
writeln;
end;
readln;
end.
试试吧,结果挺壮观的.