作业帮 > 英语 > 作业

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

来源：学生作业帮 编辑：搜搜考试网作业帮 分类：英语作业 时间：2024/06/07 05:32:33
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
freepascal 倒字母金字塔 速度,在线等
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 定义是什么变量呐
组词 ( )倒 在线等 速度，在线等 什么是倒金字塔定律 什么是倒金字塔形式? 倒金字塔英语怎么说 英语翻译句子、速度 在线等 初三数学题~在线等~~速度~~ 呃,数学题.在线等.速度. 两个化学题、在线等、速度 英语,在线等,速度好吗.. 高中数学 在线等 速度 详解 数学几道题 速度,在线等.