高中信息技术-信息学奥赛PASCAL语言练习本VIP免费

信息学练习本一、数学趣题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）奇数;（2）能被25整除;5、7人排成一排,按下列要求,求各有多少种不同的排法.(1)甲不能排在首位,乙不能排在末位;(2)甲、乙两人间恰好间隔两人;6、将N个红球和M个黄球排成一行。例如：N=2，M=3可得到以下6种排法：红红黄黄黄红黄红黄黄红黄黄红黄黄红红黄黄黄红黄红黄黄黄黄红红问题：当N=4，M=3时有多少种不同排法?(不用列出每种排法)7、平面上有三条平行直线，每条直线上分别有7，5，6个点，且不同直线上三个点都不在同一条直线上。问用这些点为顶点，能组成多少个不同三角形？三、阅读程序1、programt1;varg,m:integer;k,t:real;begink:=0;g:=0;form:=1to49dobeging:=g+1;k:=k+1/(g*(g+1));end;writeln(k:10:2)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(n,'*',tdivn,'=',s);end.输入：6输出：______2、programt2;vara:array[0..8]ofchar;i:integer;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.输出：______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];end;end.输出：_________5、programt5;varm,n,i,p,k:integer;r:array[1..200]ofinteger;b:boolean;beginm:=6;n:=2;fori:=1tom-1dor[i]:=i+1;r[m]:=1;i:=0;p:=1;b:=true;whilebdobegini...