求pascal语言编程中的书上不太常见的但程序中会出现的函数。

作者&投稿:人印 (若有异议请与网页底部的电邮联系)
Pascal语言训练书上有问题不会解。~

var s:string;
a,b,c,i,j,k,l:longint;
begin
readln(s);
l:=length(s);
for i:=1 to l do begin
if s[i]='A' then inc(a);
if s[i]='B' then inc(b);
if s[i]='C' then inc(c);
end;
writeln('A:',a,'B:',b,'C:',c);
end.

while true do 会死循环,你可以在程序末加readln或者你在运行完后按Alt+F5。
你如果像最快回答一样加的话,就在看到结果之后按Ctrl+C

pascal编程书我一本都没有看完过,但函数我都可以提供:
abs绝对值abs(-3)=3这类不用多讲。
ord求字符的ascll码值,如ord(‘a’)=65,一般的编程书附录都有ascll表
chr求ascll码所对应的字符,和ord函数相反
sqr求平方,如sqr(2)=4
sqrt求开根,与sqr相反。但不能出现负数,如是负数应先求绝对值再用sqrt
round四舍五入,如round(5.1)=5
trunc求整数部分,如trunc(5.923)=5;
int,和trunc差不多,但结果为实型,如int(5.1)=5.0
frac求小数部分,如frac(5.6)=0.6
pred求前导,可用任何型调用,如pred(‘a’)=‘b’
succ求后继,与pred相反
odd判断奇偶,如是奇数则返回true,否则返回false
power求次方,power(a,b)就是求a的b次方,要开启math库才能使用(程序前加一个“uses math”)
random随机函数,random(x),求0到x间的任意的一个数(前面要加上一个randomize,不会让返回值每次一样)
shr二进制函数,如x shr n指将x转化成二进制后向右移n位
shl二进制函数,与shr不同的是他是将x转化成二进制后向左移动n位
concat连接函数,这个函数可以有多个参数,一般为字符或字符串型。如concat(‘11’,‘aa’)=‘11aa’
copy求子串,参数有三个,第一个为字符串性,后两个为整形,例如copy(‘12345’,2,3)表示字符串中第2个后长度为3的字符串,也就是‘234’
delete删除子串,参数,参数类型同copy函数,delete(‘12345’,2,3)=‘15’,这个函数的意思是删除字符串‘12345’中第2个起长度为3的字符串,形成新的字符串。
insert插入子串,参数同上,第1,2个的类型为字符串,第三个的类型为整形,例如(‘12345’,‘2’,3)=‘123345’,函数表示在字符串‘12345’的第3位插入一个字符串‘3’
length求字符串长度,一个字符串参数返回这个参数的长度,如length(‘12345’)=5
pos搜索子串,两个字符串函数。如pos(‘12345’,‘34’)=3.表示从字符串‘12345’中找出字符串‘34’的位置,输出这个位置,如第一个字符串内没有含有第二个字符串,则返回0
upcase大小写转换,一个字符参数,如upcase('a')='A'
str数值转换,如str(12345,s),是把12345转化成字符串复制给变量s
val数值转换,与str相反,但不同的是他有3个参数,如(‘1234’,s,l)指将字符串‘1234’转化成数值s,如成功则l=0,否则l为无效字符。

全部如下:

1.算术函数
函数标识符 自变量类型 意义 结果类型
abs 整型、实型 绝对值 同自变量
arctan 整型、实型 反正切 实型
cos 整型、实型 余弦 实型
exp 整型、实型 指数 实型
frac 整型、实型 小数部分 实型
int 整型、实型 整数部分 实型
ln 整型、实型 自然对数 实型
pi 无自变量 圆周率 实型
sin 整型、实型 正弦 实型
sqr 整型、实型 平方 同自变量
sqrt 整型、实型 平方根 实型
例:abs(-4)=4 abs(-7.49)=7.49 arctan(0)=0.0
sin(pi)=0.0 cos(pi)=-1.0 frac(-3.71)=-0.71
int(-3.71)=-3.0 sqr(4)=16 sqrt(4)=2

2.标准函数
函数标识符 自变量类型 意义 结果类型
odd 整型 判断奇数 布尔型
pred 离散类型 求前趋 同自变量
succ 离散类型 求后继 同自变量
例:odd(1000)=false pred(2000)=1999 succ(2000)=2001
odd(3)=true pred('x')='w succ('x')='y'

3.转换函数
函数标识符 自变量类型 意义 结果类型
chr byte 自变量对应的字符 字符型
ord 离散类型 自变量对应的序号 longint
round 实型 四舍五入 longint
trunc 实型 截断取整 longint
例:chr(66)='B' ord('A')=65 round(-4.3)=-5 trunc(2.88)=2

4.杂类函数
函数标识符 自变量类型 意义 结果类型
random 无自变量 [0,1间的随机实数 real
random word [0,自变量间的随机整数) word
randomize 无自变量 初始化内部随机数产生器 longint
upcase 字符型 使小写英文字母变为大写 字符型
downcase 字符型 使小写英文字母变为大写 字符型

PI F 圆周率的值

inc(i) 使i:=i+1;
  inc(i,b) 使i:=i+b;
  dec(i) 使i:=i-1;
  dec(i,b) 使i:=i-b;
  abs(x) 求x的绝对值。例:abs(-3)=3
  chr(x) 求编号x对应的字符。例:chr(65)='A' chr(97)='a' chr(48)='0'
  ord(x) 求字符x对应的编号。例:ord(‘A')=65 ord(‘a')=97 另外:ord(false)=0 ord(true)=1
  sqr(x) 求x的平方。例:sqr(4)=16
  sqrt(x) 求x的正根。例:sqrt(16)=4 (ps:负数是不能进行运算的,如果需要就要先取绝对值:sqrt(-4)是错的,应该为sqrt(abs(-4))
  round(x) 求x的四舍五入。例:round(4.5)=5
  trunc(x) 求x的整数部分。例:trunc(5.6)=5 结果是integer型
  int(x) 求x的整数部分。例:int(5.6)=5.0 结果是real型
  frac (x) 求x的小数部分。例:frac(5.6)=0.6
  pred(x) 求x的前导。例:pred(‘b')='a' pred(5)=4 pred(true)=false
  succ(x) 求x的后继。例:succ(‘b')='c' succ(5)=6 succ(false)=true
  odd(x) 判断x是否为奇数。如果是值为true,反之值为false。例:odd(2)=false odd(5)=true
  power(a,n) 求a的n次方。例:power(2,3)=8 {只有在开启math库时才可以使用}
  random 取0~1之间的随机数(不能取到1) 。
  randomize 随机数的种子函数,在每次设置随机数时都要把这个函数放在最前面。
  fillchar(a,sizeof(a),0) 数组初始化,即把数组a的值全部置为0 ;赋成布尔型变量也可以,但注意,赋成1或其他数字,计算机并不会把数组赋成你想要的值,却是其他的数字。
  shr: x shr n 把x换成二进制后向右移n位,相当于把x 除以 2^n。
  shl: x shl n 把x换成二进制后向左移n位,相当于把x 乘以 2^n。
  max(x,y):返回x和y中的较大值。
  min(x,y):返回x和y中的较小值。

=,= 一门语言那么多标准函数,书算什么。
要像了解所有函数的所有用法,去看pascal的文档。

字符串类的函数多一些吧,别的函数自己写也不太复杂吧。。。


用pascal语言编一个程序,使物体从a位置每次移动10单位到b位置,循环1...
program enample;const Aposition = 0; \/\/设A点坐标为0type TObj = object position:integer; end; var ObjA:TObj; i:integer;begin ObjA.position := Aposition; \/\/对象A的位置赋值为A点位置 writeln('Position1 is ', ObjA.position); \/\/输出当前位置 for i:= 1 to 10...

pascal程序的函数都有哪些啊?
Pascal程序的函数主要包括标准库函数和自定义函数。标准库函数:Pascal语言提供了一系列标准库函数,用于执行常见的数学运算、字符串处理、文件操作等任务。例如:数学函数:如`Abs(x)`返回`x`的绝对值,`Sqrt(x)`返回`x`的平方根,`Sin(x)`、`Cos(x)`和`Tan(x)`分别返回`x`的正弦、余弦和正切...

电脑编程有什么用,用pascal什么用
pascal是一种早期的计算机语言,目前并不会有很多人利用它来编写实用的程序,但是作为第一种结构化编程语言,pascal在编程语言中占有重要的地位,一般计算机软件专业的学生或多或少要学习一下,特别是在描述各种算法与数据结构时,经常会用pascal来描述。pascal语言编写的程序有很多特点:结构层次分明,可读性...

free pascal 是什么
Free Pascal是一种开源的Pascal和Object Pascal编程语言编译器和运行时系统。它支持多种操作系统和硬件平台,并允许开发者编写跨平台的Pascal应用程序。Free Pascal的核心特点之一是它对Pascal和Object Pascal语言的广泛支持。Pascal是一种结构化的编程语言,以其简洁的语法和强大的功能而著称。Object Pascal则...

在PASCAL语言程序编译中输入了数据,如何再让程序继续运行,显示最终结果...
在FP界面下,按Alt + F5可以浏览程序运行结果。在仅仅打开这个程序时,则不能看到,不是他没出来,而是太快了,一闪而过。如果想看到结果,可在程序最后(“end.”之前)加上“readln;”便可看到,然而按一下“Enter”键,就会退出程序。

pascal语言 编写程序求1*2*3*...*n>1000的第一个n值 用while循环和repeat...
1、while循环语句的 var ans,t:integer;begin ans:=0;t:=0;while ans<=1000 do begin t:=t+1;ans:=ans*t;end;writeln(t);end.1、repeat循环语句的 var ans,t:integer;begin ans:=1;t:=1;repeat t:=t+1;ans:=ans*t;until ans>1000;writeln(t);end....

pascal语言还有用吗
新的语言、好的语言有好多,可你们这个年龄段的接受能力不适合学习啊。 PASCAL以其结构化程序设计,非常适合中学生学习,培养学生严谨的学习作风,方便差错、改错等,有着其他语言不可比拟的优越性,虽然渐渐地它也会被淘汰。 现在看来就数学问题而言,pascal还是很有用的。我编那个15选5中奖概率的时候,...

一道简单编程题目,用pascal语言
var a,b,c,i:integer;{a,b,c表示三个3位数} f:array[0..9]of 0..1;{用来表示哪些数用了,因为可能出现0,所以不是1..9} bo:boolean;{标志是不是1~9都用了} begin for a:=123 to 329 do {几个数位不相同,最小为123,最大为329,三倍也要是3位数} begin fillchar(f,sizeof(f...

用pascal语言编程,急啊啊啊啊啊啊!
第一题:var a,b,c:longint;{a是甲,b是乙,c是丙} begin{开始} a:=128;b:=128;c:=128;{甲乙丙三人最后的书,128=384 div 3} a:=a div 2;b:=b div 2;c:=a+b+c;{这三句是倒推} a:=a div 2;c:=c div 2;b:=a+b+c;b:=b div 2;c:=c div 2;a:=a+b+c;...

用pascal语言编回文素数
我说一下思路吧。首先数据范围是100000-999999的话,只要循环 for i{循环变量}:=100000 to 999999就可以了,这里循环变量不要忘了要用longint 之后只要判断素数和回文数就可以了 可以用 if 判断回文数(i)=false then flag{记录}=false;else if 判断素数(i)=false then flag(记录)=false;if flag...

高碑店市19178061862: 求pascal语言编程中的书上不太常见的但程序中会出现的函数. -
强眨抚弘: pascal编程书我一本都没有看完过,但函数我都可以提供:abs绝对值abs(-3)=3这类不用多讲.ord求字符的ascll码值,如ord('a')=65,一般的编程书附录都有ascll表 chr求ascll码所对应的字符,和ord函数相反 sqr求平方,如sqr(2)=4 sqrt求开...

高碑店市19178061862: 求几本 pascal 程序设计 入门和中级的书. -
强眨抚弘: 我就摆着我手边上的书给你说了.有一本北工大出版的,张文双、王学红、郭连凤主编的:数据结构与算法设计——pascal语言,封面是蓝色的,可以作为初级和中级的过渡书,讲解很清晰,这本书有配套的入门书(封面绿色),可以去找一找.中级的:司存瑞和苏秋萍主编的NOI数据结构和程序实现,是西安电子科技大学出版社的,封面有大大的NOI三个字,可以作为中级用书.高级的,就是什么算法导论和算法艺术了.

高碑店市19178061862: 初中学历想自学pascal语言看什么书(要通俗易懂的!) -
强眨抚弘: pascal的话建议你看《全国青少年信息学奥林匹克联赛培训教材(中学)》,这本讲的很详细很好,我也是看这本入门的,看完以后就可以看看这一系列的数据结构和算法的书. 至于学C语言,你可以买本清华大学谭浩强的《C语言程序设计》,简单易懂,推荐入门学习. 望采纳,谢谢!

高碑店市19178061862: pascal初学者看什么书比较好? -
强眨抚弘: 推荐书目: 书名:PASCAL程序设计(第二版) 编者:郑启华 出版社:清华大学出版社 价格:19.50元 PS:这本书是PASCAL语法基础,还有一些简单题目的调试,适合初学者使用. 书名:全国青少年信息学奥林匹克竞赛培训教材 复赛(附光盘) 编者:陈合力、游光辉 出版社:浙江大学出版社 价格:39.00元(含光盘) PS:别看是青少年竞赛,这本书里边都是PASCAL语言的经典算法,有图论、动态规划、贪心、分治等等,而且是一线竞赛辅导教师编写,简单易懂. 上面两本书在新华书店都有卖,希望楼主能够早日成为OI爱好者,欢迎采纳!

高碑店市19178061862: 求Pascal语言比较好的教材和软件等等.
强眨抚弘: 《PASCAL程序设计(第二版)》.很不错的一本书. 对于学过c的人来说,学习pascal太简单了吧,很快就能学会的 delphi是运行pascal的编译器,delphi7就足够了吧

高碑店市19178061862: 有什么关于Pascal语言的书籍?
强眨抚弘: 入门没必要选太深的书籍,我翻过几本入门书籍,觉得都还可以,向DELPHI入门到精通、DELPHI编程基础等等,不知道现在书店里都有哪些书? 我没看过DELPHI编程技术内幕,听起来挺吓人的. 简单点的书籍会让你更快入门,太难的书籍反...

高碑店市19178061862: Pascal入门 -
强眨抚弘: 一般初学者学的是Visual Basic(VB),如果硬要学pascal(我就是这样的),往往会学的云里雾里(我也是这样),如果自学必定会有难度,你可以买本《pascal基础语言算法》之类的书来学,慢慢琢磨,但这样毕竟难度很大,所以最好去上课! 不过也可以去贴吧问问题,或者也可以去问问身边的大牛,还可以去tyvj之类的网站上去刷题,这样进步会很快.实际上语言是互通的,学会一门语言之后学下一门语言会很轻松,所以推荐先学Visual Basic或海龟,再学pascal,再学java,c,c++之类的语言,这样比较顺!祝你早日学会编程!QQ:570646177

高碑店市19178061862: 学Pascal语言 -
强眨抚弘: 《PASCAL 语言程序设计》 谭浩强 编著 高等教育出版社 《PASCAL程序设计》 郑启华 清华大学出版社

高碑店市19178061862: 我想学习下计算机编程语言中的帕斯卡语言、请问第一步该怎么做? -
强眨抚弘: 1.下载pascal软件.2.学一些基本的英语,如“begin”“end”“if”“then”“save”...初中英语有及格基本就行(只需要单词大概懂就行,语法没用,这只是让你学的时候不会太抵触....英语全不懂也没事..)3.学会用 pascal这个软件..如怎么新建一个文件,怎么打开,怎么另存为,怎么保存.4.Pascal人的第一步~ 学会输出“HELLO WORD”~~ (有老师就找老师学,没老师就买本书吧,要基础一点的,不要都是题目程序什么的,要那种自己看的懂的,不想买书也可以自己网上找入门)

高碑店市19178061862: 关于pascal语言的教材资料
强眨抚弘: <p>个人一点建议,希望能认真看完.</p> <p>《Free Pascal语言与基础算法》:全国青少年信息学奥林匹克竞赛教程(第3版)</p> <p> 编者:董永建, 舒春平 出版社: 科学技术文献出版社</p> <p>很好很全的一本书,强烈推荐.</p> <p>或...

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 星空见康网