主题：紧急！高手进~
zenia
[专家分：20] 发布于 2005-03-18 21:54:00
有这样一道题
输入三个字符，然后按输入字符次序输出这三个字符，再输出这三个字符的序号，最后按与输入字符相反的次序输出这三个字符。
这道题我觉得很乱，不知道该怎么写，会写的话请帮一个忙哦~
谢谢各位了~
辛苦了
回复列表 （共5个回复）
沙发
xuzhenyi [专家分：850] 发布于 2005-03-18 22:09:00
var
a:array[1..3] of char;
i,j,k:integer;
begin
for i:=1 to 3 do
readln(a[i]);
writeln;
for i:=1 to 3 do
write(a[i],' ');
writeln;
for i:=1 to 3 do
write(ord(a[i]),' ');
writeln;
for i:=3 downto 1 do
write(a[i],' ');
writeln;
readln;
end.
板凳
xuzhenyi [专家分：850] 发布于 2005-03-18 22:11:00
给分 谢谢俄
3 楼
faintzw [专家分：2660] 发布于 2005-03-19 00:01:00
var
t:char;
i:integer;
ans,ans2,ans3,tmp:string;
begin
for i:=1 to 3 do
begin
read(t);
ans:=ans+t+' ';ans3:=t+' '+ans3;
str(ord(t),tmp);
ans2:=ans2+tmp+' ';
end;
writeln(ans);
writeln(ans2);
writeln(ans3);
end.
这是最直接的办法……
想复杂点的可以用递归
4 楼
zenia [专家分：20] 发布于 2005-03-20 12:26:00
谢谢哦~
5 楼
gooboy [专家分：20] 发布于 2005-03-23 18:05:00
var a:array[1..3]of char;
n:char;
i:integer;
begin
for i:=1 to 3 do
begin
readln(n);
a[i]:=n;
end;
for i :=1 to 3 do
writeln(a[i]:4,i:3);
end.
我来回复
您所在位置：