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

《信息学奥赛培训教程之——习题课(一).ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、信息学奥赛培训教程之——习题课（一）习题一：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);wri

2、teln(ab);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.解法二：讲解：

3、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:=2pir;s:=pirr;writeln('c=

4、',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（假设这三边可以构成一个三角形），求三角形的面积Ｓ？（提示：可利用海伦公式）