PASCAL 集合 1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/06/06 14:12:08

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）.

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语句直接代换的.先提交了,第二个我再想想

PASCAL 集合 1．编写一个译码程序,将输入的一串字符,（只有小写字母、数字和空格,输入时以句号结束）翻译成原码.译 Pascal输入一串字符,结束,分别统计其中数字（0,1,2,.9）出现的次数用C语言编写：输入一行字符以@作结束标志,分别统计其中英文字母、空格、数字和其他字符的个数. 如何用C语言编写程序“输入一串字符（换行符结束）,用循环语句将其中的大小写英文字母互换后输出” c#windows应用程序：设计一个转换英文大小写的程序,输入字符时,自动将字母分别转换为大写和小写两种格式求C语言,输入一串字符,计算出空格字母单词数字的个数 C语言数字转换输入一串数字字符,将其中0~9对应的英文单词输出,每个单词中间空一个空格.例如,输入”123“,输出”o 用JAVA语言编写程序19.编写一个译码程序,把一个英语句子译成数字代码.译码规则是以数字 1代替字母 a,数编写函数分别求一个英文句子中字母数字空格和其他字符的个数在主函数中输入用数组返回用C语言编写一段程序,输入一行字符,分别统计出其中的英文字母、空格、数字和其他字符的个数. 10、编写一个译码程序,把一个英语句子译成数字代码.译码规则是以数字1代替字母A,数字2代替字母B,…… 输入一行文字,用指针方式求其中的大写字母、小写字母、空格和数字及其他字符各有多少?