资源描述：
《10个pascal程序设计练习题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。
1、说明：本练习题一共10题，均选自正式考试题目，有较高的难度，供给大家参考使用。有的是需要大家读懂程序，写出程序运行结果；有的是需要大家把程序补充完整；有的是需要大家自己编写程序。l^programProgrami;vara,b,c,d,sum:longint;beginread(a,b,c,d);a:=amod23;b:=bmod28;c:=cmod33;sum:二a*5544+b*14421+c*1228-d;sum:=sum+21252;sum:=summod21252;if(sum=0)thensum:=21252;writeln(sum);end.输入：28310
2、23320输出_838_2nprogramprogam1;varu:array[0.-3]ofinteger;a,b,cfx,y,z:integer;beginread(u[0]zu[1]fu[2],u[3]);=u[0]=u[0]=u[0]=(a+=(c*u[l]+u[2]+u[3]一5;(u[1]-u[2]divu[3]4-8);u[1]divu[2]*+2)*3100-13)yif((x+y)mod2=0)(a+b+c-x一u[(c+divadivthenz:=u[3];3)mod4];(u[bmod3]*5);(a+b+c+x+y)div2;-y)*2；write
3、ln(x+y-z);end-输入：2574输出：2633*varn:longint;functiong(k:longint):longint;beginifk<=1theng:=kelseg:=(2002*g(k-1)+2003*g(k-2))mod2005;end;beginread(n);writein(g(n));end.输入：2005输出：34、.Programex402;constm:array[0..4]ofinteger=(2,3,5,7,13);vari,j:integer;t:longint;beginfori:=0to4dobegint:=1;forj
4、:=ltom[i]Tdot:=t*2;t:=(t*2T)*t;write(t,'');end;writeln;end.输出:—33550336135、念数字：编一个“念数字”的程序，它能让计算机完成以下工作：当你输入一个0至99之间的数后，计算机就会用汉字拼音印出这个数的念结朿。例1:Inputdata:35SANSHIWU例2:Inputdata:0LING如果输入的数不在0到99之间，就印出“CUOLE”(错了)，请求重新输入。注：为了使不熟悉汉语拼音的同学也能做这个题，把“零，一，二，三，……,九，十”的拼音法写在下面。零LING一YI二ER三SAN四SHI五WU六
5、LIU七QI八BA九JIU十SHI[解]输入数在0〜99之间，若x为两位数则拆分为十位数、个位数。然后调用念数过程Readdigit用汉字拼音印出各位数(0〜9)的念。[程序]{$T-}ProgramNinShu;Varx,a,b:Tnteger;ProcedureReadDigit(n:Tnteger);{念数过程：n二0〜9}BeginCasenof0:writeCLING');1:write('YI');2:write(，ER');3:write('SAN');4:write(，SHI');5:writeCWU');6:write(，LIU');7:writeCQI
6、');8:writeCBA');9:write(，JIU');End;End;{ReadDigit}Begin{main}RepeatwriteInputdata/);readln(x);if(x<0)or(x>99)thenwritelnCuoLe，);Until(x>=0)and(x<=99);If(x>=0)and(x<=9)thenReadDigit(x){调用念数过程}ElseBegina:二xDIV10;b:=xmod10;{j立数拆分}[faOlthenReadDigit(b)；writeln('Shi，);ifb<>0thenReadDigit(b);En
7、d;writein;End.输入：10输出：_shi6>ProgramGxp2Vardl,d2,X,Min:real;beginMin:=10000;X:=3;whileX<15dobegindl:=sqrt(9+(X-3)*(X-3));d2:=sqrt(36+(15-X)*(l5-X));if(dl+d2)
