资源描述:
《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)