主题：把26个英文字母正向，逆向打印出来
QQ331373582
[专家分：1500] 发布于 2005-05-24 19:48:00
如何把26个英文字母正向，逆向打印出来[em1]（PASCAL）
回复列表 （共11个回复）
沙发
davidw017 [专家分：4170] 发布于 2005-05-24 20:14:00
我厚道人，给出代码
program _;
var
index: char;
begin
for index := 'a' to 'z' do
write(index);
for index := 'z' downto 'a' do
wirte(index);
end.
3 楼
zhsas [专家分：1680] 发布于 2005-05-27 05:39:00
program zhs (output);
var
ch:char;
begin
for ch:='a' to 'z' do
write(ch);
for ch:='z' downto 'a' do
write(ch);
writeln
end.
4 楼
yuxiaonsu [专家分：90] 发布于 2005-05-28 14:19:00
program yuxiaonsu;
procedure output(inch:char);
begin
if inch in ['a'..'z'] then
begin
write(inch);
output(chr(ord(inch)+1));
write(inch);
end;
end;
begin
output('a');
writeln;
end.
5 楼
QQ331373582 [专家分：1500] 发布于 2005-05-28 16:05:00
3楼和1楼一样的
6 楼
lyn532226 [专家分：230] 发布于 2005-05-28 17:37:00
这算法都是一样的，而且是最简单的，你说他们能不同吗。
7 楼
flyingfree [专家分：90] 发布于 2005-07-05 21:28:00
反对六楼！
最简单的是直接打印：
writeln('abcdefghijklmnopqrstuvwxyz');
8 楼
口口and枕头 [专家分：1550] 发布于 2005-07-06 20:08:00
flyingfree
你的方法真的太直接了~~~~
不过方法点BEN,你是在搞笑吗?
9 楼
def [专家分：3380] 发布于 2005-07-06 21:14:00
谁说苯啊？
program yuxiaonsu;
procedure output(inch:char);
begin
if inch in ['a'..'z'] then
begin
write(inch);
output(chr(ord(inch)+1));
write(inch);
end;
end;
begin
output('a');
writeln;
end.
program assem;
begin writeln('abcdefghijklmnopqrstuvwxyzzyxwvutsrqponmlkjihgfdecba') end.
len(yuxiaosu)<len(assem)?
10 楼
def [专家分：3380] 发布于 2005-07-06 21:15:00
len(yuxiaosu)>len(assem)
我来回复
您所在位置：社区首页 — PASCAL语言讨论区 — 把26个英文字母正向，逆向打印出来