Question

freepascal 倒字母金字塔 速度，在线等

a b c d …x y z y z …c b a
a b c …x y x…c b a
……
a b c b a
a b a
a

Answer 1

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码，其他方面都没有用到，是对的。

追问

有点点问题...var 定义是什么变量呐