第一、二章检测卷.jsp.docVIP

第一、二章检测卷 一、填空题（2′×18） 1、标识符x3，3x，a17，p5q，π，β，ε，abcd，x2，ex9.5中， 合法的标识符： x3,a17，p5q，abcd 非法的标识符： 3x，π，β，ε，x2，ex9.5 2、求出下列函数的值 abs(-7.49) round(-4.3) trunc(2.88) round（2.88） sqrt(4) sqr(4) abs(-20) chr(66) ord(‘A’) 7.49000000000000000E+000 -4 2 3 2.0000000000000000E+000 16 20 B 65 3、计算下列表达式的值：24 MOD 7 24 DIV 7 3 3 4、写出下列数学式对应的表达式： -(a*a+b*b)*y*y*y*y 1/2*a*c (1/2*a*b)sin alfa sqrt(a*a+b*b-(2*a*b)cos alfa) (a+b)/(c+d) 二、程序题 1、输出两个自然数相除的商和余数。（10′） 分析：设被除数、除数、商和余数，分别为a,b,c,d，均为变量，并且都是整数样型。题中未给出具体的自然数a、b，可采用键盘输入方式。 从键盘输入两数a、b； 显示两数相除的数学形式 求出a除以b的商c； 求出a除以b的余数d； 紧接等式后面输出商和余数 Var a,b,c,d:integer; Begin Readln(a,b); Write(‘a/b=’); C:=a div b; D:=a mod b; Write(c,’ ‘,d); End. 2、交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值，并将交换后的两个变量值输出。（10′） 分析：可以想象成交换两盒录音带（称为A和B）的内容，可以按以下步骤处理。 拿一盒空白录音带C为过渡，先将A翻录至C；、 再将B翻录至A； 最后将C翻录至B var a,b,c:integer; begin readln(a,b); c:=a; a:=b; b:=c; writeln(a,b) end. 3、有鸡兔同笼，头共30个，脚共90只，究竟笼中的鸡和兔各有多少只？（12′） 分析：设鸡为J只，免为T只，头为H，脚为F，则 J+H=30 2*J+4*T=90 解此题暂不必采用数学上直接解方程的方法，可采用“假设条件与逻辑推理”的方法：假设笼中30个头全部是兔，那么都按每头4只脚计算，总脚数为4H，与实际脚数F之差为4H-F，如果这个差等于0，则笼中全是兔；如果这个差值0，说明多计算了脚数，凡是鸡都多给算了两只脚，用它除以2就能得到鸡的只数。 Var j,t,head,feet:integer; Begin Head:=30; feet:=90 For j:=1 to head do Begin T:=head-j; If (2*t+4*f)=feet then write(j,t); End; End. 4、输入三个字符，然后按输入字符次序输出这三个字符，再输出每个字符的序号，最后按与输入字符相反的次序输出这三个字符。（10′） Var a,b,c,d:integer; Begin Readln(a,b,c); Write(a,b,c); D:=a;a:=b;b:=c;c:=d; Writeln(a,b,c); End. 5、由键盘输入两组x，y值，由程序根据它们是否在示意图中的斜线区域内，输出不同的值。若在斜线区域内，输出true，否则输出false。（10′） Var a,b:real; Begin If ((-2a)and(a2))and((-2b)and(b2)) then write(‘true’) Else write(‘false’); End. 6、输入一个三位整数，将它们反向输出。例如输入127，输出应为721。（12′） var a,b,c,d:integer; begin b:=a div 100; c:=(a-b)div 10; d:=a mod10 ; a:=b+c*10+100*d; write(a); end. x y 2 2 -2 -2 0 JC-5图示