10个pascal程序设计练习题.docVIP

说明：本练习题一共10题，均选自正式考试题目，有较高的难度，供给大家参考使用。 有的是需要大家读懂程序，写出程序运行结果；有的是需要大家把程序补充完整；有的是需要大家自己编写程序。 1、program Program1;??? var?? a,b,c,d,sum : longint;??? ??? begin????? read(a,b,c,d);????? a := a mod 23;? b := b mod 28;??? c := c mod 33;sum := a * 5544 + b * 14421 + c * 1228 - d;????? sum := sum + 21252;???? sum := sum mod 21252;????? if (sum = 0 ) then??? sum := 21252;????? writeln(sum);??? end. 输入：283 102 33 20?????????????????????????? ???? 输出_____ 2、program progam1; var u: array [0..3] of integer; a, b, c, x, y, z: integer; begin read(u[0], u[1], u[2], u[3]); a := u[0] + u[1] + u[2] + u[3] - 5; b := u[0] * (u[1] - u[2] div u[3] + 8); c := u[0] * u[1] div u[2] * u[3]; x := (a + b + 2) * 3 - u[(c + 3) mod 4]; y := (c * 100 - 13) div a div (u[b mod 3] * 5); if((x+y) mod 2 = 0) then z := (a + b + c + x + y) div 2; z := (a + b + c – x - y) * 2; writeln(x + y - z); end. 输入：2 5 7 4 输出： 263 。 3、var n : longint; function g(k : longint) : longint; begin if k = 1 then g := k else g := (2002 * g(k - 1) + 2003 * g(k - 2)) mod 2005; end; begin read(n); writeln(g(n)); end. 输入：2005 输出：3 4、.Program ex402; ?const ?m:array[0..4] of integer=(2,3,5,7,13); ?var i,j:integer; t: longint; begin for i:=0 to 4 do begin t:=1; ?for j:=1 to m[i]-1 do ?t:=t*2; ?t:=(t*2-1)*t; write (t, ); end; writeln; ?end. 输出:__ 13_????????????????? 5、念数字：编一个“念数字”的程序，它能让计算机完成以下工作：当你输入一个０至99之间的数后，计算机就会用汉字拼音印出这个数的念结束。 例１：Input data:35 SAN SHI WU 例２：Input data:0 LING 如果输入的数不在０到99之间，就印出“CUO LE”（错了），请求重新输入。 注：为了使不熟悉汉语拼音的同学也能做这个题，把“零，一，二，三，……，九，十”的拼音法写在下面。 零 LING 一 YI 二 ER 三 SAN 四 SHI 五 WU 六 LIU 七 QI 八 BA 九 JIU 十 SHI [解]输入数在0～99之间，若x为两位数则拆分为十位数、个位数。然后调用念 数过程Readdigit用汉字拼音印出各位数（0～9）的念。 [程序] {$I-} Program NinShu; Var x,a,b:Integer; Procedure ReadDigit(n:Integer);{念数过程:n=0～9} Begin Case n of 0:write(LING ); 1:write(YI ); 2:write(ER ); 3:write(SAN ); 4:write(SHI ); 5:write(WU );