賣金魚編程

❶ free pascal題目

【順序結構題目】
1、 輸入圓的半徑，輸出圓的面積和周長。
2、 輸入長方形長和高，輸出長方形周長和面積。
3、 輸入梯形上底、下底、高，求梯形面積。
4、 輸出兩個自然數相除的商和余數。
5、自然數的立方可以表示為兩個整數的平方之差，比如43=102－62，請輸出自然數1996的這種表示形式。(這里的43用自乘三次的形式4*4*4表示；102也用自乘二次的形式10*10表示)
6、 用字元輸出一個豬錦佳的頭像。
7、 a,b,c分別等於1、12、123，把它們按向左對齊、向右對齊的方式列印出來。
8、 輸入一個四位整數，把它的各位數字倒序輸出。（提示：用MOD和DIV運算完成）
9、 從鍵盤上讀入小寫的"pascal"，利用CHR（）和ORD（）函數，輸出大寫的"PASCAL"。
10、 從鍵盤上讀入一個實數，利用ROUND（）和TRUNC（）函數，輸出該實數本身、整數部分、小數部分、四捨五入後的值。
要求：分三行輸出 ；輸出實數本身時，格式與讀入時相同；整數部分、小數部分在同一行輸出；其它各佔一行。
11、 輸入一個時、分、秒，把它轉換為一個秒數。
12、輸入一個秒數，把它變成00：00：00的形式。
13、輸入三角形三個邊，輸出三角形面積。（利用海倫公式）
P=(a+b+c)/2 s=sqrt(p*(p-a)*(p-b)*(p-c))
14、輸入2個數值A和B，交換2個數值。
15、分錢游戲。甲、乙、丙三人共有24元錢，先由甲分錢給乙、丙兩人，所分給的數與各人已有數相同；接著由乙分給甲、丙，分法同前；再由丙分錢給甲、乙，分法亦同前。經上述三次分錢之後，每個人的錢數恰好一樣多。 求原先各人的錢數分別是多少?
16、有雞兔同籠，頭30，腳 90，究竟籠中的雞和兔各有多少只?
17、.某車棚存有自行車和三輪車共65輛，它們的輪子數合計為150個。求該棚內存有的自行車和三輪車各是多少輛？
18、甲、乙、丙三人分別有磁帶36，48，64盒。先由甲把自己的磁帶平均分為三份，分給乙、丙各一份，自己留下一份；接著是乙，最後是丙，都按甲的方法處理。編程輸出甲、乙、丙在上述過程中各人的磁帶數分別是多少? (輸出所有的中間結果)
19、五位好朋友相聚。第一位朋友帶來了很多糖塊贈送給各位朋友，使每人的糖塊在各自原有的基礎上翻了一倍；接著第二位好友也同樣向每人贈送糖塊，他同樣使每人的糖塊在各人已有的數量上翻了一倍；第三、第四、第五位好友都照此辦理。經過這樣的贈送之後，每人的糖塊恰好都為32塊。問各位好友原先的糖塊數分別是多少?

【選擇結構題目】
(1) if 條件 then 語句；
(2) if 條件 then 語句1 else 語句2；

1、 輸入兩個數a,b，輸出較大數的平方值。
2、輸入兩個數a，b，輸出較大的數。
3、讀入三個不同的數，編程按由小到大的順序排列列印出來。
4、某全自動加油站a,b,c三種汽油的單價(元/kg)分別是1.50、1.35和1.18，也提供了「自己加」或「協助加」兩個服務等級，這樣用戶可以得到5%或10%的優惠。編一個程序，用戶輸入加油量、汽油品種和服務類型(f-自動，m-自己，e-協助)，然後計算應付款。
5、某服裝公司為了推銷產品，採取這樣的批發銷售方案:凡訂購超過100 套的，每套定價為50元，否則每套價格為80元。編程由鍵盤輸入訂購套數，輸出應付款的金額數。
6、 鐵路托運行李規定：行李重不超過50公斤的，托運費按每公斤0.15元計費；如超50公斤，超過部分每公斤加收0.10元。編一程序完成自動計費工作。
7、 某超市為了促銷，規定：購物不足50元的按原價付款，超過50不足100的按九折付款，超過100元的，超過部分按八折付款。編一程序完成超市的自動計費的工作。
8、 當前小學生的成績單由以前的百分制改為優秀、良好、合格、不合格四個等級的等級制。編一程序完成分數的自動轉換工作。轉換規則如下：60分以下的為不合格；60到69分為合格；70到89分為良好；90分以上的為優秀。（提示：可以利用DIV運算來使程序更簡明）
9、 列印某年某月有多少天。（提示：A、閏年的計算方法：年數能被4整除，並且不能被100整除；或者能被400整除的整數年份。B、利用MOD運算可以判斷一個數能否被另一個數整除）
10、編程模擬剪刀、石頭、布游戲：用S表示剪刀，用R表示石頭，用P表示布。規則是：剪刀剪布，石頭砸剪刀，布包石頭。游戲者分別把自己的選擇輸入，計算機給出結果。

Case 表達式 of
情況常量表1: 語句1；
情況常量表2: 語句2；
: :
情況常量表n: 語句n
end；

11、對某產品徵收稅金，在產值1萬元以上徵收稅5%；在1萬元以下但在5000元以上的徵收稅3%；在5000元以下但在1000元以上徵收稅2%；1000元以下的免收稅。編程計算該產品的收稅金額。
12、運輸公司計算運費時，距離(S)越長，每公里運費越低，標准如下:
如果S＜250公里；運費為標准運價的100%
如果250公里＜＝S＜500公里，運費為標准運價的98%；
如果500公里＜＝S＜1000公里，運費為標准運價的95%；
如果1000公里＜＝S＜2000公里，運費為標准運價的92%；
如果2000公里＜＝S＜3000公里，運費為標准運價的90%；
如果S＝＞3000公里，運費為標准運價的85%；。請編計算運費的程序。
13、 輸入考試成績，如果獲85分以上為 A等，獲60分～84分為B等，60分以下為C等，編程輸出考試等級。
14、 某車間按工人加工零件的數量發放獎金，獎金分為五個等級：每月加工零件數N < 100者獎金為10元；100 < = N < 110者獎金為30元；110 < = N <120 者獎金為50元；120 < = N <130 者獎金為70元；N > 130者為80元。
請編程，由鍵盤輸入加工零件數量，顯示應發獎金數。
15、從鍵盤上讀入年和月，輸出該月有多少天。

【循環語句】
for 循環語句有兩種格式:
(1) for 循環變數:=初值 To 終值 do 語句；
(2) for 循環變數:=初值 downto 終值 do 語句；

while 布爾表達式 do 語句；

repeat
循環體語句；
until 條件表達式； ｛直到條件為真｝
1、 計算下列式子的值：
（1）1+2+……+100
（2）1+3+5+……+97+99
（3）1-3+5-7+9-11+……n
2、求水仙花數。所謂水仙花數，是指一個三位數abc，如果滿足a^3+b^3+c^3=abc，則abc是水仙花數。
3、宰相的麥子：相傳古印度宰相達依爾，是國際象棋的發明者。有一次，國王因為他的貢獻要獎勵他，問他想要什麼。達依爾說：「只要在國際象棋棋盤上（共64格）擺上這么些麥子就行了：第一格一粒，第二格兩粒，……，後面一格的麥子總是前一格麥子數的兩倍，擺滿整個棋盤，我就感恩不盡了。」國王一想，這還不容易，剛想答應，如果你這時在國王旁邊站著，你會不會勸國王別答應，為什麼？
4、百錢百雞。公雞5塊，母雞3塊，小雞1塊3支。
6、列印下列圖案：（輸入N值來控制圖案的規模，下列圖案均以N=3為例）
&
& &
& & &

& & &
& & &
& & &

*
* * *
* * * * *

# @ *
# # @ @ * *
# # # @ @ @ * * *
7、輸入20個數，按照5個一行輸出。
8、一個兩位數x，將它的個位數字與十位數字對調後得到一個新數y，此時y恰好比x大36，請編程求出所有這樣的兩位數。
9、把整數3025從中剪開分為30和25兩個數，此時再將這兩數之和平方，(30+25)2=3025計算結果又等於原數。求所有符合這樣條件的四位數。
10、列印出九九乘法表:
11、從七張撲克牌中任取三張，有幾種組合方法？請編程輸出所有組合形式。
12、數學上把除了1和它本身，沒有別的數能夠整除它的自然數叫做素數(或質數)。現在由鍵盤輸入一個自然數N，編程判斷N是否是素數，是則輸出「Yes」，否則輸出「No」。
13、輸出1000以內所有的素數。
14、一輛快車和一輛慢車開往同一地點，快車票價為18元，慢車票價為13. 5元，共售出400張，共計5940元，求快車票和慢車票各多少張?
15、在下面式子中的二個□內填入一個合適的同樣的數字，使等式成立。 □3*6528=3□*8256
16、有一個三位數，它的各位數字之和的11倍恰好等於它自身，請編程求出這個三位數。
17、在自然數中，如果一個三位數等於自身各位數字之立方和，則這個三位數就稱為是水仙花數。如:153=13+53+33，所以153是一個水仙花數。求所有的水仙花數。
18、編程序列印出下列圖案：
平行四邊形 等腰三解形 菱形
****** * *
****** *** ***
****** ***** *****
****** ******* ***
****** ********* *
19、編程列印出如下圖案：
1
222
33333
4444444
555555555
20、有三種明信片:第一種每套一張，售價2元；第二種每套一張，售價4元； 第三種每套9張，售價2元。現用100元錢要買100張明信片，要求每種明信片至少要買一套，問三種明信片應各買幾套？請輸出全部購買方案。
21、某人想把一元錢換成伍分、貳分、壹分這樣的零錢， 在這三種零錢中每種零錢都至少各有一個的情況下，共有多少種兌換方案。並打出這些方案。
22、A、B兩個自然數的和、差、積、商四個數加起來等於243，求A、B兩數。
23、求兩個數的最小公倍數和最大公約數。
24、編寫一個解碼程序，把一個英語句子譯成數字代碼。解碼規則是以數字1代替字母A，數字2代替字母B，……，26代替字母Z，如遇空格則列印一個星號『*』，英文句子以『.『結束。
25、輸入一個正整數N，把它分解成質因子相乘的形式。
如：36=1 X 2 X 2 X 3 X 3； 19=1 X 19
（提示：設因子為I，從2開始到N，讓N重復被I除，如果能整除，則用商取代N，I為一個因子；如果不能整除，再將I增大，繼續以上操作，直到I等於N。）
26、校體操隊到操場集合,排成每行2人,最後多出1人;排成每行3人,也多出1人;分別按每行排4,5,6人,都多出1人;當排成每行7人時,正好不多。求校體操隊至少是多少人?
27、從鍵盤輸入一個整數X（X不超過10000），若X的各位數字之和為7的倍數，則列印「Yes」，否則中列印「No」。
28、求1992個1992的乘積的末兩位數是多少？
29、尼科徹斯定理：將任何一個正整數的立方寫成一組相鄰奇數之和。
如: 33=7+9+11=27 43=13+15+17+19=64
30、猜價格：中央電視台的「幸運52」欄目深受觀眾喜愛，其中的「猜商品價格」的節目更是膾炙人口，現在請你編一個程序模擬這一游戲：由計算機隨機產生200至5000之間的一個整數，作為某件商品的價格，然後由你去猜是多少，若你猜的數大了，則計算機輸出提示「Gao」，若你猜的數小了，則計算機輸出提示「Di」，然後你根據提示繼續猜，直到你猜對了，計算機會提示「Ok」，並統計你猜的總次數。
解：本題的游戲規則大家都清楚，要完成程序，必須把處理步驟理清：
（1）用隨機函數Random產生200至5000之間的一個整數X；
（2）你猜一個數A；
（3）若A＞X，則輸出「Gao」；
（4）若A＜X，則輸出「Di」；
(5)若A＝X則輸出「Ok」；
(6)重復(2)(3)(4)(5)直到A=X。
31、小會議室里有幾條相同的長凳,有若幹人參加開會。如果每條凳子坐6人,結果有一條凳子只坐有3人;如果每條凳子坐5人,就有4人不得不站著。求會議室里有多少人開會,有多少條長凳?
32、某動物飼養中心用1700元專款購買小狗(每隻31元)和小貓(每隻21元)兩種小動物。要求專款專用,正好用完, 應當如何購買?請輸出所有方案。
33、某整數X加上100就成為一個完全平方數,如果讓X加上168 就成為另一個完全平方數。求X?
34、某次同學聚會,老同學見面個個喜氣洋洋,互相握手問好。參加此次聚會者每人都與老同學握了一次手,共握903次,試求參加聚會的人數？
35、用自然數300，262，205，167分別除以某整數A，所得到的余數均相同。求出整數A以及相除的余數？
36、1600年前我國的一部經典數學著作中有題：「今有物，不知其數，三三數之，剩二；五五數之，剩三；七七數之，剩二，問物幾何。」求最小解。
37、編程求出所有不超過1000的數中，含有數字3的自然數，並統計總數。
38、阿姆斯特朗數：如果一個正整數等於其各個數字的立方和，則該數稱為阿姆斯特朗數（也稱自戀數），如407＝43＋03＋73，試編程求出1000以內的所有阿姆斯特朗數。
39、將一根長為369cm的鋼管截成長為69cm和39cm兩種規格的短料。在這兩種規格的短料至少各截一根的前提下, 如何截才能余料最少。
40、甲、乙、丙三人都是業余射擊愛好者, 在一次練習中他們槍槍中靶: 甲射了八發子彈,取得225環成績,乙射了七發,也取得225環;丙只射了六發,同樣取得225環。下面是成績表,請編程完成下表中空項的填數。
41、求S= 1-1/2 +1/3-1/4+1/5-1/6+ ……（求前N項的和)
42、Faibonacci數列前幾項為: 0,1,1,2,3,5,8,…,其規律是從第三項起, 每項均等於前兩項之和。求前30項, 並以每行5個數的格式輸出。
43.小球從100高處自由落下,著地後又彈回高度的一半再落下。求第20次著地時, 小球共通過多少路程?
44.某登山隊員第一天登上山峰高度的一半又24米; 第二天登上餘下高度的一半又24米；每天均如此。到第七天,距山頂還剩91米。求此山峰的高度?
45.給出某整數N,將N寫成因數相乘的形式。如: N=12,輸出: 12=1*2*2*3.
46.出售金魚者決定將缸里的金魚全部賣出。第一次賣出全部金魚的一半加二分之一條;第二次賣出剩餘的三分之一加三分之一條金魚;第三次賣出餘下金魚的四分之一加四分之一條;第四次賣出餘下的五分之一加五分之一條金魚。還剩下11條金魚。當然,出售金魚時都是整數條,不能有任何破損。求缸里原有的金魚數?
47.外出旅遊的幾位朋友決定次日早晨共分一筐蘋果。天剛亮,第一個人醒來,他先拿了一個,再把筐里的八分之一拿走;第二個人醒來,先拿兩個,再把筐里的八分之一拿走;第三個人醒來,先拿三個,再拿走筐里的八分之一;…每個人依次照此方法拿出各人的蘋果,最後筐里的蘋果全部拿完,他們每人所拿到的蘋果數正巧一樣多。求原先筐里的蘋果數和人數。
48.圖中由6個圓圈構成三角形,每條邊上有三個圈, 將自然數1--6 不重復地填入各圓圈位置上,使每條邊圓圈上的數字之和相等,請編程輸出所有的填法。
49、求n!
50、求1！+2！+……+n！