Pascal上機(jī)習(xí)題.doc

第一章初識(shí)Pascal語言【上機(jī)練習(xí)】1. 輸入三個(gè)數(shù)，計(jì)算并輸出它們的平均值以及三個(gè)數(shù)的乘積，寫出程序。2. 輸入圓的半徑R，求圓的面積和周長(zhǎng)。3. 加法計(jì)算器：編程由鍵盤輸入兩個(gè)整數(shù)a和b，將它們的和輸出到屏幕上。4. 某梯形的上底、下底和高分別為8，12，9，求該梯形的面積。5. 已知圖圓柱體的高為12，底面圓的半r徑為7，求圓柱體表面積。6. 進(jìn)入Fp，調(diào)試以下程序：program ex1_6;vars : string;beginwrite(Please input your name);readln(s);writeln(s, is the best.);end.第二章 順序結(jié)構(gòu)【上機(jī)練習(xí)2.4】1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面積S。2.已知某圓的半徑R=139，求該圓的周長(zhǎng)C與面積S？3.輸入長(zhǎng)方形的邊長(zhǎng)a,b，計(jì)算它的面積和周長(zhǎng)，輸出。4.讀入攝氏溫度c，寫程序?qū)⑺D(zhuǎn)換成華氏溫度f輸出。已知f=9c/5+325.輸入三個(gè)字符，輸出每個(gè)字符的序號(hào)，然后反向輸出這三個(gè)字符。(求序號(hào)用ORD函數(shù)) 6.輸入一個(gè)三位自然數(shù)，把這個(gè)數(shù)的百位與個(gè)位數(shù)對(duì)調(diào)，輸出對(duì)調(diào)后的自然數(shù)。7.鍵盤輸入兩個(gè)實(shí)數(shù)，經(jīng)過取整操作后，將其整數(shù)部分交換值后輸出?！旧蠙C(jī)練習(xí)2.7】1.有三個(gè)小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果?，F(xiàn)在他們做一個(gè)游戲。從甲開始，將自己的糖分三份，自己留一份，其余兩份分別給乙與丙，多余的糖果自己吃掉，然后乙與丙也依次這樣做。問最后甲、乙、丙三人各有書多少粒糖果？2.交換兩個(gè)變量的值：由鍵盤輸入兩個(gè)正整數(shù)A和B，編程交換這兩個(gè)變量的值。3.編寫程序把一個(gè)三位整數(shù)反轉(zhuǎn)，例如358反轉(zhuǎn)成853。4.某車棚存有自行車和三輪車共65輛，它們的輪子數(shù)合計(jì)為150個(gè)，求該棚內(nèi)存有的自行車和三輪車各是多少輛？5.五位好朋友相聚。第一位朋友帶來了很多糖塊贈(zèng)送給各位朋友，使每人的糖塊在各自原有的基礎(chǔ)上翻了一倍；接著第二位好友也同樣向每人贈(zèng)送糖塊，他同樣使每人的糖塊在各人已有的數(shù)量上翻了一倍；第三、第四、第五位好友都照此辦理。經(jīng)過這樣的贈(zèng)送之后，每人的糖塊恰好都為32塊。問各位好友原先的糖塊數(shù)分別是多少?6.從鍵盤輸入a、b、c求一元二次方程ax2+bx+c=0的兩個(gè)實(shí)數(shù)根(不考慮無解的情況)。第三章 選擇結(jié)構(gòu)【上機(jī)練習(xí)3.2】1、假設(shè)郵局規(guī)定寄郵件時(shí)若每件重量在1公斤以內(nèi)(含1公斤)，按每公斤1.5元計(jì)算郵費(fèi)，如果超過1公斤時(shí)，其超出部分每公斤加收0.8元。請(qǐng)編程序計(jì)算郵件收費(fèi)。2、輸入三個(gè)正整數(shù)，若能用這三個(gè)數(shù)作為邊長(zhǎng)組成三角形，就計(jì)算并輸出該三角形的面積，否則輸出Cant。(組成三角形的條件為：任意兩邊之和大于第三邊)3、輸入一個(gè)三位數(shù)的整數(shù)，將數(shù)字位置重新排列，組成一個(gè)盡可大的三位數(shù)。例如：輸入213，重新排列可得到盡可能大的三位數(shù)是321。4、輸入一個(gè)整數(shù)，打印出它是奇數(shù)還是偶數(shù)。5、某服裝公司為了推銷產(chǎn)品，采取這樣的批發(fā)銷售方案:凡訂購(gòu)超過100 套的，每套定價(jià)為50元，否則每套價(jià)格為80元。編程由鍵盤輸入訂購(gòu)套數(shù)，輸出應(yīng)付款的金額數(shù)。6、從鍵盤讀入一個(gè)數(shù)，判斷它的正負(fù)。是正數(shù)，則輸出“+”，是負(fù)數(shù)，則輸出“-”。7、判斷兩個(gè)數(shù)a，b，輸出較大數(shù)的平方值。8、某市的士費(fèi)起步價(jià)8元，可以行使3公里。3公里以后，按每公里1.6元計(jì)算，輸入的士的公里數(shù)，請(qǐng)你計(jì)算顧客需付費(fèi)多少元？【上機(jī)練習(xí)3.3】1輸入某學(xué)生成績(jī)，根據(jù)成績(jī)的好壞輸出相應(yīng)評(píng)語。如果成績(jī)?cè)?0分以上，輸出評(píng)語：優(yōu)秀（outstanding）。如果成績(jī)?cè)?0分到90分之間，輸出評(píng)語：良好（satisfactory）。如果成績(jī)不足60分，輸出評(píng)語：不及格（unsatisfactory）。2輸入三角形的三邊，判斷它是否是直角三角形。 3給一個(gè)不多于三位的正整數(shù)，求出它是幾位數(shù)，并分別打印出各位上的數(shù)字。4對(duì)一批貨物征收稅金。價(jià)格在1萬元以上的貨物征稅5%，在5000元以上，1萬元以下的貨物征稅3%，在1000元以上，5000元以下的貨物征稅2%，1000元以下的貨物免稅。編寫一程序，讀入貨物價(jià)格，計(jì)算并輸出稅金。5輸入三角形的三個(gè)邊，判斷它是何類型的三角形（等邊DB？等腰DY？一般YB？）。6輸入三個(gè)數(shù)，按由大到小順序打印出來。7將字母A、B、C 、D或a、b、c、d對(duì)應(yīng)輸出1、2、3、4，其余的字符輸出5。8輸入三個(gè)數(shù)a，b，c，打印出最大者【上機(jī)練習(xí)3.5】1從鍵盤讀入兩個(gè)數(shù)，比較其大小，把大數(shù)置于x，小數(shù)置于y，請(qǐng)?jiān)O(shè)計(jì)該程序。2函數(shù)的表達(dá)式如下：0 (x0)x (0x10)y= 10 (10x20)-0.5x+20 (20x40)-2x+40 (40x)編寫程序，當(dāng)輸入x后輸出y的值。第四章 循環(huán)結(jié)構(gòu)【上機(jī)練習(xí)4.1】1.計(jì)算n！，其中n由鍵盤輸入。 2.計(jì)算100之內(nèi)所有的奇數(shù)之和。3.求菲波拉契數(shù)列a0,a1,a2,a20。 a0=0,a1=1,a2=a1+a0,a3=a2+a1,an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,4.求20個(gè)數(shù)中的最大值和最小值。5.求s=1+2+3+4+106.求s=1+1/2+1/3+1/1007.按字母表的順序，從字母A到Z順序打印輸出。8.輸入10個(gè)數(shù)，打印出最大和最小的數(shù)。【上機(jī)練習(xí)4.2】1、用WHILE循環(huán)完成如下3題：求s=1+2+3+4+10求s=1+1/2+1/3+1/100求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一項(xiàng)小于10-6為止。2、輸入任一的自然數(shù)A, B, 求A , B的最小公倍數(shù)。3、Faibonacci數(shù)列前幾項(xiàng)為: 0,1,1,2,3,5,8,其規(guī)律是從第三項(xiàng)起, 每項(xiàng)均等于前兩項(xiàng)之和。求前30項(xiàng),并以每行5個(gè)數(shù)的格式輸出。4、小球從100高處自由落下,著地后又彈回高度的一半再落下。求第20次著地時(shí), 小球共通過多少路程?5、雞兔同籠,頭30,腳90, 求雞兔各幾只？【上機(jī)練習(xí)4.3】1.用REPEAT循環(huán)完成如下3題：求s=1+2+3+4+10求s=1+1/2+1/3+1/100求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一項(xiàng)小于10-6為止。2.讀一組實(shí)數(shù),遇零終止,打印其中正、負(fù)數(shù)的個(gè)數(shù)及各自的總和。3.計(jì)算sin（x）=X-X3/3！+X5/5！-X7/7！+直到最后一項(xiàng)絕對(duì)值小于10-7時(shí)停止計(jì)算，x由鍵盤輸入 。4.用輾轉(zhuǎn)相除法求兩個(gè)自然數(shù)的最大公約數(shù)。5.找出被2、3、5除時(shí)余數(shù)為1的最小的十個(gè)數(shù)。6.將一根長(zhǎng)為369cm的鋼管截成長(zhǎng)為69cm和39cm兩種規(guī)格的短料。在這兩種規(guī)格的短料至少各截一根的前提下, 如何截才能余料最少?！旧蠙C(jī)練習(xí)4.4】1、求s=1!+2!+3!+10!2、求s=1+1/2!+1/3!+1/10!3、求s=11+22+33+.+NN4、把一張一元鈔票換成一分，二分和五分的硬幣，每種至少一枚。問有哪幾種換法？ 5、輸入一個(gè)整數(shù)，若是素?cái)?shù)，輸出“YES”，否則輸出“NO”6、任給一個(gè)自然數(shù)n，求出這個(gè)自然數(shù)不同因數(shù)的個(gè)數(shù)。如：n=6時(shí)，因?yàn)?，2，3，6這四個(gè)數(shù)均是6的因數(shù)，故輸出為total=4。7、輸入二個(gè)正整數(shù)，求出它們的最大公約數(shù)和最小公倍數(shù)。8、輸入一列圖形（字母金字塔）aa b a b c . .a b c y z9、1-100之間的所有素?cái)?shù)（素?cái)?shù)是大于1，且除1和它本身外，不能被任何其它整數(shù)所整除的整數(shù)）。(4.28)10、哥德巴赫猜想（任何充分大的偶數(shù)都可由兩個(gè)素?cái)?shù)之和表示）。將4-100中的所有偶數(shù)分別用兩個(gè)素?cái)?shù)之和表示。輸出為：4=2+26=3+3.100=3+9711、某人想將手中的一張面值100元的人民幣換成10元、5元、2元和1元面值的票子。要求換正好40張，且每種票子至少一張。問：有幾種換法？應(yīng)適當(dāng)考慮減少重復(fù)次數(shù)。12、百雞問題：一只公雞值5元，一只母雞值3元，而1元可買3只小雞。現(xiàn)有100元錢，想買100只雞。問可買公雞、母雞、小雞各幾只？13、編寫一程序，驗(yàn)證角谷猜想。所謂的角谷猜想是：“對(duì)于任意大于1的自然數(shù)n，若n為奇數(shù)，則將n變?yōu)?*n+1，否則將n變?yōu)閚的一半。經(jīng)過若干次這樣的變換，一定會(huì)使n變?yōu)??！?4、有一堆100多個(gè)的零件，若三個(gè)三個(gè)數(shù)，剩二個(gè)；若五個(gè)五個(gè)數(shù)，剩三個(gè)；若七個(gè)七個(gè)數(shù)，剩五個(gè)。請(qǐng)你編一個(gè)程序計(jì)算出這堆零件至少是多少個(gè)？第五章 數(shù)組數(shù)型【上機(jī)練習(xí)5.1】1、國(guó)際象棋盤中，第1格放1粒米，第2格放2粒米，第3格放4粒米，第4格放8粒米，第5格放16粒米，問：16個(gè)格子總共可以放多少粒米？【分析】第i個(gè)格子可放多少粒米：2i12、輸出斐波列契數(shù)列的前N項(xiàng)（5個(gè)1行） 0 1 1 2 3 5 8 13 21 3、輸入N個(gè)整數(shù)，找出最大數(shù)所在位置，并將它與第一個(gè)數(shù)對(duì)調(diào)位置。4、將一個(gè)數(shù)組中的所有元素倒序存放 ?！痉治觥緼1AN A2 AN-1 AI AJ I 從1開始，每交換1次，I 加1；直到 I = N DIV 25、讀入n個(gè)數(shù)，打印其中的最大數(shù)及其位置號(hào)。6、有52張樸克牌，使它們?nèi)空娉?。從?張牌開始，把凡是2的倍數(shù)位置上的牌翻成正面朝下；接著從第3張牌開始，把凡是3的倍數(shù)位置上的牌正面朝上的翻成正面朝下，正面朝下的翻成正面朝上；接著從第4張牌開始，把凡是4的倍數(shù)位置上的牌按比規(guī)律翻轉(zhuǎn)；依此類推，直到第1張要翻的牌是第52張為止。統(tǒng)計(jì)最后有幾張牌正面朝上，并打印出它們的位置。7、N只猴子選大王，選舉辦法如下：從頭到尾1、2、3報(bào)數(shù)，凡報(bào)3的退出，余下的從尾到頭1、2、3報(bào)數(shù)，凡報(bào)3退出；余下的又從頭到尾報(bào)數(shù)，還是報(bào)3的退出；依此類推，當(dāng)剩下的兩只猴子時(shí)，取這時(shí)報(bào)數(shù)報(bào)1的為王。若想當(dāng)猴王，請(qǐng)問當(dāng)初應(yīng)占據(jù)什么位置？8、圍繞著山頂有10個(gè)洞，一只狐貍和一只兔子各住一個(gè)洞。狐貍總想吃掉兔子。一天兔子對(duì)狐貍說：“你想吃我有一個(gè)條件，先把洞從110編上號(hào)，你從10號(hào)洞出發(fā)，先到1號(hào)洞找我；第二次隔1個(gè)洞找我，第三次隔2個(gè)洞找我，以后依此類推，次數(shù)不限。若能找到我，你就可以飽餐一頓。不過在沒有找到我以前不能停下來?！焙倽M口答應(yīng)就開始找了，它從早到晚找了1000次洞，累得昏了過去也沒有找到兔子。請(qǐng)問，免子躲在幾號(hào)洞里？【答案】2，4，7，9【上機(jī)練習(xí)5.2】1、輸入一個(gè)二維數(shù)組，找出其中最小的數(shù)，輸出它的值以及所在行號(hào)和列號(hào)。2、輸入M行N列數(shù)組，將第I行與第J行元素對(duì)調(diào)（I，J M）。3、輸入44方陣，分別求兩條對(duì)角線上元素之和。4、矩陣的轉(zhuǎn)置： A: B: 1 2 3 轉(zhuǎn)置為 1 4 7 10 4 5 6 2 5 8 11 7 8 9 3 6 9 1210 11 125、給一維數(shù)組輸入M個(gè)整數(shù)，假設(shè)M=6，數(shù)組元素分別為 7 4 8 9 1 5 ， 要求建立一個(gè)如下數(shù)組（矩陣）： 7 4 8 9 1 5 4 8 9 1 5 7 8 9 1 5 7 4 9 1 5 7 4 8 1 5 7 4 8 9 5 7 4 8 9 1 6、建立如下矩陣： 2 3 4 5 3 4 5 6 4 5 6 7 5 6 7 8注意：一般情況下，給二維數(shù)組賦初值，都是找A I,J 與I和J的函數(shù)關(guān)系，對(duì)于任意的A I ,J =I+J。 FOR I:=1 TO N DO FOR J:= 1 TO N DO A I,J =I+J；7、設(shè)數(shù)組a是有n個(gè)元素的整數(shù)數(shù)組，從中找出最大和子序列。8、打印楊輝三角形的前10行。第六章 函數(shù)與過程函數(shù)課堂練習(xí)1.編程找出由鍵盤任意輸入二個(gè)整數(shù)中的最大數(shù)。2.編程找出由鍵盤任意輸入三個(gè)整數(shù)中的最大數(shù)。3.求從鍵盤任意輸入兩個(gè)自然數(shù)的最大約數(shù)。4.求從鍵盤任意輸入三個(gè)自然數(shù)的最大約數(shù)。5.求從鍵盤任意輸入兩個(gè)自然數(shù)的最小公倍數(shù)。6.用函數(shù)求1+2+3+n的和（n R 0）2.求正整數(shù)2和100之間的完全數(shù)。完全數(shù)：因子之和等于它本身的自然數(shù)，如6=1+2+3 ；3.如果一個(gè)自然數(shù)是素?cái)?shù),且它的數(shù)字位置經(jīng)過對(duì)換后仍為素?cái)?shù),則稱為絕對(duì)素?cái)?shù),例如13。試求出所有二位絕對(duì)素?cái)?shù)4.編程求5！+7！+9！+11！的值。5.哥德巴赫猜想的命題之一是:大于6 的偶數(shù)等于兩個(gè)素?cái)?shù)之和。編程將6100所有偶數(shù)表示成兩個(gè)素?cái)?shù)之和。6.編寫程序計(jì)算表達(dá)式：Y = x2 + SH(x)，SH(x)是雙曲正弦函數(shù)【提示】在Fp中沒有SH()函數(shù)，需要由用戶自已定義，由數(shù)學(xué)知識(shí)知：SH(x)=( e x e x)/2。過程課堂練習(xí)1.編程找出由鍵盤任意輸入三個(gè)整數(shù)中的最大數(shù)的過程。2.輸入三個(gè)不同的整數(shù)，按由小到大排列，用過程編程。3.用不帶參數(shù)的過程和帶參數(shù)的過程分別編寫一個(gè)程序，實(shí)現(xiàn)變量x和y的值相互交換。4.設(shè)計(jì)一個(gè)過程(數(shù)組參數(shù)),將數(shù)組中的元素從小到大排列。5.編一過程完成二分查找（假設(shè)已有一按升序排列的數(shù)組）?！旧蠙C(jī)練習(xí)6.2】1.輸入自然數(shù)n，求前n個(gè)合數(shù)（非素?cái)?shù)），其素因子僅有2，3，或5。2.自然數(shù)a的因子是指能整除a的所有自然數(shù)，但不含a本身。例如12的因子為：1,2,3,4,6。若自然數(shù)a的因子之和為b，而且b的因子之和又等于a，則稱a,b為一對(duì)“親和數(shù)” 。求最小的一對(duì)親和數(shù)(ab)。3.求前n個(gè)自然數(shù)的平方和，要求不用乘法。例如：3的平方不用3*3，可用3+3+3。4.如果一個(gè)數(shù)從左邊讀和從右邊讀都是同一個(gè)數(shù)，就稱為回文數(shù)。例如6886就是一個(gè)回文數(shù)，求出所有的既是回文數(shù)又是素?cái)?shù)的三位數(shù)。5.任何大于2的自然數(shù)都可以寫成不超過四個(gè)平方數(shù)之和。如：8=2222；14=122232 由鍵盤輸入自然數(shù)N（2 N 2000） ，輸出其不超過四個(gè)平方數(shù)之和的表示式。6.哥德巴赫猜想的擴(kuò)展：任何一個(gè)大于7的奇數(shù)總可以分解為三個(gè)素?cái)?shù)之和