求pascal語言各種類型練習題

練習1：有三個小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，兩有13粒糖果。現在他們做壹個遊戲。從甲開始，將自己的糖分三份，自己留壹份，其余兩份分別給乙與丙，多余的糖果自己吃掉，然後乙與丙也依次這樣做。問最後甲、乙、丙三人各有多少粒糖果？

分析：在遊戲中每個小朋友擁有的的糖果數是在變化的，用a,b,c三個變量分別存放甲乙丙在某壹時刻所擁有的糖果數。對於每人，分糖後，他的糖果數壹定為原來的糖果數 div 3（用整除恰可以表示多余的糖自己吃掉）。而其他兩人則增加與這個小朋友現在擁有的糖果數。

program xpo;

var a,b,c:integer;

begin

a:=50;

b:=43;

c:=13;

a:=a div 3;

b:=b+a;

c:=c+a;

b:=b div 3;

a:=a+b;

c:=c+b;

c:=c div 3;

a:=a+c;

b:=c+b;

writeln('a=',a,'b=':5,b,'c=':5,c);

readln;

readln;

end.

練習2：對某產品征收稅金，在產值1萬元以上征收稅5%；在1萬元以下但在5000元以上的征收稅3%；在5000元以下但在1000元以上征收稅2%；1000元以下的免收稅。編程計算該產品的收稅金額。

提示:設x為產值，tax為稅金，用P表示情況常量各值

P=0: tax=0 (x<1000 )

P=1，2，3，4: tax=x*0.02 (1000<=x<5000 )

P=5，6，7，8，9: tax=x*0.03 (5000<X<=10000 )

P=10: tax=x*0.05 (x> 10000 )

這裏的P是“情況”值，用產值x除以1000的整數值作為P，如果P>10也歸入P=10的情況。Pascal語言用P=trunc(x/1000)取整計算，

解: program xpo;

var x,p:integer;tax:real;

begin

write('input x=');

read(x);

p:=trunc(x/1000);

if p>0 then

case p of

0:tax:=0;

1,2,3,4:tax:=x*0.02;

5,6,7,8,9:tax:=x*0.03;

else tax:=x*0.05;

end;

write('tax=',tax:0:2);

readln;

readln;

end.

兩個小題，希望對妳有所幫助 ^_^

上一篇:多軸加工的簡介

下一篇:到電腦培訓班學什麽專業好？