高中信息技术 信息学奥赛PASCAL语言练习本.docVIP

信息学练习本 一、数学趣题 1、在一桩盗窃案中，有两个嫌疑犯甲和乙，另有四个证人正在受到询问。 第一个证人说：“我只知道甲未盗窃。” 第二个证人说：“我只知道乙未盗窃。” 第三个证人的证词中至少有一个是真的。 第四个证人最后说：“我可以肯定第三个证人的证词是假的。” 通过调查研究，已证实第四个证人说了实话，那么盗窃犯是谁？ 2、甲、乙、丙三人被蒙上眼睛，、告诉他们每人头上都带了一顶帽子，帽子的颜色不是红的就是绿的，在这以后，就去掉蒙眼睛的布，要求每个人如果看见别人（一个人或两个人）戴的帽子就举手，并且谁能断定自己头上帽子的颜色，谁就马上离开房间。三人碰巧戴的都是红帽子，因此三人都举了手，几分钟后，丙首先走开了，他是怎么推导出自己头上帽子的颜色的？ 3、三只口袋里分别装有两个红球、两个白球、一红一白球，但口袋外贴的标签都是错的，请从一只口袋里取出一只球，使你能根据这个球的颜色说出三只口袋里球的颜色。 4、有9只乒乓球，他们的大小形状一样，其中有一个次品比其他正品的重量轻一点。你能不能用一台天平称两次（不用砝码），就把次品挑出来。 5、在国际饭店的宴会桌旁，甲、乙、丙、丁四位朋友进行有趣的交谈，用了中、英、法、日四种语言，知道的情况如下： （1）甲、乙、丙各会两种语言，丁只会一种语言； （2）有一种语言四人中有三人都会； （3）甲会日语，丁不会日语，乙不会英语； （4）甲、丙，丙与丁不能直接交谈，乙与丙可以直接交谈； （5）没有人既会日语又会法语。 问：甲、乙、丙、丁各会什么语言？ 6、如果在81个零件中混杂了一个重量较轻的次品，用天平（不用砝码）最少称几次才能把次品找出来？ 7、某校数学竞赛，A、B、C、D、E这五位同学取得了前五名，老师对他们说：“祝贺你们取得了好成绩，你们猜一下名次结果。” A说：“B是第三，C是第五”。 B说：“D是第二，E是第四。” C说：“A是第一，E是第四。” D说：“C是第一，B是第二。” E说：“D是第二，A是第三。” 老师说他们每个都只猜对了一半，那么这五个人实际名次如何呢？ 二、排列与组合问题 1、写出从A,B,C,D四个元素中任取两个元素的所有排列. 2、用0到9这10个数字可组成多少个无重复数字的三位数? 3、甲、乙、丙、丁四人并排站成一排，如果甲、乙必须站在一起，则不同的排法共有 种. 4、从1到9这9个数字中任选5个,可以组成多少个符合下列条件的五位数. （） 三、阅读程序 1、program t1; var g,m: integer; k,t: real; begin k:=0; g:=0; for m:=1 to 49 do begin g:=g+1; k:=k+1/(g*(g+1)); end; writeln ( k: 10: 2 ) end. 输出：______ 3、program t3; var n, i, t: longint; tem: integer; s: string; begin readln(n); s:=1; repeat i:= length(s); while s[i] =1 do begin s[i]:= 0 ;dec(i); end; if i0 then s[i]:=1 else s:= 1 +s; val(s,t,tem); until t mod n = 0; writeln(n,*,t div n,=,s); end. 输入：6 输出：______5、program t5; var m,n,i,p,k:integer; r:array[1..200] of integer; b: boolean; begin m:=6;n:=2; for i:=1 to m-1 do r[i]:=i+1; r[m]:=1;i:=0;p:=1;b:=true; while b do begin i:=i+1;k:=p;p:=r[p]; if k=p then begin writeln(p); b:=false; end else if i=n+1 then begin write(p, );i:=0; p:=r[p];r[k]:=p; end end end. 输出：________7、program t7； var n，k，s：longint； begin n:=1000000000；