信息学奥赛培训教程之——习题课（一）习题一：1-3、读入两个整数到变量中，交换两个变量的值，输出；1-2、输出一行星号；例如：**********1-4、读入圆的半径，计算圆的周长和面积；1-5、编一程序，输入三角形的三边a、b、c（假设这三边可以构成一个三角形），求三角形的面积Ｓ？（提示：可利用海伦公式）1-1、输入两个整数，输出它们的乘积；讲解：1-2、输出一行星号；例如：**********beginwriteln('********');end.1-1、输入两个整数，输出它们的乘积；vara,b:integerbeginwriteln(‘Inputtwonumbers:’);readln(a,b);writeln(a*b);end;讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；vari,j:integer;beginwriteln('Inputtwonumbers:');readln(i,j);i:=i+j;j:=i-j;i:=i-j;writeln(i,'',j);end.解法一：讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；vara,b,c:integer;beginwriteln('Inputtwonumbers:');readln(a,b);c:=a;a:=b;b:=c;writeln(a,'',b);end.解法二：讲解：1-3、读入两个整数到变量中，交换两个变量的值，输出；vark,h:integer;beginwriteln('Inputtwonumbers:');readln(k,h);writeln(h,'',k);end.解法三：讲解：1-4、读入圆的半径，计算圆的周长和面积；分以下几步进行处理：④输出计算结果。①从键盘输入半径的值R；②用公式C=2πR计算圆周长；③用公式S=πR2计算圆面积；constpi=3.1415;varr,s,c:real;beginwrite('r=');readln(r);c:=2*pi*r;s:=pi*r*r;writeln('c=',c:8:4);writeln('s=',s:8:4);end.vara,b,c:integer;p,s:real;beginwriteln(‘inputa,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（假设这三边可以构成一个三角形），求三角形的面积Ｓ？（提示：可利用海伦公式）
