资源描述：
《高中信息技术 信息学奥赛PASCAL语言练习本》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、信息学练习本一、数学趣题1、在一桩盗窃案中，有两个嫌疑犯甲和乙，另有四个证人正在受到询问。第一个证人说：“我只知道甲未盗窃。”第二个证人说：“我只知道乙未盗窃。”第三个证人的证词中至少有一个是真的。第四个证人最后说：“我可以肯定第三个证人的证词是假的。”通过调查研究，已证实第四个证人说了实话，那么盗窃犯是谁？2、甲、乙、丙三人被蒙上眼睛，、告诉他们每人头上都带了一顶帽子，帽子的颜色不是红的就是绿的，在这以后，就去掉蒙眼睛的布，要求每个人如果看见别人（一个人或两个人）戴的帽子就举手，并且谁能断定自己头上帽子
2、的颜色，谁就马上离开房间。三人碰巧戴的都是红帽子，因此三人都举了手，几分钟后，丙首先走开了，他是怎么推导出自己头上帽子的颜色的？3、三只口袋里分别装有两个红球、两个白球、一红一白球，但口袋外贴的标签都是错的，请从一只口袋里取出一只球，使你能根据这个球的颜色说出三只口袋里球的颜色。4、有9只乒乓球，他们的大小形状一样，其中有一个次品比其他正品的重量轻一点。你能不能用一台天平称两次（不用砝码），就把次品挑出来。5、在国际饭店的宴会桌旁，甲、乙、丙、丁四位朋友进行有趣的交谈，用了中、英、法、日四种语言，知道的情
3、况如下：（1）甲、乙、丙各会两种语言，丁只会一种语言；（2）有一种语言四人中有三人都会；（3）甲会日语，丁不会日语，乙不会英语；（4）甲、丙，丙与丁不能直接交谈，乙与丙可以直接交谈；（5）没有人既会日语又会法语。问：甲、乙、丙、丁各会什么语言？6、如果在81个零件中混杂了一个重量较轻的次品，用天平（不用砝码）最少称几次才能把次品找出来？7、某校数学竞赛，A、B、C、D、E这五位同学取得了前五名，老师对他们说：“祝贺你们取得了好成绩，你们猜一下名次结果。”A说：“B是第三，C是第五”。B说：“D是第二，E是
4、第四。”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）奇数;（2）能被25整除;5、7人排成一排,按下列要求,求各有多少
5、种不同的排法.(1)甲不能排在首位,乙不能排在末位;(2)甲、乙两人间恰好间隔两人;6、将N个红球和M个黄球排成一行。例如：N=2，M=3可得到以下6种排法：红红黄黄黄 红黄红黄黄 红黄黄红黄黄红红黄黄 黄红黄红黄 黄黄黄红红问题：当N=4，M=3时有多少种不同排法?(不用列出每种排法)7、平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同三角形？2、programt2;vara:array[0..8]ofchar;i:integ
6、er;beginfori:=1to8doa[i]:=char(i*2+ord('A'));fori:=1to4dobegina[0]:=a[i];a[i]:=a[9-i];a[9-i]:=a[0];end;fori:=1to8dowrite(a[i]);writeln;end.输出：______三、阅读程序1、programt1;varg,m:integer;k,t:real;begink:=0;g:=0;form:=1to49dobeging:=g+1;k:=k+1/(g*(g+1));end;writ
7、eln(k:10:2)end.输出：______4、programt4;vara,d:array[1..100]ofinteger;n,i,j,k,x,s:integer;beginn:=5;a[1]:=1;d[1]:=1;fori:=1tondobegins:=i+1;x:=0;forj:=1ton+1-idobegink:=s+x;x:=x+1;a[j+1]:=a[j]+k;write(a[j],'');end;writeln('...');d[i+1]:=d[i]+i;a[1]:=d[i+1];en
8、d;end.输出：_________3、programt3;varn,i,t:longint;tem:integer;s:string;beginreadln(n);s:='1';repeati:=length(s);whiles[i]='1'dobegins[i]:='0';dec(i);end;ifi>0thens[i]:='1'elses:='1'+s;val(s,t,tem);untiltmodn=0;writeln(
