1、第1題：完善下列程序：問題：給出半徑R=100，高H=30，求圓周長、圓面積、圓柱全面積。源程序： program lx1(input,output); var (1):real; begin len:=2*pi*r; s:=(2); qs:=len*h+2*s; writeln('len=',len,'s=',sm,'qs=',qs); end.解：我們可以看到變量pi,r,s,qs,len,h均未定義。則（1）為pi,r,s,qs,len,h 由圓面積公式可以很容易得到（2）：pi*r*r 注：這一題題目有錯，pi,r,h變量未定義。同學(xué)們可

2、以自行加上，但不可以不加。 如在begin下加 pi:=3.1415926; r:=100;h:=30; 第2題：編寫一程序，當(dāng)程序執(zhí)行時，輸入以秒為單位的時間，輸出形式為：“小時:分:秒”解：這一題用到兩個標(biāo)準(zhǔn)函數(shù)：mod和div,mod指取余,div指取整商。用puts表輸入，用hours表小時，用minutes表分鐘，用seconds表秒。程序如下： program name; var puts,hours,minutes,seconds:integer; begin read(puts); hours:=puts mod 3600; puts:=puts div 3600;

3、minutes:=puts mod 60; seconds:=puts div 60; writeln(hours,':',minutes,':',seconds) end. 同學(xué)們可以看到puts是輸入變量，也是臨時變量，變了兩次值，仔細(xì)想想是如何變化的。 第3題：編寫一程序，輸入一個三位數(shù)的正整數(shù)，輸出時反向輸出。如：輸入456,輸出654。解：這一題如果學(xué)了數(shù)組很簡單，沒有的話就要用mod和div函數(shù)，請同學(xué)們在理解上一題的基礎(chǔ)上看下面的程序。 program name; var three:integer; begin read(three);

4、 for i:=1 to 3 do begin write(three mod 10); three:=three div 10; end; end.本程序用到一個for循環(huán),指循環(huán)執(zhí)行三次。同學(xué)們想一想最后three的值是什么？對了！是0！ 第4題：編寫一個程序，輸入兩個實(shí)數(shù)a,b，求a,b的乘積。（尤其當(dāng)a,b兩數(shù)比較大時，看一下輸出結(jié)果。）解：這一題主要是范圍問題。 program name; var a,b:real; begin read(a,b); write(a*b); end.雖然實(shí)數(shù)范圍很大可達(dá)到10-38-10+38之間，但更大則會:Floating point

5、overflow.例5已知上底、下底和高，求梯形的面積。問題分析（）明確問題。求梯形的面積，已知上底、下底和高，由公式得：          梯形面積（上底下底）高/（）分析問題。如果梯形的上底用a表示，下底用b表示，高用h表示，梯形面積用s表示，用梯形面積公式為：s=(a+b)*h/2根據(jù)題意，算法可以這樣設(shè)計(jì)：.輸入梯形的上底a、下底b和高h(yuǎn);2.求出梯形面積s=(a+b)*h/2;3.輸出結(jié)果s.（）設(shè)定變量的類型。這里使用的變量a、b、h、s都應(yīng)設(shè)定為實(shí)型數(shù)。（）程序編制如下：progr

6、am p4-9(input,output);    var        a,b,h,s:real;    begin        writeln('input a, b,h:');        readln(a,b,h);   

7、     s:=(a+b)*h/2;        writeln('s=',s:12:6);        readln    end.運(yùn)行結(jié)果：input a,b,h:3 5 4s=16.000000例6鍵盤輸入兩個數(shù)，交換后輸出。問題分析（）明確問題。通過鍵盤輸入兩個變量a,b的值，再將a,b的值相交換，然后輸出a,b的值。如

8、輸入后變量a的值為，變量b的值為，經(jīng)過交換a的值為5,b的值為。（）分析問題。如果輸入的兩個數(shù)舍為a,b，在交換前要設(shè)定一個變量c作為交換時的過度變量，以防止變量a或b的值在賦值時丟失。設(shè)計(jì)算法如下：.輸入a,b;2.交換變量的值c:=a a:=b b:=c;3.輸出a,b.（）設(shè)定變量的類型。這里使用的變量a、b、c應(yīng)設(shè)定為整型數(shù)。（）程序編制如下：program p4-10(input,output);    var    a,b,c:integer;    begin 

9、        writeln('輸入兩個數(shù)');         read(a,b);         c:=a;         a:=b;       

10、60; b:=c;         writeln('交換后的值是：',a:5,b:5)end.運(yùn)行結(jié)果：請輸入兩個數(shù)：5   交換后的值是：請思考：如果不用過度變量，只有變量a和b，能否完成交換？例7隨機(jī)產(chǎn)生一個三位自然數(shù)，分離出它的百位、十位與個位上的數(shù)字。問題分析（）明確問題。由計(jì)算機(jī)隨機(jī)產(chǎn)生一個三位數(shù)，例如產(chǎn)生的三位數(shù)是：579，分離的百位、十位與個位上的數(shù)字分別是：、。（）分析問題。讓計(jì)算機(jī)隨機(jī)產(chǎn)生一個數(shù)字時，應(yīng)該先明確這個數(shù)字的范圍和它的類型。一個

11、三位自然數(shù)，它在100999之間，產(chǎn)生100999內(nèi)隨機(jī)整數(shù)的方法是：trunc(random*900)+100.假設(shè)隨機(jī)產(chǎn)生三位數(shù)是x，個位、十位、百位上的數(shù)字分別為：ge,shi,bai, 則有：ge:=x mod 10bai:=x div 100shi:=(x-bai*100) div 10設(shè)計(jì)算法如下：.隨機(jī)產(chǎn)生一個三位數(shù)x2.輸出x3.ge:=x mod 104.bai:=x div 1005.shi:=(x-bai*100) div 106.輸出bai,shi ,ge（）設(shè)定變量的類型。這里使用的變量x,ge,shi,bai都應(yīng)設(shè)定為整型數(shù)。program p4-11(input,

12、output);var    x,ge,shi,bai:integer;begin    randomize;    x:=trunc(random*900)+100;    writeln('x=',x);    ge:=x mod 10;    bai:=x div 100;    shi:=(x-bai*100) div 10;    writeln('bai=',bai);    writeln('shi=',s