Question

输出字母金字塔 pascal语言 利用前趋 后继函数

像
A
ABA
ABCBA
........
ABCD..DCBA
不要用askⅡ码表

Answer 1

不用ascll码可以做的：
Progaram jinzita;
var i,j,k,ch;
begin
repeat
writeln('Input a char:');
readln(ch);
ch:=upcase(ch);
until (ch>='A') and (ch<='Z');
for i:='A' to ch do
begin
write(' ':(ord(ch)-ord(i))+1);
for j:='A' to i do write(j);
for j:=pred(i) downto 'A' do write(j);
if (ord(i)-64) mod 25=0 then readln else writeln;
end;
end.
楼主可以自己试试，输入的是一个字母，除了格式上用到了ascll码，其他方面都没有用到，是对的。

Answer 2

var i,j,n:longint;

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

输入:3
输出 A
ABA
ABCBA
输入:10
输出:你自己试试吧
不用ask码??那怎么做?