Pascal常用的字符處理標準函數有5個

（1）ord(ch) ? ? ? ? ? 求字符ch對應的ASCII代碼值；如 ord ('A')結果為65，ord(true)結果為1，ord(false)結果為0
（2）chr(x) ? ? ? ? ? ?求x（x為1…255整數)的ASII代碼對應的字符；如：chr（65）結果為 'A'。
（3）pred(ch) ? ? ? ? ?前驅函數 pred('B')結果為'A'
（4）succ(ch) ? ? ? ? ?后繼函數 succ('B')結果為'C'?

---------------------------------------------------------------------------------------------------------------

Pascal常用的字符串處理標準函數有4個

（1）copy（str，n，m） ? ? ? ?從字符串str的左邊第n個開始截取m個字符；如：copy（'Pascal'?，3，2）的結果為'sc'?；

（2）concat（str1，str2） ? ? 將兩個字串連接成為一個新的字串；如：s:=str1+str2；同等于兩串字符相加

（3）length(str) ? ? ? ? ? ? 求字串str的長度（字符個數）；

（4）pos（str1，str2） ? ? ? ?求字串str1在字串中開始的位置；若沒找到, 函數值為0。?如:? pos（'sca'，'pascal'）結果為3；

（5）upcase(ch) ? ? ? ? ? ? ?將字符串str所有字符轉為大寫字母，如?upcase('aBc')結果為'ABC'?；

---------------------------------------------------------------------------------------------------------------

Pascal常用的字符串處理標準過程有4個

（1）val(str，x) ? ? ? ? ? ? ?將數字型字串轉為數字并存入變量x中；如：val('68',x),x值為68|val(' 9',x)x值為9|val('a9',x)x值為0

（2）str(n，s) ? ? ? ? ? ? ? ?將數字n轉化為字串存入s中，如str(768，s)s的結果為?'768'?；

（3）insert(str1，str2，n) ? ?把字串str1插入在字串str2的第n個字符之前，結果在str2中；｛此過程中的str2為變量形參，具有傳入傳出的功能｝；

（4）delete(str，n，m) ? ? ? ?從字串str的第n個開始，刪除m個字符，把剩余的字符存在str中，｛此過程中的str為變量形參，具有傳入傳出的功能｝；

------------------------------------------------------------------------------------------------------------------

?

?

------------------------------------------------------------------------------------------------------------------

//jzxx1114

var st:string;i,j,t,len:integer;s:longint; beginreadln(st);len:=length(st);t:=0;for i:=1 to len dobeginval(copy(st,i,1),t);s:=s+t;end;writeln(s); end.

?

?

?

?

?

?

------------------------------------------------------------------------------------------------------------------

?//jzxx1036

【方法一】

?

vara,b,c,i:longint;s:string; beginreadln(s);for i:=1 to length(s) dobeginif (s[i]>='A')and(s[i]<='Z') then inc(a);if (s[i]>='a')and(s[i]<='z') then inc(b);if (s[i]>='0')and(s[i]<='9') then inc(c);end;writeln(a,' ',b,' ',c); end.

?

?

【方法二】

vara,b,c,i:longint;s:string; beginreadln(s);for i:=1 to length(s) dobeginif s[i] in ['A'..'Z'] then inc(a);if s[i] in ['a'..'z'] then inc(b);if s[i] in ['0'..'9'] then inc(c);end;writeln(a,' ',b,' ',c); end.

?

?

------------------------------------------------------------------------------------------------------------------

?

?

------------------------------------------------------------------------------------------------------------------

?

?

?

?

轉載于:https://www.cnblogs.com/qilinart/articles/2990829.html

總結

以上是生活随笔為你收集整理的常用函数(字符和字符串)的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。