打印字母塔（PASCAL）

【试题描述】

输入行数N,打印图形.

【输入描述】

输入只有一行，包括1个整数。(N<=15)

【输出描述】

输出有N行.

【输入样例】

3

【输出样例】

A BAB CBABC

【试题来源】

var
i,j,k:integer;

begin
readln(k);
for i:=1 to k do
begin
for j:=1 to k-i do
write(' ');
for j:=ord('A')+i-1 downto ord('A') do
write(char(j));
for j:=ord('A')+1 to ord('A')+i-1 do
write(char(j));
writeln;
end;
readln;
end.

用循环、“ord”、“char”之类的函数

首先一个循环，控制列——复合语句，控制行，输出n-1个空格，循环输出字母，换行——ok，输出字母的应该会吧，呵呵，没时间了，就不打了，给了个流程图，有问题再说吧