freepascal 倒字母金字塔 速度,在线等
来源:学生作业帮 编辑:作业帮 分类:英语作业 时间:2024/08/31 09:34:19
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
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
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 定义是什么变量呐
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 定义是什么变量呐