PASCAL 集合 1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译码规则如下：①数字0,1,2,3,…,9分别和字母a,b,c,…,j互换；②字母k,m,p,t,y分
来源：学生作业帮助网 编辑：六六作业网 时间：2025/02/01 04:29:37
PASCAL 集合 1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译码规则如下：①数字0,1,2,3,…,9分别和字母a,b,c,…,j互换；②字母k,m,p,t,y分
PASCAL 集合
1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译码规则如下：
①数字0,1,2,3,…,9分别和字母a,b,c,…,j互换；
②字母k,m,p,t,y分别和它们的后继互换；
⑶其他字母和空格保持不变.
2．任给三条直线的方程,求它们所围成的三角形的面积.设三条直线方程为：y=a1x+c1,y=a2x+c2,y=a3x+c3.
提示：1）判断这三条直线方程能否构成一个三角形.（三条直线斜率互不相等）
2）求出三个交点.
3）求出围成三角形的三边的长度.
4）利用海伦公式求面积（s=sqrt(p(p-a)(p-b)(p-c)),其中p=(a+b+c)/2）.
PASCAL 集合 1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译码规则如下：①数字0,1,2,3,…,9分别和字母a,b,c,…,j互换；②字母k,m,p,t,y分
program daihuan;
var
s,e,tmp:string;
i,j,k,l:integer;
t:char;
procedure swap(t:char);
begin
case t of
'a': tmp:='0';
'b': tmp:='1';
'c': tmp:='2';
'd': tmp:='3';
'e': tmp:='4';
'f': tmp:='5';
'g': tmp:='6';
'h': tmp:='7';
'i': tmp:='8';
'j': tmp:='9';
'k': tmp:='l';
'l': tmp:='k';
'm': tmp:='n';
'n': tmp:='m';
'o': tmp:='o';
'p': tmp:='q';
'q': tmp:='p';
'r': tmp:='r';
's': tmp:='s';
't': tmp:='t';
'u': tmp:='u';
'v': tmp:='v';
'w': tmp:='w';
'x': tmp:='x';
'y': tmp:='z';
'z': tmp:='y';
' ': tmp:=' ';
',': tmp:=',';
'!': tmp:='!';
'.': tmp:='.';
'?': tmp:='?';
end;
end;
begin
assign(input,'swap.in');reset(input);
assign(output,'swap.out');rewrite(output);
readln(s);
l:=length(s);
e:='';
for i:=1 to l-1 do
begin
t:=s[i];
swap(t);
e:=e+tmp;
end;
write(e,'.');
close(input);
close(output);
end.
这是第一题,用case语句直接代换的.先提交了,第二个我再想想