pascal把字符改为数字

pascal中怎样实现数字与字符的相互转化·····？~

一、 将文本数据转换成数值数据
方法一：选定需转换的文本数据区域，在选定区域的左上角会出现一个带感叹号的标志（如下图），用鼠标单击这个感叹号，选择“转换为数字。
方法二：在表格的空白处，找一任意单元格，输入数字“1”，
复制这个单元格，再选定需要转换的文本数据区域，点击鼠标右键，执行“选择性粘贴”，选定“数值”、“乘”两个选项，再“确定”就行了。
方法三：使用函数转换。如果你不想改变原表的数据，只在表中计算的区域引用，还可以使用VALUE函数或者直接将文本单元格乘1。
例如，将要转换A1单元格数据，公式为：
=VALUE（A1）
或者 = A1*1。
二、 将数值型数据转换成文本
将文本型数据转换成数值型数据，可以直接在原表的原有位置转换，而将数值型数据转换成文本却不能。如果需要用文本型数据替换原有的数值型数据，需要先在空白区域通过写公式将数据转换成文本，再使用“复制——选择性粘贴”将原有数据替换。
方法一：通过在原数据前加一个字母使数据变成文本，再将字母替换成半角的单引号，所得数据就是文本型数据了。例：将A列所有数据转换成文本，操作步骤如下：
1、 在表格的空白列写下如下公式：
=”a” & A1
将此公式往下复制，使得这一列得出的结果为A列数据的首位字符前加了一个字母a。
2、复制该列所有数据后，使用“选择性粘贴”只粘贴数值，覆盖需转换的数据，再删除写了公式的列，使需转换的数据均为首位字符前加了字母a的文本。
3、选定所有需转换的数据，通过“查找——替换”，将所有字母a，替换成半角的单引号“ ’ ”（必须是半角字符，而不能是标点符号），就成功了。
方法二：使用TEXT函数转换。 TEXT 函数可将数值转换为文本，并可使用户通过使用特殊格式字符串来指定显示格式。需要以可读性更高的格式显示数字或需要合并数字、文本或符号时，此函数很有用。
该函数的语法为：TEXT(value, format_text) Value为需转换的数值，format_text为需转换的格式，如果format_text参数为0或#，则显示的格式不变，如转换后的文本格式有其他要求，如何带format_text参数，可以参照EXCEL中帮助文件的介绍。

函数不能做为语句单独使用，多出现在条件和：＝的右边位置；过程无返回值，必须做为语句单独使用
ABS(-5); 错
A:=ABS(-5); 对
FILLCHAR(W,SIXZEOF(W),0); 对
W:=FILLCHAR(W,SIXZEOF(W),0); 错
Pascal把常用的一些运算定义为系统标准函数，简称为标准函数；标准函数的名字都是预定义标识符；引用一个函数就称为函数调用，调用时只要在程序中写出某一函数名以及函数所需要的参数，系统就会自动运算并得出结果，例如：abs(-123)将返回123。
Pascal的标准函数共有17个，可分为四类：算术函数、转换函数、顺序函数及逻辑判断函数。
一、算术函数
（1）、求绝对值－ABS：是英文单词absolute（绝对）的缩写，ABS(x)表示求x的绝对值
例如：PROGRAM EX;
Var a:integer;b:real;
BEGIN
a=-34.5;
b=234.5;
write(abs(a):5:1,' ',abs(b):5:1); {将输出 34.5 234.5}
readln;
END.
（2）、反正切函数－ARCTAN：ARCTAN(x)表示求x的反正切函数值，返回值为real型
例如：PROGRAM EX;
Var a:integer;b:real;
BEGIN
a=1;
b=1.0;
write(abs(a):6:4,' ',abs(b):6:4); {将输出 0.7854 0.7854}
readln;
END.
（3）、余弦函数－COS、正弦函数－SIN：COS(x)表示求x的余弦值；SIN(x)表示求x的余弦值。这里的x必须为弧度，不能直接使用角度单位的量。如果x为角度数，可以用后面的方式转换：x*3.14/180
（4）、指数函数－EXP、自然对数函数 －LN：EXP是英文单词exponent（指数）的缩写，EXP(x)表示求以e为底x为指数的函数值 ，即EX；LN是英文单词logarithrm（自然对数）的缩写，LN(x)表示求x的自然对数，即LOGeX
（5）、平方函数－SQR、正平方根函数－SQRT：SQR是英文单词square（平方）的缩写；SQRT是英文单词square root（平方根）的缩写
几点说明：Pascal中无幂运算，要求XY可以用后面的公式：XY=eYLNX (X>0)
求常用对数可用公式：logX=lnX/ln10。
e≈2.71828
如：求三次根号下X，可以表示为EXP(1/3*LN(X))

二、类型转换函数
（1）、取整数函数－TRUNC：如TRUNC(7.8)的值为7，TRUNC(-6.1)的值为-6
（2）、四舍五入函数－ROUND：如ROUND(7.8)的值为8，ROUND(-6.1)的值为-6
（3）、序号函数－ORD：返回参数的对应的序号；若参数为字符，则返回其ASCII码（A的ASCII码为，a的ASCII码为97）值，如ORD('B')的值为66；若参数为BOOLEAN，则ORD(TRUE)的值为1，ORD(FALSE)的值为0
（4）、字符函数－CHR：返回序号所对应的字符，与ORD互为反函数；如CHR(66)的值为'B'
注意TRUNC与ROUND的区别

三、顺序函数
（1）、前趋函数－PRED：返回参数的前一个数据，若参数为第一项，则函数无意义
（2）、后继函数－SUCC：返回参数的后一个数据，若参数为最后一项，则函数无意义

四、逻辑判断函数
（1）奇偶判断函数－ODD：判断参数的奇偶性，当参数为偶数时，函数值为FALSE；当参数为奇数时，函数值为TRUE
（2）、文件尾函数－EOF：判断文件位置指针是否指向文件结束符，是则为TRUE，反之为FALSE
（3）、行结束函数－EOLN：判断文件位置指针是否指向换行符符，是则为TRUE，反之为FALSE

五、与字符串相关的函数和过程函数和过程名 功 能 说 明
CONCAL(ST1,...,STN) 将N个字符串连接起来 等效于ST1+...+ST2，是函数
COPY(S,M,N) 取S中第M个字符开始的N个字符 若M大于S的长度，则返回空串；否则，若M+N大于s的长度，则截断，是函数
LENGTH(S) 求s的动态的长度 返回值为整数，是函数
POS(SUB,S) 在S中找子串SUB 返回值为SUB在S中的位置，为byte型，是函数
UPCASE(CH) 将字母CH转换成大写字母 若CH不为小写字母，则不转换，是函数

INSERT(SOUR,S,M) 在S的第M个字符位置处插入子串SOUR 若返回串超过255，则截断，是过程
DELETE(S,M,N) 删除S中第M个字符开始的N个字符串 若M大于S的长度，则不删除；否则，若M+N大于S的长度，则删除到结尾，是过程
STR(X[:W[:D]],S) 将整数或实数X转换成字符串S W和D是整型表达式，意义同带字宽的write语句，是过程
VAL(S,X,CODE) 将字符串S转换成整数或实数X 若S中有非法字符，则CODE存放非法字符在S中的下标；否则，CODE为零,CODE为整型，是过程
FILLCHAR(S,N,CH) 给S填充N个相同的CH 用于初始化数组或字符串，N常用SIZEOF(S)代替，是过程
注：关于字符串的几点说明
①空串表示为''，其长度为0，不等于含有一个空格的串' '，它的长度为1；如：A:='';就是将A字符串置空
②FILLCHAR可以用于字符串变量和任何类型数组变量的初始化，比如：
FILLCHAR(A,SIZEOF(A),0) 将整型数组A全置0
FILLCHAR(B,SIZEOF(B),TRUE) 将布尔型数组B全置0
FILLCHAR(C,SIZEOF(C),'A') 将整型字符串C全置'A'
其中SIZEOF是返回变量的空间，以变量的基类型为单位

program sd;
var a:string;
i:integer;
begin
read(a);
for i:=1 to length(a)do
if a[i]=' 'then writeln('*')
else writeln(ord(a[i])-64);
end.

var a:string;
begin
readln(a);
for i:=1 to length(a)-1 do
if a[i]=' ' then write('*')
else write(ord(a[i])-64);
writeln('.'); {不知道你最后要不要输出'.'}
end;

你这些数字之间是用什么分隔的？

---

瑞昌市13050998103： pascal语言字符转换数字函数 - ？
马玛复方： (1)var a:char; b:integer; begin read(a); b:=ord(a)-48; write(b); end.(2)var a:string; b:array[1..500] of integer; n,i:integer; w:char; begin read(a); n:=length(a); for i:=1 to n do begin w:=copy(a,i,1)[1]; b[i]:=ord(w)-48; end; for i:=1 to n do write(b[i]); end.

瑞昌市13050998103： pascal把字符改为数字 - ？
马玛复方： program sd;var a:string;i:integer;beginread(a);for i:=1 to length(a)doif a[i]=' 'then writeln('*')else writeln(ord(a[i])-64);end.

瑞昌市13050998103： 在Pascal中怎么进行字符串和数字的转换? - ？
马玛复方： readln(s1); l1:=length(s1); for i:=1 to l1 do val(s1[i],a[l1+1-i]); a[0]:=l1; 计算 for i:=a[0] downto 1 do write(a[i]);(这样输出和字符串效果相同) 附 高精加var a:array[1..100] of integer; b:array[1..100] of integer; c:array[0..101] of integer; i,l1,l2,len:...

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

瑞昌市13050998103： pascal中怎样将字符串转化为数字？
马玛复方： 用内置的val过程,例: var s:string; code:integer; l:longint; r:real; begin s:='12345'; val(s,l,code); s:='123.456'; val(s,r,code); writeln(l); writeln(r:0:3); end. //注:val的使用方法为:val(s,n,code); //////s为字符串,n为转换后储存的变量(可是整型或者实型),code是当转换出错是把出错代码放置在code变量里(如果s中含有非数字字符,就会出错)

瑞昌市13050998103： pascal中字符变数字？
马玛复方： 不对 这样是返回的当前ASCII码对应的字符用chr 应该是 varm: Integer;s: string; begins := IntToStr(m) + '48' + s; end. IntToStr就是把整数转成字符串 这个是Pascal里面的基本函数

瑞昌市13050998103： 用pascal编一函数,决定一给定字符是字母,数字,空格,标点符号或其它符号. - ？
马玛复方： function judge(x:char):string; begin if (x>='0') and (x else if (x>='A') and (x else if (x>='a') and (x else if (x=' ') then judge:='Kongge' else if x in [',','.','?','!','`',':',';','＂'] then judge:='Fuhao' else judge:='Qita'; end 不知道你说的标点符号是指那些,我这边默认的是. , ? ! ; : ` ＂这几个,如果不止这些的话在倒数第二个else里面加

瑞昌市13050998103： pascal中这样把数字转换成字符串 - ？
马玛复方： 字符串函数 字符串转为数值val 定义: procedure Val(S; var V; var Code: Integer); 在这里: S 是由一系列数字字符构成的字符串类型变量;. V 是整型或实型变量; Code 是Integer型变量 注意:Val将S转为它的数值形式. 例子: var s:string...

瑞昌市13050998103： Pascal编程问题:一个数将它变成一位数字,变成一位数字的方法如下: - ？
马玛复方： var s:string; i,j,k,n,t,l:longint;begin readln(n);k:=n; repeat n:=k;k:=1; str(n,s); l:=length(s); for i:=1 to l do k:=(ord(s[i])-ord('0'))*k;until (k<10)or(n<10); writeln(k);end.

瑞昌市13050998103： pascal中,怎样把数字变成字符 - ？
马玛复方： 一、 将文本数据转换成数值数据 方法一:选定需转换的文本数据区域,在选定区域的左上角会出现一个带感叹号的标志(如下图),用鼠标单击这个感叹号,选择“转换为数字.方法二:在表格的空白处,找一任意单元格,输入数字“1”,复制这个单元格,再选定需要转换的文本数据区域,点击鼠标右键,执行“选择性粘贴”,选定“数值”、“乘”两个选项,再