1.由鍵盤讀入乙個數,輸出其絕對值。
2.由鍵盤讀入兩個數,對其由小到大排序輸出。
3.輸入兩個數a,b,輸出較大數的平方值。
4.判斷讀入的數是奇數還是偶數,如果是奇數輸出「ji」,偶數輸出「ou」,不能用odd()函式;
5.從鍵盤讀入3個數到實型變數x,y,z中,輸出其中的最大數。
6.輸入a,b,c三個不同的數,將它們按由小到大的順序輸出。
7.從鍵盤讀入乙個分數到實型變數s中,大於等於85分輸出「you」,大於等於75分輸出「liang」,小於75分輸出「cha」,其它輸出「error」。
8.給出以百分制成績(整型資料),要求輸出成績等級'a','b','c','d','e'。
90分以上為『a』,80~ 89分為『b』,
70~79分為『c』,60~69分為『d』,
60分以下為『e』。
9.有乙個函式:
當x<1時y=x,
當1<=x<10時y=2x-1,
當x>=10時y=3x-11,
寫乙個程式,輸入x,輸出y值。
10.給乙個不多於5位的正整數,要求輸出它是幾位數,並逆序列印各位數字,例如:
讀入的數字為:321
輸出: 3
1 2 3
11.讀入乙個年份,輸出是否是閏年。(閏年的判定是,表示該年的數字能被4整除
不能被100整除,或者能被400整除的數都是閏年。)
12.某超市為了**,規定:購物不足50元的按原價付款,超過50不足100的按九折付款,超過100元的,超過部分按八折付款。
編一程式完成超市的自動計費的工作。
13.火車託運行李問題,行李重量在50kg以下的,每公斤收費是0.35元,總重量超
過50公斤的,超過部分以每公斤0.50元收費。
程式設計:輸入行李重量,自動輸出收費總額。(注意實數場寬輸出格式)
14.輸入年月,輸出本月有幾天?(分別用if語句和case語句程式設計計算)(參考程式)
分析:不管是哪一年月都是31天,
都是30天,只有2月份,才考慮是否閏年。
閏年年份能夠被4整除,但不能被100整除,或者能夠被400整除。
15.運輸費用的計算,距離愈遠,每公里運價愈低。
s<250(公里),折扣=0%;
250<=s<500, 折扣=2%;
500<=s<1000, 折扣=5%;
1000<=s<2000, 折扣=8%;
2000<=s<3000, 折扣=10%;
3000<=s, 折扣=15%;
設每公里每噸運價為p,重量為w,折扣為d,運費f應為:
f=p*w*s*(1-d)
p為常量2,重量w從鍵盤讀入,計算f並輸出。
pascal選擇迴圈結構練習
選擇結構 1.程式清單 program lx1 vara integer begin readln a if a mod 2 0 then writeln a,oushu else writeln a,jishu end.輸入 1288 後,輸出結果為 2.程式清單 program lx2 varx...
PASCAL08 迴圈結構
迴圈結構的程式設計 一 簡單計數迴圈 for迴圈 引入 在解題的時候經常會遇到需要重複處理一類相同的事或類似的操作,如求1 2 3 4 100的和,就需要重複地做加法運算。這就是我們在前面提過的的迴圈結構,它的n s圖有兩種 當型迴圈 或計數迴圈直到型迴圈 其中 重複做的事 操作 一條或多條語句 稱...
1 2流程圖 選擇結構練習
1.2.2流程圖 選擇結構 反饋練習 1 如果考生的成績大於或等於 分,則輸出 及格 否則輸出 不及格 用流程圖表示這一演算法過程。2 如圖所示的程式框圖能判斷任意輸入的正整數的奇偶性,其中判斷框內的條件是3 寫出解方程 為常數 的演算法,並畫出流程圖 4 下面的流程圖表示了乙個怎樣的演算法?課後作...