对信息进行加密,可提高信息传输的安全性。正是由于它的重要用途,人们 发明了各种各样的加密方式。其中一种方式是,对文中单词进行逆序处理。请你 写一个程序,对已加密的文本进行解密。
输入文件(encrypt.in)
第 1 行,一个整数 n,表示后面将有 n 行已加密的信息。
第 2 行至第 n+1 行,每行一个不超过 1000 个字符的字符串,每个字符串中
只有空格和小写字母组成。
输出文件(encrypt.out)
共 n 行,每行对应输出解密后的文本
输入
2
eno otw eerth
i ekil siht emag
输出
one two three
i like this game
我的程序
program encrypt;
var
s,s1:string;
i,r,p,n,k,l:integer;
procedure ok(s11:string);
var
t,j:integer;
begin
t:=length(s11);
for j:=t downto 1 do write(s11[i]);
end;
begin
assign(input,'encrypt.in');
reset(input);
assign(output,'encrypt.out');
rewrite(output);
readln(n);
p:=1;
for i:=1 to n do
begin
readln(s);
for k:=1 to length(s) do
if k=length(s) then
begin
l:=p;
r:=k;
s1:=copy(s,l,k-r+1);
ok(s1);
p:=r;
writeln;
end
else
if s[k]=' ' then begin
l:=p;
r:=k;
s1:=copy(s,l,k-r+1);
writeln(s1);
write(' ');
ok(s1);
p:=r;
end;
p:=1;
end;
close(input);
close(output);
end.
参考资料:自己打的辛苦啊!!楼主加分!!