1、信息學(xué)奧賽培訓(xùn)教程之信息學(xué)奧賽培訓(xùn)教程之習(xí)題課（一）習(xí)題課（一）習(xí)題一：1-3、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；1-2、輸出一行星號(hào)；例如：、輸出一行星號(hào)；例如：*1-4、讀入圓的半徑，計(jì)算圓的周長(zhǎng)和面積；、讀入圓的半徑，計(jì)算圓的周長(zhǎng)和面積； 1-5、編一程序，輸入三角形的三邊、編一程序，輸入三角形的三邊a、b、c（假設(shè)這三邊可以（假設(shè)這三邊可以 構(gòu)成一個(gè)三角形），求三角形的面積？構(gòu)成一個(gè)三角形），求三角形的面積？（提示：可利用海倫公式（提示：可利用海倫公式 ）1-1、輸入兩個(gè)整數(shù)，輸出它們的乘積；、輸入兩個(gè)整數(shù)，輸出它們的乘積；講

2、解：1-2、輸出一行星號(hào)；例如：、輸出一行星號(hào)；例如：*begin writeln(*);end.1-1、輸入兩個(gè)整數(shù)，輸出它們的乘積；、輸入兩個(gè)整數(shù)，輸出它們的乘積；var a,b:integerbegin writeln(Input two numbers:); readln(a,b); writeln(a*b);end;講解：1-3、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；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、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；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、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；、讀入兩個(gè)整數(shù)到變量中，交換兩個(gè)變量的值，輸出；var k,h:integer;begin writeln(Input two numbers:

4、); readln(k,h); writeln(h, ,k);end.解法三：解法三：講解：1-4、讀入圓的半徑，計(jì)算圓的周長(zhǎng)和面積；、讀入圓的半徑，計(jì)算圓的周長(zhǎng)和面積；分以下幾步進(jìn)行處理：分以下幾步進(jìn)行處理： 輸出計(jì)算結(jié)果。 從鍵盤輸入半徑的值R； 用公式 C=2R 計(jì)算圓周長(zhǎng)； 用公式 S=R2 計(jì)算圓面積；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（假設(shè)這