CHH信息奥赛讲义(一)答案.docVIP

信息奥赛讲义（一）答案 例 L0_001 输入三角形底边和高，求该三角形的面积。写出程序。 PROGRAM L0_001; VAR di,gao,s:real; BEGIN writeln; writeln; write(di=?); readln(di); write(gao=?); readln(gao); s:=di*gao/2; write(s=,s); END. 例L0_002 写出下列PASCAL语句的执行结果 表达式 结果 A0:=(15) false A1:=(15) true writeln(A0 AND A0) false writeln(A0 AND A1) false writeln(A1 AND A0) false writeln(A1 AND A1) true writeln(A0 or A0) false writeln(A0 or A1) true writeln(A1 or A0) true writeln(A1 or A1) true 例L0_003 数学表达式 PASCAL表达式 b2-4ac b*b-4*a*c (a+b)/(c+d) (a+b)/c+d a*b/(c*d)或a*b/c/d 1/2*a*c a2+bx+c a*a+b*x+c sqrt(a*a+b*b-2*a*b*cos(alfa)) 1/2*a*b*sin(alfa) 习题 XT1_1 判断下列标识符，哪些是合法的？哪些是非法的？ x3，3x，a17，p5q，π，β，ε，abcd，x2，ex9.5 解：其中x3，a17，p5q，abcd是合法的； 3x，π，β，ε，x2，ex9.5是非法的。 XT1_2 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 PROGRAM XT1_2; VAR num1,num2,num3,ave,mul:real; BEGIN read(num1,num2,num3); ave:=(num1+num2+num3)/3; mul:=num1*num2*num3; write(ave,mul); END. XT1_3 已知地球半径为6371km，计算并输出地球的表面积和体积，写出程序。球表面积计算公式s=4πR2 ，球体积计算公式（其中R指球半径）。 PROGRAM XT1_3; CONST PI=3.14159; R=6371; VAR s,v:real; BEGIN s:=4*PI*R*R; v:=4/3*PI*R*R*R; write(s=,s,v=,v); END. XT1_4 已知匀加速运动的初速度为10m/s，加速度为2m/s2，求20s以后的速度，20s内走过的路程及平均速度，写出程序。 设初速度为v0，加速度为a，时间为t，末速度为vt，路程为s，平均速度为vave，求末速度公式：vt=v0+at，路程的公式：，平均速度为vave= PROGRAM XT1_4; CONST V0=10; A=2; VAR t,s,v_20,v_ave:real; BEGIN t:=20; v_20:=V0+A*t; s:=V0*t+1/2*A*t*t; v_ave:=s/t; write(v_20=,v_20,s=,s,v_ave=,v_ave); END. XT1_5 读入摄氏温度c，将它转换成华氏温度输出，写出程序。 转换公式： PROGRAM XT1_5; VAR c,f:real; BEGIN writeln; writeln; write(c=?); readln(c); f:=9/5*c+32; write(f=,f); END. XT2_1 下列数据哪些是整数？哪些是实数？哪些是非法的数？ 256，2.50，1e+06，2.2e5，e10，-785，e-5， .5，15.，15.0，0.12，0，0.0，25e， 解：其中256，-785，0是整数；2.50，1e+06，2.2e5， 15.0，0.12，0.0是实数；e10，e-5，.5，15.， 25e是非法的数。 XT2_2 确定下列各常数、表达式的类型和值，表达式类型是指表达式值（结果）的类型。 常数或表达式 类型