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.
常用字符与ASCII码表示问题!
1. 查看ASCII码表,你会发现字符'1'的ASCII码值从31H开始。2. 大写字母的ASCII码值从41H开始。3. 小写字母的ASCII码值从61H开始。4. 这样,在数字与ASCII码之间的转换就变得非常方便。5. 例如,'1'减去1等于30H,2加上30H等于'2'。6. 同样地,'A'加上2等于'C','A'加上20H等于'a'。
汉字的ascii码怎么是负数?
汉字的ASCII是负数是因为你错误使用有符号的整型观察它,它实质上不是负数。相关问题细节如下:英文标准的ASCII码中只有128个符号,只需要7位,但是计算机分配存储的最基本单位是字节,至少是8位,因此最高位为0;因此常见的西文符号的ASCII都是在0-127之间,无论是有符号还是无符号去观察它们,都是正的...
ASCII码排序中文是在最后吧
首先,我们需要明确敏和这里所提到的中文是指GB2312字符集。在排序过程中,中文字符通常会被排在ASCII码字符的后面。然而,这个问题实际上比较复杂,因为它取决于排序程序的具体实现。如果排序程序认定中文字符应排在ASCII码字符后面,那么这就是排序的结果。目前,C\/C++语言中常用的字符串比较排序函数,如s...
ascii字符对应的十进制数字是
问题解答:在标准ASCII码表中英文字母的编码是按照英文字母表的顺序排列的,既然已知英文字母K 的十六进制码值是4B。那么二进制ASCII码1001000(其十六进制码值为48)对应的字符从K倒推4B-48=3个字 母:K(4B)->J(4A)->I(49)->H(48),自然就是H了。
常用字符与ASCII码表示问题!
你找个ACSII码表看看,字符‘1’的ASCII码从31H开始,大写字母从41H开始,小写字母从61H开始。这样在数字与ASCII码的转换之间很方便,例如,‘1’-1=30H,2+30H=‘2’,'A'+2='C',‘A’+20H='a',
汉字是如何转换成ASCII代码的?
如果是台湾的话,ansi就应该是big5……这里面涉及编码范围问题,Unicode,big5,gbk国标码都是两个字节表示一个汉字,而utf8是三个字节表示一个汉字。而且这几种编码中有大量重叠,很难直接判断一个字是哪一种编码,例如下面:汉字编码范围 名称 第一字节 第二字节 GB2312 0xB0-0xF7(176-247) ...
高一信息会考题 关于ASCII码和汉字代码的问题
ASCII统统小于80h,汉字第一个字节不小于80h,但是占用两个字节 所以汉字为BFEC、C0D6两个,别的全是ASCII
ASCII码和汉字编译的概念
编码是关键。不解决这个问题,汉字就不能进入计算机。GB2312-80是1980年制定的中国汉字编码国家标准。共收录7445个字符,其中汉字6763个。GB2312兼容标准ASCII码,采用扩展ASCII码的编码空间进行编码,一个汉字占用两个字节,每个字节的最高位为1。《汉字内码扩展规范》(GBK)于1995年制定,兼容GB2312、...
为什么汉字ascii码小于0?
谈不上什么原理,只是说如果计算机内汉字用两个0~127之间的字符编码,计算机就不知道这是两个单独的字符还是一个完整的汉字,为了避免这种情况,汉字在计算机内存储时每个字节最高位是1,用char类型查看就小于0了,不会与已有的单字节字符冲突。
怎么用ASCII表示汉字?
新“26032”,年“24180”,快“24555”,乐“20048”我“25105”,是“26159”,猪“29482”,头“22836”在QQ上测试过的 我自己做了个VB程序,不保证完全正确,但这几个还是对的。
答奇甲芬: 我帮他改给最佳么- - 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