PASCAL语法基础_答案.docVIP

PAGE \* MERGEFORMAT6 Pascal语法基础习题 第一题：下列哪些常量是对的，哪些是错误的，错在哪？ Const a=30; b=a; b=a+1; c=true and false d=2,3 f,g=a; 解：1.常量定义不可以出现字母的赋值，如：B=a;B=a+1; 2.定义的数值只可以唯一。如 D=2,3则为非法。 3.常量只可以一个一个定义。如F,g=3为非法，更不用说 F,g=a.? 第二题：下面的表达式，哪些是正确的，哪些是错误的；正确的请求出表达式的值，错误的指出其错误。 （其中L为整型变量，R为实型变量） （1）round(L) and round(L+1) （2）round(L)〈round(L+1) （3）odd(L) or odd(L+1) （4）round(L/r) mod 5 解：1.大家知道round()是取四舍五入的标准函数.odd()是判断奇偶数的函数。 2.and or not 只能连接布尔型常量true或false.并且得到布尔型常量。 而比较符如,,或odd()函数等也可以得到布尔型常量. 所以：1。错误 2。true 3。true 4。小于5大于等于0的整数 第三题：将下列写成pascal语言的表达式。 (1) Ma+b (2)tg2(x/2)/(a-x) a+3 (3) 4/(b+1)+c+d 解：这一题很简单，只要知道括号的运用一般就可以迎刃而解，并且要知道pascal中没有直接的次方函数。正切的函数为tan(),其它三角函数可以通过正切来转化。如sin,cos,ctg等。 1。S:=1;for i:=1 to (a+b) do S:=S*M;M:=S; 2。tan(x/2)*tan(x/2)/(a-x) 3。(a+3)/((4/b+1)+c+d) 第四题：完善下列程序： 问题：给出半径R=100，高H=30，求圆周长、圆面积、圆柱全面积。 源程序： program lx1(input,output); var (1):real; begin len:=2*pi*r; s:=(2); qs:=len*h+2*s; writeln(len=,len,s=,sm,qs=,qs); end. 解：我们可以看到变量pi,r,s,qs,len,h均未定义。则（1）为pi,r,s,qs,len,h 由圆面积公式可以很容易得到（2）：pi*r*r 注：这一题题目有错，pi,r,h变量未定义。同学们可以自行加上，但不可以不加。 如在begin下加 pi:=3.1415926; r:=100; h:=30;? 第五题：编写一程序，当程序执行时，输入以秒为单位的时间，输出形式为：“小时:分:秒” 解：这一题用到两个标准函数：mod和div,mod指取余,div指取整商。 用puts表输入，用hours表小时，用minutes表分钟，用seconds表秒。 程序如下： program name; var puts,hours,minutes,seconds:integer; begin read(puts); hours:=puts mod 3600; puts:=puts div 3600; minutes:=puts mod 60; seconds:=puts div 60; writeln(hours,:,minutes,:,seconds) end. 同学们可以看到puts是输入变量，也是临时变量，变了两次值，仔细想想是如何变化的。 第六题：编写一程序，输入一个三位数的正整数，输出时反向输出。如：输入456,输出654。 解：这一题如果学了数组很简单，没有的话就要用mod和div函数，请同学们在理解上一题的 基础上看下面的程序。 program name; var three:integer; begin read(three); for i:=1 to 3 do begin write(three mod 10); three:=three div 10; end; end. 本程序用到一个for循环,指循环执行三次。同学们想一想最后three的值是什么？对了！是0！ 第七题：编写一个程序，输入两个实数a,b，求a,b的乘积