信息学奥赛培训教程之——习题课(一)

1、信息学奥赛培训教程之信息学奥赛培训教程之习题课（一）习题课（一）习题一：1-3、读入两个整数到变量中，交换两个变量的值，输出；、读入两个整数到变量中，交换两个变量的值，输出；1-2、输出一行星号；例如：、输出一行星号；例如：*1-4、读入圆的半径，计算圆的周长和面积；、读入圆的半径，计算圆的周长和面积； 1-5、编一程序，输入三角形的三边、编一程序，输入三角形的三边a、b、c（假设这三边可以（假设这三边可以 构成一个三角形），求三角形的面积？构成一个三角形），求三角形的面积？（提示：可利用海伦公式（提示：可利用海伦公式 ）1-1、输入两个整数，输出它们的乘积；、输入两个整数，输出它们的乘积；讲

2、解：1-2、输出一行星号；例如：、输出一行星号；例如：*begin writeln(*);end.1-1、输入两个整数，输出它们的乘积；、输入两个整数，输出它们的乘积；var a,b:integerbegin writeln(Input two numbers:); readln(a,b); writeln(a*b);end;讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；、读入两个整数到变量中，交换两个变量的值，输出；var i,j:integer;begin writeln(Input two numbers:); readln(i,j); i:=i+j; j:=i-j; i:

3、=i-j; writeln(i, ,j);end.解法一：解法一：讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；、读入两个整数到变量中，交换两个变量的值，输出；var a,b,c:integer;begin writeln(Input two numbers:); readln(a,b); c:=a; a:=b; b:=c; writeln(a, ,b);end.解法二：解法二：讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；、读入两个整数到变量中，交换两个变量的值，输出；var k,h:integer;begin writeln(Input two numbers:

4、); readln(k,h); writeln(h, ,k);end.解法三：解法三：讲解：1-4、读入圆的半径，计算圆的周长和面积；、读入圆的半径，计算圆的周长和面积；分以下几步进行处理：分以下几步进行处理： 输出计算结果。 从键盘输入半径的值R； 用公式 C=2R 计算圆周长； 用公式 S=R2 计算圆面积；const pi=3.1415;var r,s,c:real;begin write(r=); readln(r); c:=2*pi*r; s:=pi*r*r; writeln(c=,c:8:4); writeln(s=,s:8:4);end.var a,b,c:integer; p,s:real;begin writeln(input a,b,c:); readln(a,b,c); p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c); writeln(s:8:4);end.讲解： 1-5、编一程序，输入三角形的三边、编一程序，输入三角形的三边a、b、c（假设这