Pascal问题：字母替换

pascal替换型密码改错~

单引号里 一个字符就是字符型 多个字符就是字符串 就这样理解 就相当于 一个汉字是“字” 多个汉字是“句”

var
s:array[1..1000] of char;
ch:char;
l,i,j,k:integer;
begin
read(s[1]);
i:=1;
while ord(s[i])13 do
begin
i:=i+1;
read(s[i]);
end;
readln;
read(ch);
while ord(ch)13 do
begin
for l:=1 to i do
if (s[l]=ch) and (ch' ') then s[l]:='@';
read(ch);
end;
for j:=1 to i do
if s[j]'@' then write(s[j]);
end.
测试过了
直接输入字母
再输入要去除的字母
不用输入个数

我帮他改给最佳么- -
var st1:string;
i,j:integer;
begin
read(st1);
i:=length(st1);
for j:=1 to i do
if st1[j] in ['a'..'z'] then
write(chr(ord('z')-ord(st1[j])+ord('a')))
else
write(st1[j]);
end.

var st1:string;
i,j:integer;
begin
read(st1);
i:=lenght(st1);
for j:=1 to i do
if st1[j] in ['a'..'z'] then
write(chr(ord('z')-ord(st1(j))+ord('a')))
else
write(st1[j]);
end.
绝对原创

var
a:array[1..225]of char;
r:string;i,l:0..255;
function check(e:char):boolean;
begin
if (e>='a')and(e<='z')
then begin
check:=true;
exit;
end;
check:=false;
end;
begin
readln(r);
l:=length(r);
for i:=1 to l do a[i]:=r[i];
for i:=1 to l do
if check(a[i])=true then
a[i]:=chr(122-ord(a[i])+97);
r:='';
for i:=1 to l do
r:=r+a[i];
writeln(r);
readln;
end.

---

明溪县17750058610： Pascal问题:字母替换 - ？
答奇甲芬： 我帮他改给最佳么- - var st1:string; i,j:integer; begin read(st1); i:=length(st1); for j:=1 to i do if st1[j] in ['a'..'z'] then write(chr(ord('z')-ord(st1[j])+ord('a'))) elsewrite(st1[j]); end.

明溪县17750058610： 字符串替换 pascal - ？
答奇甲芬： 思路如下:首先建立2个字母数组0-25 盛放26个字母,根据ASCII吗的值 第一个数组存放A-Z,第2个数组存放Z-A 然后获取字符串,并遍历字符串,每个字符串中的字符和第一个数组进行对比,如果有相同的字符,得到了该字母在第一个数组中...

明溪县17750058610： PASCAL 输入一个英文句子,将里面每一个单词的首写字母换成大写字母…… - ？
答奇甲芬： 嘻嘻,又是我.var s:string; i:longint; begin readln(s); if s[1]' ' then s[1]:=chr(ord(s[1])-32); for i:=2 to length(s) do if s[i]=' ' then s[i+1]:=chr(ord(s[i+1])-32); writeln(s); end.

明溪县17750058610： 用pascal语言输入一个字符串,将其中出现的大写字母全部转化为对应的小写字母 - ？
答奇甲芬： vari:longint;str,s2:string; begin readln(str);//读入字符串 for i:=1 to length(str) do //用循环扫描,length(str)为字符串str长度beginif str(i) in ['A' ..'Z'] then //判断是否大写s2[i]:=str[i]-32;//大写转小写,s2字符串存放else s2[i]:=str[i];//非大写情况end; write(s2);//输出结果 end. 粗粗些的程序,可能编译还有错误,望采纳

明溪县17750058610： pascal 字符串英文字母替换 - ？
答奇甲芬： 是把大写转小写么?那么空里填的就是它是大写字母的条件,即(change[i]>='A') and (change[i]

明溪县17750058610： Pascal 在编程中怎么切换大小写?？
答奇甲芬： 1、按“shift+字母” 或按caps lock后直接输入 2、如果你问的是通过程序把小写换大写可以用这个语句: char1{你要换的字母}:=chr(ord('A')-ord('a')+ord(char1));

明溪县17750058610： 怎样在PASCAL语言中将数字转换成字母,例10变成A - ？
答奇甲芬： chr()函数就可以.这个函数是把10进制的数值转化成所对应的ASCII码. 比如: chr(65)='A' chr(98)='b' 如果需要将10对应上A,就这么写 chr(x+55)

明溪县17750058610： pascal中怎样实现数字与字符的相互转化·····? - ？
答奇甲芬： 楼主你好! 现在的很多pascal程序都用到数字转字符串,字符串转数字的方法. 其实用函数就可以相互转换. 数串转换为数值. 过程val(s,x,I) 把数串s转化为数值x,如果成功则I=0,不成功则I为无效字符的序数. 例:val('1234',x,I);结果 x:=...

明溪县17750058610： 在PASCAL程序中用case语句将字母A、B、C 、D或a、b、c、d转换成1、2、3、4,其余的字符转换成5. - ？
答奇甲芬： program ex; var ch:char; begin read(ch); case ch of'a','A':writeln(1); 'b','B':writeln(2); 'c','C':writeln(3); 'd','D':writeln(4); else writeln(5); end; end.

明溪县17750058610： pascal 把末字母改大写 - ？
答奇甲芬： 输入字符串 var s:string; begin readlN(s); s[length(s)]:=chr(ord(s[length(s)])-32); writeln(s); end.运用ASCLL