PASCAL上機(jī)練習(xí)題

1、第一章初識(shí) pascal 語(yǔ)言【上機(jī)練習(xí)】1. 輸入三個(gè)數(shù)，計(jì)算并輸出它們的平均值以及三個(gè)數(shù)的乘積，寫(xiě)出程序。2. 輸入圓的半徑 r，求圓的面積和周長(zhǎng)。3. 加法計(jì)算器：編程由鍵盤(pán)輸入兩個(gè)整數(shù)a 和 b，將它們的和輸出到屏幕上。4. 某梯形的上底、下底和高分別為8，12，9，求該梯形的面積。5. 已知圖圓柱體的高為12，底面圓的半 r 徑為 7，求圓柱體表面積。6. 進(jìn)入 fp，調(diào)試以下程序：program ex1_6; var s : string; begin write( please input your name);readln(s); writeln(s, is the best.

2、);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，寫(xiě)程序?qū)⑺D(zhuǎn)換成華氏溫度f(wàn) 輸出。已知 f=9c/5+32 5. 輸入三個(gè)字符，輸出每個(gè)字符的序號(hào)，然后反向輸出這三個(gè)字符。(求序號(hào)用ord 函數(shù)) 6. 輸入一個(gè)三位自然數(shù)，把這個(gè)數(shù)的百位與個(gè)位數(shù)對(duì)調(diào)，輸出對(duì)調(diào)后的自然數(shù)。7. 鍵盤(pán)輸入兩個(gè)實(shí)數(shù)，經(jīng)過(guò)取整操作后，將其整數(shù)部分交換值后輸出?！旧蠙C(jī)練習(xí) 2.7 】1. 有三

3、個(gè)小朋友甲乙丙。甲有50 粒糖果，乙有 43 粒糖果，丙有 13 粒糖果?，F(xiàn)在他們做一個(gè)游戲。從甲開(kāi)始，將自己的糖分三份，自己留一份，其余兩份分別給乙與丙，多余的糖果自己吃掉，然后乙與丙也依次這樣做。問(wèn)最后甲、乙、丙三人各有書(shū)多少粒糖果？2. 交換兩個(gè)變量的值： 由鍵盤(pán)輸入兩個(gè)正整數(shù)a和 b， 編程交換這兩個(gè)變量的值。3. 編寫(xiě)程序把一個(gè)三位整數(shù)反轉(zhuǎn)，例如358 反轉(zhuǎn)成 853。4. 某車棚存有自行車和三輪車共65 輛，它們的輪子數(shù)合計(jì)為150 個(gè)，求該棚內(nèi)存有的自行車和三輪車各是多少輛？5. 五位好朋友相聚。 第一位朋友帶來(lái)了很多糖塊贈(zèng)送給各位朋友，使每人的糖塊在各自原有的基礎(chǔ)上翻了一倍；

4、接著第二位好友也同樣向每人贈(zèng)送糖塊，他同樣使每人的糖塊在各人已有的數(shù)量上翻了一倍；第三、第四、第五位好友都照此辦理。經(jīng)過(guò)這樣的贈(zèng)送之后，每人的糖塊恰好都為32 塊。問(wèn)各位好友原先的糖塊數(shù)分別是多少 ? 6. 從鍵盤(pán)輸入 a、b、c 求一元二次方程 ax2+bx+c=0的兩個(gè)實(shí)數(shù)根 ( 不考慮無(wú)解的情況) 。第三章 選擇結(jié)構(gòu)【上機(jī)練習(xí) 3.2 】1、假設(shè)郵局規(guī)定寄郵件時(shí)若每件重量在1 公斤以內(nèi) ( 含 1 公斤) ，按每公斤 1.5元計(jì)算郵費(fèi)， 如果超過(guò) 1 公斤時(shí)，其超出部分每公斤加收0.8 元。請(qǐng)編程序計(jì)算郵件收費(fèi)。2、輸入三個(gè)正整數(shù)，若能用這三個(gè)數(shù)作為邊長(zhǎng)組成三角形，就計(jì)算并輸出該三角形的

5、面積，否則輸出cant 。(組成三角形的條件為：任意兩邊之和大于第三邊) 3、輸入一個(gè)三位數(shù)的整數(shù)，將數(shù)字位置重新排列，組成一個(gè)盡可大的三位數(shù)。例如：輸入 213，重新排列可得到盡可能大的三位數(shù)是321。4、輸入一個(gè)整數(shù)，打印出它是奇數(shù)還是偶數(shù)。5、某服裝公司為了推銷產(chǎn)品，采取這樣的批發(fā)銷售方案: 凡訂購(gòu)超過(guò) 100 套的，每套定價(jià)為 50 元，否則每套價(jià)格為80元。編程由鍵盤(pán)輸入訂購(gòu)套數(shù)， 輸出應(yīng)付款的金額數(shù)。6、從鍵盤(pán)讀入一個(gè)數(shù)，判斷它的正負(fù)。是正數(shù)，則輸出“+”，是負(fù)數(shù)，則輸出“-”。7、判斷兩個(gè)數(shù) a，b，輸出較大數(shù)的平方值。8、某市的士費(fèi)起步價(jià)8 元，可以行使 3 公里。 3 公里以

6、后，按每公里1.6 元計(jì)算，輸入的士的公里數(shù)，請(qǐng)你計(jì)算顧客需付費(fèi)多少元？【上機(jī)練習(xí) 3.3 】1輸入某學(xué)生成績(jī)，根據(jù)成績(jī)的好壞輸出相應(yīng)評(píng)語(yǔ)。如果成績(jī)?cè)?0分以上，輸出評(píng)語(yǔ)：優(yōu)秀（ outstanding ）。如果成績(jī)?cè)?60 分到 90 分之間，輸出評(píng)語(yǔ)：良好 （satisfactory） 。 如果成績(jī)不足 60 分， 輸出評(píng)語(yǔ)：不及格（unsatisfactory） 。2輸入三角形的三邊，判斷它是否是直角三角形。3給一個(gè)不多于三位的正整數(shù)，求出它是幾位數(shù)， 并分別打印出各位上的數(shù)字。4對(duì)一批貨物征收稅金。價(jià)格在1萬(wàn)元以上的貨物征稅5% ，在 5000 元以上， 1萬(wàn)元以下的貨物征稅3% ，在

7、 1000 元以上， 5000 元以下的貨物征稅2% ，1000 元以下的貨物免稅。編寫(xiě)一程序，讀入貨物價(jià)格，計(jì)算并輸出稅金。5輸入三角形的三個(gè)邊，判斷它是何類型的三角形（等邊db ？等腰 dy ？一般yb ？）。6輸入三個(gè)數(shù)，按由大到小順序打印出來(lái)。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從鍵盤(pán)讀入兩個(gè)數(shù)， 比較其大小， 把大數(shù)置于 x，小數(shù)置于 y，請(qǐng)?jiān)O(shè)計(jì)該程序。2函數(shù)的表達(dá)式如下：0 (x0) x (0 x10)y= 10 (10 x20)-0.5x+20 (20 x40)-

8、2x+40 (40 x)編寫(xiě)程序，當(dāng)輸入x 后輸出 y 的值。第四章 循環(huán)結(jié)構(gòu)【上機(jī)練習(xí) 4.1 】1. 計(jì)算 n！，其中 n 由鍵盤(pá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/100 7. 按字母表的順序，從字母a到 z 順序打印輸出。8. 輸入 10 個(gè)數(shù)，打印出最大和最小的數(shù)。【上機(jī)練習(xí) 4.2

9、 】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í), 小球共通過(guò)多少路程 ? 5、雞兔同籠 , 頭 30, 腳 90,

10、求雞兔各幾只？【上機(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 由鍵盤(pán)輸入。4. 用輾轉(zhuǎn)相除法求兩個(gè)自然數(shù)的最大公約數(shù)。5. 找出被 2、3、5 除時(shí)余數(shù)為 1 的最小的十個(gè)數(shù)。6. 將一根長(zhǎng)為 369cm的

11、鋼管截成長(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+.+nn 4、把一張一元鈔票換成一分，二分和五分的硬幣，每種至少一枚。問(wèn)有哪幾種換法？5、輸入一個(gè)整數(shù)，若是素?cái)?shù)，輸出“yes ”，否則輸出“ no ”6、任給一個(gè)自然數(shù)n，求出這個(gè)自然數(shù)不同因數(shù)的個(gè)數(shù)。如：n=6時(shí)，因?yàn)?1，2，3，6 這四個(gè)數(shù)均是 6 的因數(shù)，故輸出為total=4 。7、輸入二個(gè)正整數(shù)，求出它們的最大公約數(shù)和最小公倍數(shù)。

12、8、輸入一列圖形（字母金字塔）a a 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+2 6=3+3 ,.100=3+97 11、某人想將手中的一張面值100元的人民幣換成 10 元、5 元、2 元和 1 元面值的票子。要求換正好40 張，且每種票子至少一張。問(wèn)：有幾種換法？應(yīng)適當(dāng)考慮減少重復(fù)次數(shù)。12、百雞問(wèn)題：一只公雞值5 元，一只母雞值 3元，而 1

13、 元可買 3 只小雞。現(xiàn)有100 元錢(qián)，想買 100只雞。問(wèn)可買公雞、母雞、小雞各幾只？13、編寫(xiě)一程序，驗(yàn)證角谷猜想。所謂的角谷猜想是：“對(duì)于任意大于1 的自然數(shù) n，若 n 為奇數(shù)，則將 n 變?yōu)?3*n+1，否則將 n 變?yōu)?n 的一半。經(jīng)過(guò)若干次這樣的變換，一定會(huì)使n 變?yōu)?1?！?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ó)際象棋盤(pán)中，第1 格放 1 粒米，第 2 格放 2 粒米，第 3 格放 4 粒米，第 4格放 8 粒米，第 5 格放 16粒

14、米，問(wèn)： 16個(gè)格子總共可以放多少粒米？【分析】第 i 個(gè)格子可放多少粒米： 2i 1 2、輸出斐波列契數(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ù)組中的所有元素倒序存放?！痉治觥?a1 ana2 an- 1, ai aj i 從 1 開(kāi)始，每交換 1 次，i 加 1；直到 i = n div 2 5、讀入 n 個(gè)數(shù)，打印其中的最大數(shù)及其位置號(hào)。6、有 52 張樸克牌，使它們?nèi)空娉稀牡? 張牌開(kāi)始，把凡是 2 的倍數(shù)位置上的牌翻成正面朝下； 接著從第 3 張牌開(kāi)始，把凡是 3 的倍

15、數(shù)位置上的牌正面朝上的翻成正面朝下， 正面朝下的翻成正面朝上； 接著從第 4 張牌開(kāi)始， 把凡是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)問(wèn)當(dāng)初應(yīng)占據(jù)什么位置？8、 圍繞著山頂有 10 個(gè)洞，一只狐貍和一只兔子各住一個(gè)洞。 狐貍總想吃掉兔子。一天兔子對(duì)狐貍說(shuō)：“你想吃我有一個(gè)

16、條件，先把洞從110 編上號(hào)，你從10號(hào)洞出發(fā)，先到 1 號(hào)洞找我；第二次隔1 個(gè)洞找我，第三次隔2 個(gè)洞找我，以后依此類推，次數(shù)不限。若能找到我，你就可以飽餐一頓。不過(guò)在沒(méi)有找到我以前不能停下來(lái)?！焙倽M口答應(yīng)就開(kāi)始找了，它從早到晚找了1000 次洞，累得昏了過(guò)去也沒(méi)有找到兔子。請(qǐng)問(wèn)，免子躲在幾號(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)置為

17、1 4 7 10 4 5 6 2 5 8 11 7 8 9 3 6 9 12 10 11 12 5 、 給 一 維 數(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。 f

18、or 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ù)與過(guò)程函數(shù)課堂練習(xí)1. 編程找出由鍵盤(pán)任意輸入二個(gè)整數(shù)中的最大數(shù)。2. 編程找出由鍵盤(pán)任意輸入三個(gè)整數(shù)中的最大數(shù)。3. 求從鍵盤(pán)任意輸入兩個(gè)自然數(shù)的最大約數(shù)。4. 求從鍵盤(pán)任意輸入三個(gè)自然數(shù)的最大約數(shù)。5. 求從鍵盤(pán)任意輸入兩個(gè)自然數(shù)的最小公倍數(shù)。6. 用函數(shù)求 1+2+3,+n的和（ n r 0 ）2. 求正整數(shù) 2 和 100 之間的完全數(shù)。完全數(shù)：因子之和等于它本身的自然數(shù)，如6=1+2+3

19、 ；3. 如果一個(gè)自然數(shù)是素?cái)?shù), 且它的數(shù)字位置經(jīng)過(guò)對(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. 編寫(xiě)程序計(jì)算表達(dá)式： y = x2 + sh(x)，sh(x)是雙曲正弦函數(shù)【提示】在 fp中沒(méi)有 sh()函數(shù)，需要由用戶自已定義， 由數(shù)學(xué)知識(shí)知：sh(x)=( e x e x)/2 。過(guò)程課堂練習(xí)1. 編程找出由鍵盤(pán)任意輸入三個(gè)整數(shù)中的最大數(shù)的過(guò)程。2. 輸入三個(gè)不同的整數(shù)，按由小到大排列，用過(guò)程編程。3. 用不帶參數(shù)的過(guò)程和帶參數(shù)的過(guò)程分別編寫(xiě)一個(gè)程序，實(shí)現(xiàn)變量 x 和 y 的值相互交換。4. 設(shè)計(jì)一個(gè)過(guò)程 (數(shù)組參數(shù) ), 將數(shù)組中的元素從小到大排列。5. 編一過(guò)程完成二分查找（假設(shè)已有一按升序排列的數(shù)組）?！旧蠙C(jī)練習(xí) 6.2 】1. 輸入自然數(shù) n，求前 n 個(gè)合數(shù)（非素?cái)?shù)），其素因子僅有2，3，或 5。2. 自然數(shù) a 的因子是指能整除a 的所有自然數(shù)，但不