CHH信息奥赛讲义(一).doc

信息奥赛讲义（一） 例L1_1 已知半径，求圆周长和面积的程序 例 L0_001 输入三角形底边和高，求该三角形的面积。写出程序。 例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 a2+bx+c 例L2_2 已知三角形的两边及夹角，求第三边及面积。 设三角形的两边及夹角分别为a，b，α，第三边为c，面积为s。 则 ， 若α以角度值输入，在计算sin和cos时应转换为弧度。角度转弧度的公式为： 弧度=角度× PROGRAM XT2_2; CONST PI=3.14159; VAR a,b,alfa,c,s:real; BEGIN read(a,b,alfa); alfa:=alfa*PI/180; c:=sqrt(a*a+b*b-2*a*b*cos(alfa)); s:=1/2*a*b*sin(alfa); write(alfa,c,s); END. 例L2_3 输入一个字符，求其序号、前导（即前一字符）、后继（即后一字符）。 PROGRAM L2_3; VAR ch,pch,sch:char; num:integer; BEGIN writeln; writeln; write(Please input a character:); readln(ch); write(pch:,pred(ch),,sch:,succ(ch),,num:,ord(ch)) END. 例L2_4 输入x，y。若在圆环内，输出true，若在圆环外，；输出false。圆环如图所示。 讨论：如图所示，若下式 1≤x2+y2≤4 成立则在圆环内，否则在圆环外。 设布尔变量bool，当x，y在圆环内时，让它取值为true，否则取值为false。 “（x，y）若在圆环内”的表达式： (x2+y2≥12)且(x2+y2≤22) PROGRAM L2_4; VAR x,y:real; bool:boolean; BEGIN writeln; write(x=?); readln(x); write(y=?); readln(y); bool:=(x*x+y*y=1) and (x*x+y*y=4); write(bool); END. 习题 XT1_1 判断下列标识符，哪些是合法的？哪些是非法的？ x3，3x，a17，p5q，π，β，ε，abcd，x2，ex9.5 XT1_2 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 XT1_3 已知地球半径为6371km，计算并输出地球的表面积和体积，写出程序。球表面积计算公式s=4πR2 ，球体积计算公式（其中R指球半径）。 XT1_4 已知匀加速运动的初速度为10m/s，加速度为2m/s2，求20s以后的速度，20s内走过的路程及平均速度，写出程序。 设初速度为v0，加速度为a，时间为t，末速度为vt，路程为s，平均速度为vave，求末速度公式：vt=v0+at，路程的公式：，平均速度为vave= XT1_5 读入摄氏温度c，将它转换成华氏温度输出，写出程序。转换公式： XT2_1 下列数据哪些是整数？哪些是实数？哪些是非法的数？ 256，2.50，1e+06，2.2e5，e10，-785，e-5， .5，15.，15.0，0.12，0，0.0，25e， XT2_2 确定下列各常数、表达式的类型和值，表达式类型是指表达式值（结果）的类型。 ‘A’，’3’，3，true，false， 12/3，12 DIV 3，53，53， 105 MOD 10，round(17/3，trunc(17/3)， sqrt(ord(‘2’)-ord(‘0’))， sqr(ord(‘2’)-ord(‘0’))， (53) AND (53)，chr(67) XT2_3 将下列数学表达式表示成PASCAL表达式 (1)-(a2+b2)·y4 (2)sin2(x+0.5)+3cos(2x+4)+tan-1x (3)u0(1+e-0.5t) (4) (5) (6) (7) (8)|3-exln(1+x)| (9) (10) 提示：①sin2(x)=(sin(x))2 ②arctan(x)= tan-1x ③ea=exp(a) ④sin、cos等三角函数的自变