部分典型问题参考程序【信息技术】.docVIP

部分典型问题参考程序 ? 1. 最小数字子串 ? 2. 邮票面值 ? 3. 字符移动 ? 4. 子集定和问题 ? 5. 素数方阵 ? 6. 全排列问题 ? 7. 移盘子问题 ? 8. N 女王问题 ? 9. 组合问题 10. 电子锁 11. 高精度数加减法 12. 高精度数乘法 13. 高精度数除法(一) 14. 高精度数除法(二) 15. 高精度数阶乘 16. P×S=11...1 17. P×S=987654321... 18. 受控时钟 19. 高精度八进制除法 20. 八数码问题 21. 取火柴游戏 22. 取奇数游戏 23. 最长公共子串 1. 键盘输入一个高精度正整数t(不超过240位),去掉其中S个数字后,剩下的 数字按原顺序组成一个新数,试对给定的 t 与 S, 寻找一种方案,使剩下的数字 组成的新数最小. program lxw001; var t1,t2:string[250]; ? a,b:array[1..250] of integer; ? i,j,r,s,s1:integer; begin writeln(输入数字串:); readln(t1); writeln(输入删除数字个数:);readln(s); s1:=s; r:=0; t2:=; for i:=1 to length(t1) do a:=i; repeat ? i:=1; ? for j:=1 to s1+1 do if t1[j] t1 then i:=j; ? if i 1 then ? ? for j:=1 to i-1 do begin inc(r); b[r]:=a[j] end; ? t2:=t2+copy(t1,i,1); ? delete(t1,1,i); ? for j:=1 to length(t1) do a[j]:=a[j+i]; ? s1:=s1-(i-1); ? if length(t1)=s1 then {处理尾部应删的数} ? ? begin ? ? for j:=1 to s1 do begin inc(r);b[r]:=a[j] end; ? ? s1:=0; t1:=; ? ? end; until s1=0; t2:=t2+t1; writeln(最小数:,t2); write(删除数字的位置: ); for i:=1 to s do write(b, ); writeln; end. 2. 发行一套四种不同面值的邮票,限定使用时不超过3枚,为了能连续贴出 1,2,...,r的面值, 如何确定四种面值,使 r 最大? program lxw002; var s1,s2,s3,s4: integer; r,r0,r1,r2,r3,r4: integer; stamp: set of 1..100; function workr(s1,s2,s3,s4:integer):integer; var n1,n2,n3,n4,f:integer; begin ? stamp:=[]; ? for n1:=0 to 3 do ? ? for n2:=0 to 3-n1 do ? ? for n3 :=0 to 3-n1-n2 do ? ? ? for n4:=0 to 3-n1-n2-n3 do ? ? ? ? begin ? ? ? ? f:=n1*s1+n2*s2+n3*s3+n4*s4; ? ? ? ? stamp:=stamp+[f] ? ? ? ? end; ? f:=1; ? while f in stamp do f:=f+1; ? workr:=f-1 end; begin{main}; s1:=1; ? r0:=0; for s2:=s1+1 to 3*s1+1 do ? for s3:=s2+1 to 3*s2+1 do ? ? for s4:=s3+1 to 3*s3+1 do ? ? begin ? ? ? r:=workr(s1,s2,s3,s4); ? ? ? if r r0 then ? ? ? ? begin ? ? ? ? r0:=r; ? ? ? ? r1:=s1; r2:=s2; r3:=s3; r4:=s4 ? ? ? ? end; ? ? end; writeln(s1=,r1,, s2=,r2,, s3=,r3,, s4=,r4); writeln(The max Value is: ,r0) end. 3. n个A与n个B(n≥4)排成一排, 开始时, 字符B全排在A的后面,然后将它移成 A,B 相间的情形: AAAABBBB → ABABABAB. 要求如下: (1) 每次同时移动两相邻字符, 不得调换顺序. (2) 总步数应尽量少. program lxw00