NOIPl经典例题答案24页.pdf

Free Pascal答案 P10 1.输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程 序。 Progra ex1; Var a,b,c,v,s:real; Begin Readln(a,b,c); v:=(a+b+c)/3; s:=a*b*C; Writeln( ‘s=’,s, ‘v=’,v); End. 2.输入圆的半径R，求圆的面积和周长。 Progra ex2; Const pi=3.14; Var r,c,s:real; Begin Readln( r); C:=2*pi*r; S:=pi*sqr( r); Writeln( ‘s=’,s ‘c=’c); End. 3.加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到 屏幕上。 Progra ex1; Var a,b,s:real; Begin Readln(a,b); S:=a+b; Writeln( ‘s=’,s ); End. 4.某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。 Progra ex1; Var a,b,h,,s:real; Begin A:=8; b:=12; h:=9 S:=(a+b)*h/2; Writeln( ‘s=’,s ); End. 5.已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。 Progra ex5; Const pi=3.14; Var r,c,s:real; Begin Readln(r); S:=2*pi*sqr(r )+2*pi*r; Writeln( ‘s=’,s ); End. 6. 进入Fp，调试以下程序： progra ex1_6; var s : string; begin write( ‘Please input your name’); readln(s); writeln(s,’ is the best.’); end. P20 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 Progra ex1; Var a,b,h,s:integer; Begin Readln(a,b,h); S:=(a+b)*h/2; Writeln( ‘s=’,s ); End. 2.已知某圆的半径R=139，求该圆的周长C与面积S？ Progra ex5; Const pi=3.14; Var r,c,s:real; Begin R:=13; C:= 2*pi*r; S:=pi*sqr(r ); Writeln( ‘c=’,c, ‘s=’,s ); End. 3.输入长方形的边长a,b，计算它的面积和周长，输出。 Progra ex1; Var a,b,c,s:real; Begin Readln(a,b,); c:=(a+b)*2; s:=a*b; Writeln( ‘s=’,s ‘c=’,c); End. 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f= 9c/5+32 Progra ex4; Var c,f:real; Begin Readln(c ); F:=9*c/5+32; Writeln(f); End. 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。 Progra ex5; var a,b,c:char; begin readln(a,b,c); writeln(ord(a), , ord(b), , ord(c)); writeln(c, , b, , a); end. 6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后 的自然数。 Progra ex6; Var x,a,b,c,d,e:integer; Begin Readln(x); A:=x div 100; B:=x mod 100; C:=b div 10 D;=b mod 10; Writeln(d*100+c*10+a); End. 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 Progra ex7; Var a,b:real;c,d,t:integer; Begin Read(a,b); c:=trunk(a); d:=trunk(b); t:=c;c: