题1009：温度转换.doc

题1009：温度转换题9：温度转换：编一程序，将摄氏温度换为华氏温度。公式为：f=9/5*c+32。其中f为华氏温度,c是摄氏温度。Input 输入一行，只有一个整数cOutput 输出只有一行，包括1个实数。（保留两位小数）Sample Input 50Sample Output 122.00  参考程序program rm7;var c:integer; f:real;begin readln(c); f:=9/5*c+32; write(f:0:2);end.题1010：判断奇偶数题10：判断奇偶数：输入一个整数，判断是否为偶数。是输出"y e s"，否则输出"n o"。Input 输入只有一行，包括1个整数。Output 输出只有一行。Sample Input 2Sample Output y e sHint ：要注意空格！ 参考程序 program rm10;var a:integer;begin readln(a); if a mod 2= 0 then write('y e s') else write('n o');end.题1011：行礼托运价格题11：行礼托运价格：某车站行李托运收费标准是：10公斤或10公斤以下，收费2.5元，超过10公斤的行李，按每超过1公斤增加1.5元进行收费。 试编一程序，输入行李的重量，算出托运费。Input 输入只有一行，包括1个整数。Output 输出只有一行，包括1个数。 （保留两位小数）Sample Input 10Sample Output 2.50  参考程序program rm11;var k:integer; v:real;begin readln(k); if k<=10 then v:=2.5 else v:=(k-10)*1.5+2.5; write(v:0:2);end.题1012：两数比大小题12：两数比大小：有A，B两个不相等的数，请将其中较大数打印出来。Input 输入只有一行，包括2个整数。之间用一个空格分开。Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。Sample Input 45 78Sample Output 78  program rm12;var a,b:integer;begin readln(a,b); if a>b then write(a) else write(b);end.题1013：判断成绩等级题13：判断成绩等级。Description 输入某学生成绩，如果86分以上(包括86分）则输出“VERY GOOD” ，如果在60到85之间的则输出“GOOD”(包括60和85)，小于60的则输出“BAD”。Input 输入只有一行，包括1个整数。Output 输出只有一行（这意味着末尾有一个回车符号）。Sample Input 80Sample Output GOOD   program rm12;var a:integer;begin readln(a); if a>=86 then write('VERY GOOD'); if (a>=60) and (a<=85) then write('GOOD'); if a<60 then write('BAD');end.题1014：求三个数的最大数题14：求三个数的最大数已知有三个不等的数，将其中的最大数找出来。Input 输入只有一行，包括3个整数。之间用一个空格分开。Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。Sample Input 1 5 8Sample Output 8  program rm14;var a,b,c,max:integer;begin readln(a,b,c); max:=a; if b>max then max:=b; if c>max then max:=c; write(max);end.题1015：求三个数的大小顺序题15：求三个数的大小顺序：输入三个数，按由大到小顺序打印出来。Input 输入只有一行，包括3个整数。之间用一个空格分开。Output 输出只有一行，包括3个整数。之间用一个空格分开。Sample Input 3 8 2Sample Output 8 3 2  program rm15;var a,b,c,max,min:integer;begin readln(a,b,c); max:=a;min:=a; if b>max then max:=b; if c>max then max:=c; if b<min then min:=b; if c<min then min:=c; write(max,' '); if (a<>min) and (a<>max) then write(a,' '); if (b<>min) and (b<>max) then write(b,' '); if (c<>min) and (c<>max) then write(c,' '); write(min);end.题1016：判断某年某月的天数题16：判断某年某月的天数-输入年，月，然后告诉该月有多少天。Input 输入只有一行，包括2个整数。之间用一个空格分开。Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。Sample Input 2000 2Sample Output 29（符合以下条件之一的年份即为闰年）1、能被4整除而不能被100整除。（如2100年就不是闰年）2、能被400整除。  program rm16;var y,m,d:integer;begin readln(y,m); case m of 1,3,5,7,8,10,12:d:=31; 4,6,9,11: d:=30; 2: if (y mod 400=0) or (y mod 4=0) and (y mod 100<>0) then d:=29 else d:=28; end; write(d);end.题1017：任意输入一个三位整数重组后的最大数题17：任意输入一个三位整数，再把它的次序打乱重新组合一个新的三位整数，使其值最大。Input 输入只有一行，包括1个整数。Output 输出只有一行（这意味着末尾有一个回车符号），包括1个整数。Sample Input 470Sample Output 740  思路：把三位拆除出来，求出最大、中间、最小program rm4;var x,g,s,b,y,t:integer;begin readln(x); g:=x mod 10; b:=x div 100; s:=x div 10 mod 10; if b<s then begin t:=b;b:=s;s:=t; end; if b<g then begin t:=b;b:=g;g:=t;end; if s<g then begin t:=s;s:=g;g:=t;end; y:=b*100+ s*10+g; write(y);end.题1018：找出最经济型的包装箱型号题18：找出最经济型的包装箱型号-已知有A，B，C，D，E五种包装箱，为了不浪费材料，小于10公斤的用A型，大于等于10公斤小于20公斤的用B型，大于等于20公斤小于40公斤的用C型，大于等于40公斤的小于50公斤的用D型，大于等于50公斤小于80公斤的用E型。现在输入一货物的重量（小于80公斤），找出最经济型的包装箱型号。Input 输入只有一行，包括一个整数。Output 输出只有一行（这意味着末尾有一个回车符号），包括1个字符。 Sample Input 8Sample Output A  program rm18;var m:integer; xz:char;begin readln(m); case m div 10 of 0:xz:='A' 1:xz:='B' 2,3:xz:='C' 4:xz:='D' 5,6,7:xz:='E' end; write(xz);end.题1019：判断三个整数是否相邻题19：判断三个整数是否相邻-判断三个整数是否相邻，是输出"TRUE"，否则输出"FALSE"。Input 输入只有一行，包括3个整数。Output 输出只有一行。Sample Input 1 2 3Sample Output TRUE  学生程序program rm19;var a,b,c,t:integer; q:boolean;begin readln(a,b,c); if a<b then begin t:=a;a:=b;b:=t; end; if a<c then begin t:=a;a:=c;c:=t;end; if b<c then begin t:=b;b:=c;c:=t;end; if (a-b<>1) or (b-c<>1) then write('FALSE')else write('TRUE');题1067：【入门】时间转换Description 给定一个从0秒开始计时的秒数，请将其转换为x:x:x的格式Input 输入一个秒数n，且这个秒数 0 < n < 84600Output 输出这个秒数对应的时:分:秒Sample Input 1Sample Output 00:00:01program ex1067;var a:longint; s,f,m:integer;begin readln(a); s:=a div 3600; a:=a mod 3600; f:=a div 60; m:=a mod 60; if s<10 then write('0',s) else write(s); write(':'); if f<10 then write('0',f) else write(f); write(':'); if m<10 then write('0',m) else write(m);end.题1068：【入门】心系南方灾区Description 2008年年初我国南方正在承受百年不遇的大雪、冻雨灾害。北京市已经开始了面向全体市民的捐款捐物活动，并组织运力，以最快速度将这些救灾物资运送到灾区人民的手中。 已知救灾物资中有m件大衣（10000 < m < 2000000 ），一辆卡车一次最多可以运走n件（2000 < n < 10000）。请你编写程序计算一下，要将所有的大衣运走，北京市政府最少需要调动多少辆卡车参与运送。 Input 只有两个整数 m、n 。Output 只有一个整数，表示需要的卡车数量。Sample Input 10000 2000Sample Output 5Source 2008北京市小学生网上练习赛第一试（1）  program ex1068;var m:longint; n,t,k:integer;begin readln(m,n); t:=m mod n; k:=m div n; if t<>0 then k:=k+1; write(k);end.题1071：【基础】扫描识别题1071：【基础】扫描识别Description “扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。 以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。 我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。已知，可能出现的错误有如下几种： 1、把数字0错误地识别为大写字母O； 2、把数字1错误地识别为小写字母l； 3、把数字2错误地识别为大写字母Z； 4、把数字5错误地识别为大写字母S； 5、把数字6错误地识别为小写字母b； 6、把数字8错误地识别为大写字母B； 7、把数字9错误地识别为小写字母q。 你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。最后把改正之后的数字串输出。Input 只有一个字符串，表示识别后得到的字符串。串的长度不超过100。Output 只有一个数字串，表示改正后的数字串。Sample Input 321lO88BqSSample Output 3211088895Source 2008年北京市小学生程序设计网上练习赛一试试题（4）program ex1071;var st:string100; i,len:integer;begin readln(st); len:=length(st); for i:=1 to len do case sti of 'O':sti:='0' 'l':sti:='1' 'Z':sti:='2' 'S':sti:='5' 'b':sti:='6' 'B':sti:='8' 'q':sti:='9' end; write(st);end.题1098【入门】今天星期几题1098【入门】今天星期几Description 编一程序实现：由输入年以后的任意一个日期后，计算机能打印出该日期是星期几。 日期肯定合法，绝不会出现类似年月日的情况 已知年月日是星期二。 Input 年 月 日 日期有3个整数组成，中间用空格隔开 Output 一个整数星期 星期用1 2 3 4 5 6 7表示 （若是星期日就输出7） Sample Input 2009 1 2Sample Output 5program ex1098;var m,d,xq:integer; y,s,t,i:longint;begin read(y,m,d); t:=0; for i:=1980 to y-1 do if (i mod 400=0) or (i mod 4=0) and (i mod 100<>0) then inc(t); s:=(y-1980) *365+t; for i:=1 to m-1 do case i of 1,3,5,7,8,10,12:s:=s+31; 4,6,9,11:s:=s+30; 2: if (y mod 400=0) or (y mod 4=0) and (y mod 100<>0) then s:=s+29 else s:=s+28; end; s:=s+(d-1); xq:=(s mod 7+2) mod 7 ; if xq=0 then xq:=7; write(xq);end.题1183：【入门】判断能否构成三角形Description 输入三个整数，表示3条线段的长度，判断这三条线段能否构成三角形。能构成就输出'Yes'，否则输出'No'。Input 三个整数Output Yes or NoSample Input 3 8 5Sample Output Noprogram ex1193;var a,b,c:longint;begin readln(a,b,c); if (a+b>c) and (a+c>b) and (b+c>a) then write('Yes') else write('No');end.题1769：【入门】汉译英Description 输入某个整数，如果输入的整数在1-9范围内，则输出相对应的单词，否则输出'out'Input 一行，一个整数n。Output 整数n相对应的小写英文单词或'out'。Sample Input 1Sample Output oneSourceprogram ex1769;var a:longint; st:string;begin readln(a); case a of 1:st:='one' 2:st:='two' 3:st:='three' 4:st:='four' 5:st:='five' 6:st:='six' 7:st:='seven' 8:st:='eight' 9:st:='nine' else st:='out' ; end; write(st);end.题1290：【入门】行李托运费Description 车站行李托运费标准是：10千克或10千克以下，每千克收费1.5元，超过10千克的行李，按每超过1千克增加2.5元进行收费。试编一程序，输入行李的托运费，算出行李的重量。Input 读入一个实型值，表示行李的托运费。Output 一个实型数，即行李的重量，保留两位小数。Sample Input 3Sample Output 2.00program ex1290;var m,g:real;begin readln(m); if m<=15 then g:=m/1.5 else g:=(m-15)/2.5+10; write(g:0:2);end.题1291：【入门】能否构成直角三角形Description 判定三条线段a，b，c能否构成一个直角三角形。如果能构成，请计算出面积（保留一位小数），不然输出'No'。Input 一行，三个整数。Output 面积（保留一位小数） 或 NoSample Input 样例1：3 4 5样例2：1 2 3Sample Output 样例1：6.0样例2：NoHint 满足a2+b2=c2，即是直角三角形。program ex1291;var a,b,c,t,i:integer;begin readln(a,b,c); if (a+b>c) and (b+c>a) and (c+a>b) then begin if a<b then begin t:=a;a:=b;b:=t; end; if a<c then begin t:=a;a:=c;c:=t; end; if b*b+c*c=a*a then writeln(b*c/2:0:1) else writeln('No'); end else write('No') ;end.题1301：【入门】比赛日期Description 校运会马上就要开始了，为了让同学们做好参赛准备，现在告诉你这个日期的前一天，你能编程输出校运会开始的日期吗？Input 一行，一个日期，格式为：月 日 年。（日期合法，不用判错）Output 一行，即比赛的日期，格式为：月/日/年。Sample Input 5 25 2009Sample Output 5/26/2009Sourceprogram ex1301;var n,y,d:integer;begin readln(y,d,n); if (y=12) and (d=31) then begin n:=n+1;y:=1;d:=1;end else case y of 1,3,5,7,8,10,12:if d<>31 then d:=d+1 else begin d:=1;y:=y+1 end; 4,6,9,11:if d<>30 then d:=d+1 else begin d:=1;y:=y+1; end; 2: if (n mod 400=0) or (n mod 4=0) and (n mod 100<>0) then if d=29 then begin y:=y+1;d:=1; end else d:=d+1 else if d=28 then begin y:=y+1;d:=1; end else d:=d+1; end; writeln(y,'/',d,'/',n);end.题1574：【入门】判奇偶求和题1574：【入门】判奇偶求和Description 输入一个正整数n,如果n是奇数,则求1-n之间所有的偶数之和；如果n是偶数,则求n所有的约数之和(包括1和本身)。Input 一行，一个整数n（0Output 一行，一个整数。Sample Input 89Sample Output 1980program ex1574;var i,t,s,n:longint;begin readln(n); s:=0;t:=0; if n mod 2<>0 then while t<=n do begin s:=s+t; t:=t+2; end else for i:=1 to n do if n mod i=0 then s:=s+i; writeln(s);end.题1576：【入门】周末大优惠Description 商场周末大优惠，规定凡购物总价超过100元时，超过100的那部分便可以打9折。小冬冬和妈妈一起购买了一大批物品，你能帮他算出最终的应付款吗？Input 一行，空格隔开的若干个整数，以0结束。Output 一行，一个小数（保留三位小数）。Sample Input 4 5 8 9 0program ex1576;var x,s,m:real;begin read(x); s:=0; while x<>0 do begin s:=s+x; read(x); end; if s<=100 then writeln(s:0:3) else writeln(100+(s-100)*0.9:0:3)end.题1578：【入门】求零件个数题1578：【入门】求零件个数Description 有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五个。请你编一个程序计算出这堆零件至少是多少个？ Input 无Output 一行，一个整数。program ex1578;var i:integer;begin for i:=100 to 199 do if (i mod 3=2) and (i mod 5=3) and (i mod 7=5) then writeln(i);end.题1635：【入门】输出奇数和偶数题1635：【入门】输出奇数和偶数Description 输入n个整数，将其中的奇数和偶数分别显示出来（1 < n < 30）Input 第一行：一个整数n。 第二行：n个空格隔开的整数。Output 第一行：若干个奇数。 第二行：若干个偶数。Sample Input 1021 12 33 43 59 68 77 18 19 40Sample Output 21 33 43 59 77 1912 68 18 40program ex1635;var n,i,j,k:integer; x:longint; a,b:array1.30 of longint;begin readln(n); j:=1;k:=1; for i:=1 to n do begin read(x); if x mod 2<>0 then begin aj:=x;inc(j);end else begin bk:=x;inc(k);end; end; for i:=1 to j-1 do write(ai,' '); writeln; for i:=1 to k-1 do write(bi,' ');end.题1758：【入门】恐龙园买门票题1758：【入门】恐龙园买门票Description 恐龙园买门票，身高1.3米以下购儿童票(60元)，否则成人票120元。 试编写一个程序，输入身高，输出相应的门票价格。Input 一行，一个人的身高。Output 一行，一个整数Sample Input 1.1Sample Output 60program ex1758;var n:real;begin readln(n); if n<1.3 then write(60) else write(120);end.题1794：【入门】角谷猜想题1794：【入门】角谷猜想Description 日本一位中学生发现一个奇妙的定理，请角谷教授证明，而教授无能为力，于是产生了角谷猜想。猜想的内容：任给一个自然数，若为偶数则除以2，若为奇数则乘3加1，得到一个新的自然数后按上面的法则继续演算。若干次后得到的结果必为1。请编写代码验证该猜想：求经过多少次运算可得到自然数1。 如：输入22， 22/2=11 11*3+1=34 34/2=17 17*3+1=52 52/2=26 26/2=13 13*3+1=40 40/2=20 20/2=10 10/2=5 5*3+1=16 16/2=8 8/2=4 4/2=2 2/2=1 经过15次运算得到自然数1。Input 一行，一个正整数n。（1 <= n <= 20000 )Output 一行，一个整数，表示得到1所用的运算次数。Sample Input 22Sample Output 15program ex1794;var n,t:longint;begin readln(n); t:=0; while n<>1 do begin if n mod 2=0 then n:=n div 2 else n:=n*3+1; inc(t); end; writeln(t);end.题1796：【入门】喜羊羊运动会训练时间题1796：【入门】喜羊羊运动会训练时间Description 这次运动会开幕式要进行团体操表演，于是喜羊羊召集大家紧锣密鼓地训练了起来，懒羊羊也在被召集之列。喜羊羊规定了每天的训练时间，只准早到，不许迟到，而且喜羊羊会做相关记录。这下懒羊羊可惨了，他虽然设定了闹钟，可是他动作慢，老迟到。 现给出若干天的规定到场时间与懒羊羊的到场时间记录，判断每天懒羊羊有无及时赶到训练场，以及迟到或早到的时间。Input 每两行时间为一组，每组中的第一行时间为规定的训练时间，第二行为懒羊羊到达训练场的时间。每行有两个整数H和M，H是以24小时记时法表示的小时数（0 <= H <= 24），M表示分钟数（0 <= M <= 59）。每组中的两个时间表示的是同一天的两个时间。若干组时间后以-1表示结束。Output 若干行，如果这一天懒羊羊及时到达了训练场，则输出Yes及早到的分钟数；如果没有及时到达，则输出No及迟到的分钟数。Sample Input 14 3014 258 09 013 1012 507 257 25-1Sample Output Yes 5No 60Yes 20Yes 0Hint 输入输出说明： 第一天第二天第三天第四天规定训练时间14：308：0013：107：25到场时间 14：259：0012：507：25有无及时到达YesNoYesYes早到或迟到分钟数560200Source 武进区夏令营程序设计小能手PKprogram ex1796;var h1,n1,h2,n2,s1,s2:integer;begin read(h1); while h1<>-1 do begin read(n1); s1:=h1*60+n1; read(h2);read(n2); s2:=h2*60+n2; if s2<=s1 then writeln('Yes',' ',s1-s2) else writeln('No',' ',s2-s1); read(h1); end;end.题1283：【入门】简单判断题1283：【入门】简单判断Description 读入三个整数a、b、c（ 0 < a，b，c < 10000 ），数据之间用空格隔开，如果前两个数a、b的和大于第三个数c，那么就输出“yes”，否则就输出“no”。Input 一行，三个整数a b cOutput yes or noSample Input 5 6 7Sample Output yesSource 武进区中级班测验program ex1803;var a,b,c:integer;begin readln(a,b,c); if a+b>c then write('yes') else write('no');end.题1284：【入门】偶数和题1284：【入门】偶数和Description 读入班里两位同学的生日，即两行年y、月m、日d（1990y2000，1m12，1n31，数据保证合法，不需判断），数据之间用空格隔开，求两位同学生日中的日之间的偶数和。Input 两行，每行三个数，即年 月 日Output 一行，一个整数。Sample Input 1996 6 51997 10 10Sample Output 24Hint 因为5到10之间有三个偶数：6、8、10Source 武进区中级班测验program ex1284;var y1,m1,d1,y2,m2,d2,t,s,i:integer;begin readln(y1,m1,d1); readln(y2,m2,d2); s:=0; if d1>d2 then begin t:=d1;d1:=d2;d2:=t; end; for i:=d1 to d2 do if i mod 2=0 then s:=s+i; write(s);end.题1285：【入门】是否是连续奇数题1285：【入门】是否是连续奇数Description 贫民窟的百万富翁获得2009年美国奥斯卡最佳影片，影片的主人公是一个叫贾马尔的小男孩，他在贫民窟长大，后来他参加了一档印度版的谁想成为百万富翁电视直播节目，他的特殊成长经历居然使他能够回答这个节目中的每一个问题，最后成功获得百万奖金。其中有一个题目是这样的：读入四个整数（0每个整数50000），判断这四个整数能否构成连续的四个奇数，如果可以就输出三行，每行一个等式，每个等式都满足“前一个数+2=后一个数”，否则请将这四个整数从大到小输出（数据之间以一个空格隔开）。Input 一行，四个空格隔开的整数。（ 0 < 每个整数 < 50000 )Output 三行，每行一个等式 或 一行，从大到小排列的4个数Sample Input 样例1：17 13 11 15样例2：18 13 11 16Sample Output 样例1：11+2=1313+2=1515+2=17样例2：18 16 13 11Hint 样例1中17、13、11、15可以构成连续的四个奇数11、13、15、17，所以就输出三个等式。样例2中的四个数据18、13、11、16不能构成连续的四个奇数，所以将他们从大到小输出。Source 武进区中级班测验program ex1285;var a:array1.4 of longint; t:longint; i,j:integer;beg