下载文档原格式
2005年东莞市小学生计算机程序设计竞赛复赛试题（二）pascal语言说明：请将答案填在答题卡上，只交答题卡，一、选择题：（每题1分，共10分）1、计算机内部，对数据进行加工处理都是以（）形式进行的。
A、十进制数B、二进制数C、十六进制数D、八进制数2、不同的计算机所用的指令也不同，这主要取决于（）。
A、所用的操作系统B、系统的总体结构C、所用的CPUD、所用的语言3、下面不是程序设计语言的有（）。
A、PASCALB、BASICC、C++D、DOS4、下列五进制数中，不合法的数（）。
A、310（5）B、401（5）C、250（5）D、300（5）5、计算机病毒破坏的是（）。
A、软盘B、硬盘C、打印机D、程序和数据6、下面几个不同进制的数中，最小的是（）A、102（5）B、65（10）C、78（8）D、110110(2)7、1字节在计算机中用位二进制来表示（）A、2位B、8位C、10位D、16位8、1个汉字在计算机中占个字符的位置（）A、2个B、8个C、10个D、1个9、断电后保存在下面哪个设备中的数据会丢失（）A、硬盘B、光盘C、ROMD、RAM10、下列设备中，既是输入设备，又是输出设备的是（）A、显示器B、打印机C、磁盘D、扫描仪二、填空题（每小题5分，共15分）1、求144的约数有多少个？（所谓144的约数，就是指能整除144的数）2、从1到99的自然数中，不含数字3的自然数有多少个？3、100个青年人中，会骑自行车的有83人，会游泳的有75人，两样都不会的有10人，两样都会的有多少人？三、运行结果：（每小题6分，共36分）四、程序填空：（每空3分，共39分）1、从键盘输入两个字符串A和B，下面程序能找出它们最长的公共子串，请完善程序。
分析：所谓公共子串，就是两个字符串中含有相同的子字符串。
program f2_401;var a,b,temp,d:string;la,lb,len,j,k:integer;beginwrite('input the string 1:');readln(a);write('input the string 2:');readln(b);if length(a)>=length(b) thenbegintemp:=a;a:=b;b:=temp;end;la:=length(a);lb:=length(b);for len:=la downto 1 dofor j:=1 to la+1-len dobegind:= (1) ;for k:=1 to lb+1-len doif (2) thenbeginwriteln( (3) );halt;end;end;writeln('no fint!');end.2、面程序的功能是：读入N个数,用折半插入法进行从小到大排序。
pascal语言试题及答案1. Pascal语言的创始人是谁？- A. Dennis Ritchie- B. Bjarne Stroustrup- C. Niklaus Wirth- D. Guido van Rossum答案： C2. 以下哪个选项不是Pascal语言的特性？- A. 结构化编程- B. 强类型- C. 面向对象- D. 编译型语言答案： C3. Pascal语言中，用于声明变量的关键字是什么？- A. var- B. let- C. def- D. declare答案： A4. 在Pascal中，以下哪个运算符用于比较两个变量是否不相等？ - A. =- B. <>- C. ==- D. !=答案： B5. Pascal语言中，以下哪个关键字用于定义函数？- A. function- B. procedure- C. define- D. method答案： A6. 在Pascal中，如何声明一个整型数组？- A. var arr: array[1..10] of integer;- B. var arr: integer[1..10];- C. var arr: integer array[1..10];- D. var arr: integer[10];答案： A7. Pascal语言中，以下哪个语句用于循环执行一段代码？ - A. loop- B. repeat- C. while- D. for答案： D8. 在Pascal中，以下哪个关键字用于定义过程？- A. function- B. procedure- C. subroutine- D. method答案： B9. Pascal语言中，以下哪个运算符用于取模运算？- A. %- B. mod- C. div- D. rem答案： D10. 在Pascal中，以下哪个关键字用于定义一个记录类型？ - A. record- B. struct- C. type- D. class答案： A。
20XX年7月7日练习题，1、请同学们以自己的姓名建立好文件夹，设置好FP快捷方式的路径；2、每道题必须按给定的文件名命名,保存在自己姓名的文件夹下；1、求梯形面积（保存文件名：a.pas）输入梯形的上底a、下底b和高h，求该梯形的面积。
( 梯形面积公式为S=2、求圆柱体的面积（保存文件名：b.pas）输入图圆柱体的高h，底面圆的半径r，求圆柱体表面积。
例如：输入12 7（分别表示高h，半径r)输出：3、找规律(保存文件名：c.pas)题目描述给出一个数列4,7,10,13,16,19,22...，问这个数列的第n项是什么？输入一行一个整数n输出一行，表示这个数列的第n项是多少输入样例8输出样例254、鸡兔同笼问题(保存文件名：d.pas)题目描述每一只鸡有两条腿，一只兔子四条腿，现在给出鸡兔总共有n条腿，然后其中有m只是兔子，问有多少只鸡。
输入一行，两个整数n，m分别表示有n条腿和m只兔子输出一行，表示有多少只鸡输入样例100 15输出样例20解释有100条腿，15只兔子。
15只兔子有60条腿，也就是说鸡有40条腿，也就是说有20只鸡。
5、完全平方数(保存文件名：e.pas)题目描述给出一个整数n，如果n是完全平方数，那么输出yes，否则输出no输入输出如果n是完全平方数，则输出yes，否则输出no样例输入：样例1：25样例2：37样例输出：样例1：yes样例2：no6、菲波拉契数列(保存文件名：f.pas) 菲波拉契数列如下：0,1,1,2,3,5,8,13,21,……输入：n输出：第n项。
如输入：1应输出：0输入：5输入:8输出:137、判断质数(保存文件名：g.pas)输入1个自然数x，判断x是不是质质，如果是质数，输出“Yes”，否则输出“No”. 如输入：3输出：Yes输入：9输出：No输入:17输出Yes8、判断某年某月的天数(保存文件名：h.pas)输入一个年份year, 和一个月份month,输出这年这月应是的天数。
第一届绍兴市少儿信息学奥林匹克竞赛试题（小学组PASCAL语言二小时完成）●●全部试题答案都要求写在答卷纸上，写在试卷上一律无效●●一．选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题2分，每题只有一个正确答案，多选无分。
共30分）1）世界上第一台电子计算机ENIAC于（）年诞生于美国。
A)1988B)1981C)1946D)19792）下列计算机设备中，是输出设备的是（）A)RAM B)鼠标C)键盘D)打印机3）下列计算机设备中，断电后其中的信息全部消失的是（）A)RAM B)CPU C)ROM D)硬盘4）ASCII码最多能表示的符号数目是（）A)256B)128C)1024D)645）为了有效地预防计算机感染计算机病毒，下列措施中，错误的是（）A)安装病毒防火墙B)定期用杀毒软件对计算机进行查、杀毒处理C)定期用酒精或消毒药水对计算机各个部件进行擦拭消毒处理D)不使用非法盗版软件6）下列不是计算机病毒特征的是（）A)破坏性B)传染性C)可见性D)隐蔽性7）下列对于因特网的描述正确的是（）A)是一个局域网B)是一个城域网C)因特网唯一的功能就是网页浏览D)是一个广域网8）为了方便我们在因特网上查找信息，人们推出了“搜索引擎”（网站），下列网站中，是“搜索引擎”的是（）A) B)C) D)9）从法律的角度出发，下列软件中允许用户对其进行修改的是（）A)自由软件B)免费软件C)共享软件D)商业软件10）下列操作系统中，不是微软公司产品的是（）A)LINUX B)WINDOWS98C)WINDOWS2000D)WINDOWS XP11）WINDOWS98是一个多任务操作系统，当我们需要关闭一个正在运行的程序时，我们可以通过按（）键来打开“关闭程序”窗口，然后选择一个相应的程序进行关闭。
A)B)C)D)12）下列软件中，是我国国产软件的是（）A)PHOTOSHOP B)金山画王C)WORD D)EXCEL13）小明正在用WORD软件写作文，突然他发现最后输入的一个汉字错掉了，如图1所示。
小学组Pascal语言试题（一）一、单项选择。
（每小题1.5分，共15分）1.下面是某同学定义的变量名，合符Pascal语法的是（）。
A．integer B. x1 B. 2x D. x*y2．假定所有变量均为实型，算式的正确Pascal表达式是（）。
A.(u+a)/((b-v)/(c-w)+u*d)B. (u+a)/(b-v)/(c-w)+u*dC. u+a/b-v/c-w+u*dD. (u+a)/((b-v/c-w)+u*d)3. 有如下的变量说明var x,y,z:integer;a:real;则下面的赋值语句中正确的是（）A．x=y div 7; B. x:=y/z; C. a:=x*y; D. x+y:=z;4. 设a,b,c,d均为整型变量，对于下面的程序段a:=0;b:=0;readln(a,b);read(c);readln(d);若从键盘输入：12 3 45 6 7其中，表示“回车”，则a,b,c,d中的数应为下面哪一组？（）A.1,2,3,4B.1,2,3,5C.1,2,5,6D.1,0,3,55. 设n为整型变量，且n:=1997，下面能将n的十位数字（即右边第2位数字）分离出来的语句是（）。
A. d:=n mod 100B. d:=n div 100;C. d:=n div 100 mod 10;D. d:=n mod 100 div 106.“判断一个整数x是另一整数y的整数倍”的pascal表达式是（）。
A．x=2*y B. x/y=2 C. x mod y=0 D. x mod y=17. Pascal表达式“2008 div 5 mod -2”的结果是：A. 8B. -1C. 0D. 18. 设实型变量pi已赋值为3.14159，下面不能输出3.14的语句是( )。
A. write(pi:0:2);B. writeln(pi:1:2);C. write(pi:2:2);D. writeln(pi:2);9．下列程序段的输出结果是（）。
一、鸡兔同笼问题程序名:a.pas题目描述每一只鸡有两条腿，一只兔子四条腿，现在给出鸡兔总共有n条腿，然后其中有m只是兔子，问有多少只鸡。
输入一行，两个整数n，m分别表示有n条腿和m只兔子输出一行，表示有多少只鸡样例输入100 15样例输出20提示有100条腿，15只兔子。
15只兔子有60条腿，也就是说鸡有40条腿，也就是说有20只鸡。
二、找规律程序名:b.pas题目描述给出一个数列4,7,10,13,16,19,22...，问这个数列的第n项是什么？输入一行一个整数n输出一行，表示这个数列的第n项是多少样例输入8样例输出25三、水仙花数程序名：c.pas找出100到999之间的整数中所有等于它每位数字立方和的数. 如：153=1*1*1+5*5*5+3*3*3此题无输入每行输出一个数四、求某月的天数程序名：d.pas输入两个数，一个代表年份，一个代表月份输出这个月的天数样例输入：2000 2样例输出：29五、小青蛙回来了程序名:e.pas题目描述关于小青蛙爬井的故事，你应该早就听过了：井深10尺，小青蛙从井底向上爬，每个白天向上爬3尺，每个晚上又滑下来2尺，然后问你第几天它能爬上来。
答案是第8天。
现在，那只著名的小青蛙又回来了，它现在每个白天已经可以向上爬m（2 <= m <=10）尺了，当然，晚上还是要下滑n（1 <= n < m ）尺的。
如果告诉你井深h（10 <= h <= 2000000000）尺，请计算一下，现在，它第几天可以爬上来。
输入有三个整数，分别表示m、n、h。
输出只有一个整数，表示第几天可以爬上来。
样例输入3 2 10样例输出8六、3x+1程序名：f.pas题目描述给出一个整数n，如果n是偶数，那么输出n div 2，否则输出n*3+1输入一行，一个整数n输出一行，如果n是偶数，那么输出n div 2，否则输出n*3+1样例输入100样例输出50。
PASCAL练习题PASCAL练习题序号题目难度完成数1计算路程167 2摄氏温度转华氏温度165 3求一元二次方程的根265 4成绩评定266 5商场折扣268 6倒数数列和357 7阶乘和357 8求最大值和最小值362 9菲波拉契数列354 10求素数347 11百钱买百鸡363 12水仙花数362 13计算π的值355 14最大公约数和最小公倍数458 15完数461 16亲密数对455 17奖学金认定259 18计算年龄261 19汽车时速计算353 20猴子吃桃问题454 21验证哥德巴赫猜想435 22钞票兑换344 23成绩评定2225 24聪明的猪414 25插入排序47 26约瑟夫问题516 27不重复的随机数413 28侦察任务310 29猜数游戏218 30因式分解411 31砝码选择34 32电灯开闭36 33追查凶手34 34十进制转二进制315 35分糖216 36贮油点53 37运动会成绩统计45 38等式填空315 39验证尼科彻斯定理410 40回文字符串217 41中缀表达式转后缀表达式57 42二叉树的遍历313 43留学生应会的语言31 44绝对素数20 45互不相同的七位完全平方数30 46求数字的乘积根50 47纯粹素数30 58完全平方数40 49十六进制数转十进制数20 50楼梯的不同走法50 51计数排序30 52厄拉多赛筛法求素数20 53杨辉三角形30 54打印图形20 55扑克分发30 56统计单词个数40 57二叉排序树20 58按比例组数30 59数字三角形40 60最佳字符编码40 1.计算路程【题目描述】从键盘输入速度v和时间t，要求计算路程s。
2.摄氏温度转华氏温度【题目描述】读入摄氏温度c，将它转换成华氏温度f输出，写出程序。
已知：f=9/5*c+32 3.求一元二次方程的根输入a,b,c，求一元二次方程ax2+bx+c=0的根。
PASCAL入门测验2（附答案）小学复赛集训21．问题描述：某科技展教馆的团体入场费30人为50元，超过30人后，每增加1人增加费用1元，为了使所有人平均后的每人费用不超过某个指定的费用m（1< p="">输出：ZuishaoRenshu：31var i,j:longint;m,n:real;begin write('M=');readln(m);i:=30;j:=50;n:=50/30;while n>m do begin i:=i+1;j:=j+1;n:=j/i;end;writeln(i);readln;end.2．三位数345，3<4<5，称这个三位数为“迎春花”数，输出三位数中所有既是“迎春花”数又是质数的数，并统计个数。
(127、137、……、569，S=20)var x,a,b,c,s,y,h:integer;begin for x:=100to999dobegin a:=x div100;b:=x div10mod10;c:=x mod10;s:=0;for y:=1to x doif x mod y=0then s:=s+1;if(s=2)and(a<b)and(bend;write('s=',h);end.3．所有的正整数均可以表示为一个、两个或者多个连续的正整数之和，给定一个不超过30000的正整数，求出它可以用几种不同的方法表示成连续正整数之和。
如给出9，则有三种方法：9，4+5，2+3+4。
（注：方法5+4与方法4+5视为是相同的）用键盘输入一个正整数n（1≤n≤30000），输出与之相应的不同方法种数。
输入输出样例：输入：n=9↙输出：3var s,n,i,j,c:integer;begin write('n=');readln(n);c:=0;for i:=1to n dobegin s:=0;j:=i;while sif s=n then c:=c+1;end;writeln(c);end.4．任意输入一个自然数X，输出它对应的汉语拼音。
’99小学生计算机知识竞赛初赛试题（PASCAL语言二小时完成）●●全部试题答案均要求写在答卷纸上,写在试卷纸上一律无效●●一、选择一个正确答案代码（A/B/C/D），填入每题的括号内（每题1.5分，多选无分，共30分）1．微机内的存储器的地址是按编址的。
A．二进制位B．字长C．字节D．微处理器的型号2．下列诸因素中，对微机工作影响最小的是。
A．尘土B．噪声C．温度D．湿度3．在24*24点阵的字库中，汉字‘一’与‘编’的字模占用字节数分别是。
A．32，32 B．32，72 C．72，72 D．72，324．将DOS系统盘插入A驱动器启动机器，随后使用一批应用软件，在此过程中，DOS系统盘。
A．必须始终插入在A驱动器中B．不必再用C．可能有时要插入A驱动器中D．可能有时要插入B驱动器中5．以下DOS命令中，有可能在磁盘上建立子目录的是。
A．type B．dir C．xcopy D．Cd6．计算机病毒破坏的是。
A．软盘B．硬盘C．打印机D．程序与数据7．五笔字型编码属于。
A．国际码B．机内码C．输入码D．字形码8．在微机中，通用寄存器的位数是。
A．8位B．16位C．计算机字长D．32位9．计算机要处理磁盘上的文件时，应先将文件内容读到中。
A．CPU B．寄存器C．内存储器D．控制器10．计算机的软件系统通常分为。
A．系统软件与应用软件B．高级软件与一般软件C．军用软件与民用软件D．管理软件与控制软件11．执行DOS命令：C>COPY A:*.* 的功能是A．将A盘上所有文件复制到C盘根目录下B．将A盘上当前目录下所有文件复制到C盘根目录下C．将A盘上当前目录上用DIR命令能显示文件名的所有文件复制到C盘当前目录下D．将A盘上所有用DIR命令能显示文件名的所有文件复制到C盘根目录下。
12．执行下列DOS命令，效果等价的是组。
A．copy *.for 与copy *.for conB．copy A: *.* B: 与xcopy A:*.* B:C．copy filel.txt+file2.txt 与copy file2.txt+filel.txtD．xcopy A:*.* B:/S 与diskcopy A: B:13．已知小写字母'm'的十六进制的ASCII码值是6D，则小写字母'c'的十六进制的ASCII 码值是。
一、编程实现：（1）：输入x,y的值,用程序实现输出时x为y的值，y为x的值。
(test1)（2）：输入一个三位数，输出它的相反数。
如：输入234，输出432。
（3）：从键盘输入一个数x，计算表达式3*x-6的值，并在屏幕输出结果。
(test3)（4）：输入20个数，统计其中正数、负数和零的个数。
要求：程序名ex统计个数变量：num1（正），num2（负），num3（零）循环变量：i（5）：用当循环语句（while）编程计算1×2×4×6×8×……×20的积。
(test5)（6）：李冬期末考试考语文、数学、英语三门课程，编程求他期末考试的总分和平均分(test6) （7）：随机产生互不相同的两位数20个，并按从小到大的顺序排列。
（8）：新年联欢会，来宾聚一堂，互相碰一杯，903响，问有多少人，饮酒在会上？（9）：编程求1~100以内所有质数的和。
（10）：编程判断某个年份是否是闰年。
输入年份（变量名称：year），若是闰年，则在屏幕上显示Yes，否则输出No (test10（11）：小明有一本书，第一天看了全书的一半，第二天又看了剩余的2/3，还有10页没看完，问全书共有几页？（12）：一本1000页的书，黄强第一天看了10页。
以后每天比前一天多看3页，编程求出黄强最后一天看了多少页。
（13）：兄弟三人岁数和是30，大哥的岁数减2，二哥的岁数加2，弟弟的岁数乘以2 ，结果三人的岁数相同，求三人的岁数各是多少？（14）：求1+5+9+13+…101的和。
（15）：剧场中有1000个座位，已知第一排有30个座位，以后每排增加2 个座位，1000个座位最多能排几排？最后剩余不够一排的座位有几个？如果按前边的排法再补全一排，整个剧场有多少个座位？（16）：爸爸比儿子大30岁，四年后爸爸的年龄将是儿子的四倍，问爸爸和儿子各是多少岁？（17）：用数组形式求1-100以内所有奇数的和。
（18）：编程模拟投掷硬币100次正反面各出现的次数。
（19）：编程求出所有十位数字与个位数字之和等于百位数字的三位数。
（20）：随机生成20个两位数的整数，并按从大到小的顺序输出。
（21）：编程模拟中福彩票双色球号码产生的程序。
基本要求是红球号码范围为1-33，共产生6 个。
蓝球号码范围为1-16，共产生1 个。
编程输出结果如下：2 6 8 20 24 30 -5 （22）：输入三个数，输出三个数中最大的一个。
（23）：输出11+12+23+35+58+813+1321+2134……前20项之和。
（24）：由键盘输入正整数N（N≤100），求1到N之间所有的5的倍数之和S。
例：输入：N＝10输出：S＝15（因为1～10之间只有5和10是5的倍数）（25）：一光滑墙壁高X尺，有一个小虫从墙底部向上爬，每分钟爬Y尺。
但每爬一分钟后都要休息一分钟，在休息期间又下滑一尺。
编程：输入X和Y，计算该小虫最少几分钟可爬到顶端。
如：输入：X，Y＝4,2输出：5二、写出程序的运行结果1．PROGRAM exam(Input,Output);V AR ch1,ch2,ch3:char;BEGINreadln(ch1,ch2,ch3);readln(ch1,ch2);readln(ch1);writeln(ch1,ch2,ch3);END.运行以上程序时，若输入为：ABYXOZBGD则输出结果为：BOY2．PROGRAM p226(output);V AR a,k:integer;BEGINa:=3972; k:=0;WHILE a<>0 DOBEGINa:=a DIV 10; k:=k+1END;Writeln(k:3)END.执行后的输出是：43．PROGRAM p29(output);V AR i,j:integer;BEGINFOR i:=1 TO 5 DOBEGINFOR j:=5 DOWNTO i DO Write(‘+’);Writeln ;ENDEND.运行后输出的图形应是：++++++++++4．FUNCTION high(x,y:integer):integer;BEGINhigh:=x-(x+y) DIV (x-y)END;执行语句t:=high(4,high(6,high(4,1)))后，求变量t的值。
t = -3 (example3)5．FUNCTION f(a,b,c:integer):integer;V AR t:integer;BEGINa:=3*a;t:=b DIV c;f:=a+4*tEND;求表达式f(1,f(1,2,3),3)的值。
f=7 (example3)6．FUNCTION F(n,p:integer):integer;V AR i:integer;BEGINn:=abs(n);FOR i:=1 TO p-1 DO n:=n DIV 10;F:=n MOD 10END;求执行函数调用语句F(5623,6)后的函数值。
f=0 (example3)7．FUNCTION f(n:integer):integer;BEGINIF n=0 THEN f:=0ELSE IF n>0 THEN f:=f(n-2)ELSE f:=f(n+3);END;求函数调用f(5)的值。
f=0 (example3)8．FUNCTION f1(a,b:integer):integer;BEGINIF b=0 THEN f1:=aELSE f1:=f1(pred(a),pred(b))END;求f1(10,6)的值。
f=4 (example3)9．PROGRAM main(input,output); (example4) V AR s,n:integer;PROCEDURE p1;V AR i:integer;BEGINs:=0;FOR i:=0 TO n DO s:=s+1END;PROCEDURE p2;V AR j:integer;BEGINn:=1;FOR j:=1 TO s DO n:=n*jEND;BEGINn:=2;p1;writeln(‘s=’,s);p2;writeln(‘n=’,n);p1;writeln(‘s=’,s);END.结果:s=3n=6s=710．PROGRAM EX(output); (example5)V AR x,y,z:integer;PROCEDURE P(x,y:integer;V AR z:integer);BEGINz:=y-x-z;END;BEGINx:=5; y:=7; z:=4;P(7,x+y+z,x);Writeln(x:2,y:2,z:2)END.结果: 4 7 411．PROGRAM EX(output); (example6)V AR i,j:integer;PROCEDURE f(k:integer;V AR l:integer);BEGINIF k>=0 THEN l:=kELSE l:=-kEND;BEGINFOR i:=-2 TO 2 DOBEGINf(i,j);write(j:2)END;WritelnEND.结果: 2 1 0 1 212．PROCEDURE DB(n:integer); (example4)BEGINIF n>2 THEN DB(n DIV 2);Write(n MOD 2:1)END;主程序用DB(12)调用上述过程，输出的正确结果：110013．PROGRAM EX(output); (example7)VAR x,y,z:integer;PROCEDURE P(x:integer;V AR y:integer);BEGINx:=5; y=6; z=7;writeln(x:3,y:3,z:3)END;BEGINx:=1; y:=2; z:=3;P(x,y);Writeln(x:3,y:3,z:3)END.结果:5 6 71 6 714．PROGRAM pro(input,output); (example8)VAR x,y:integer;PROCEDURE pro(i1,i2:integer);BEGINi1:=x+y; i2:=i1*yEND;BEGINx:=5; y:=10;pro(x,y);Writeln(x:3,y:3)END.结果: 5 1015．FUNCTION f(a,b,c:integer):integer; (example3)V AR t:integer;BEGINa:=3*a;t:=b DIV c;f:=a+4*tEND;求表达式f(1,f(1,2,3),3)的值。
f=716． FUNCTION f(n:integer):integer; (example3)BEGINIF n=0 THEN f:=0ELSE IF n>0 THEN f:=f(n-2)ELSE f:=f(n+3);END;求函数调用f(5)的值。
结果: f=017．设有一函数子程序定义如下：FUNCTION f(x,y,z:integer):integer; (example3)BEGINf:=z-y DIV x;END;执行语句cal:=f(f(2,4,6),6,8)后，变量cal的值。
结果: f=718．CONST r=1; s=2; t=3; (11example)V AR x:ARRAY [1..5] OF integer;且已知x[1]=1; x[2]=7; x[3]=9; x[4]=1; x[5]=6;则计算表达式：(x[s]-1>x[5]) AND (x[t]=7) OR (x[r*3]=(r+s))的值。
表达式简化为0 and 0 or 1结果:119．PROGRAM pro(input,output); (example9)V AR a,b:integer;PROCEDURE p1(x:integer;V AR y:integer);BEGINy:=x+y;writeln(x:3,y:3)END;BEGINa:=5; b:=8; p1(a,b); p1(a+b,a); p1(a DIV b,b)END.结果:5 1318 231 1420．PROGRAM main(input,output); (example4)V AR s,n:integer;PROCEDURE p1;V AR i:integer;BEGINs:=0;FOR i:=0 TO n DO s:=s+1END;PROCEDURE p2;V AR j:integer;BEGINn:=1;FOR j:=1 TO s DO n:=n*jEND;BEGINn:=2; p1; writeln(‘s=’,s); p2;writeln(‘n=’,n); p1; writeln(‘s=’,s);END.结果:s=3n=6s=721．PROGRAM pro1(input,output); (example8)VAR x,y:integer;PROCEDURE pro(i1,i2:integer);BEGINi1:=x+y; i2:=i1*yEND;BEGINx:=5; y:=10;pro(x,y);Writeln(x:3,y:3)END.结果: 5 1022．PROGRAM Y(output); (12example)VAR a,b:integer;PROCEDURE P(c:integer;V AR d:integer);BEGINc:=a+b; d:=a-bEND;BEGINa:=1; b:=2;P(a,b);Writeln(a:3,b:3)END.结果: 1 -123．PROGRAM Abc(output); (13example)V AR k:integer;A:ARRAY [1..5] OF integer;BEGINFOR k:=1 TO 5 DO A[k]:=2*k;FOR k:=2 TO 4 DO A[k]:=A[k+1]+A[k-1];Writeln(A[2]:3,A[4]:3)END.结果: 8 26。
