2012年青岛市程序设计竞赛试题

合集下载

国信蓝点杯软件程序设计大赛真题 (1)

国信蓝点杯软件程序设计大赛真题 (1)

2012国信蓝点杯软件程序设计大赛真题造成高房价的原因有许多,比如土地出让价格。

既然地价高,土地的面积必须仔细计算。

遗憾的是,有些地块的形状不规则,比如是如图【1.jpg】中所示的五边形。

一般需要把它划分为多个三角形来计算。

已知三边求三角形的面积需要用海伦定理,参见【2.jpg】各条边长数据如下:AB = 52.1BC = 57.2CD = 43.5DE = 51.9EA = 33.4EB = 68.2EC = 71.9根据这些数据求五边形地块的面积。

四舍五入到小数后两位。

大数学家欧拉在集市上遇到了本村的两个农妇,每人跨着个空篮子。

她们和欧拉打招呼说两人刚刚卖完了所有的鸡蛋。

欧拉随便问:“卖了多少鸡蛋呢?”不料一个说:“我们两人自己卖自己的,一共卖了150个鸡蛋,虽然我们卖的鸡蛋有多有少,但刚好得了同样的钱数。

你猜猜看!”欧拉猜不出。

另一个补充道:“如果我按她那样的价格卖,可以得到32元;如果她按我的价格卖,可以得到24.5元”。

欧拉想了想,说出了正确答案。

我们不是数学家,懒得列出公式来分析。

但计算机可以“暴力破解”,就是把所有可能情况都试验一遍,撞上为止!请写出每人鸡蛋的数目(顺序不限),用逗号隔开。

福尔摩斯到某古堡探险,看到门上写着一个奇怪的算式:ABCDE * ? = EDCBA他对华生说:“ABCDE应该代表不同的数字,问号也代表某个数字!”华生:“我猜也是!”于是,两人沉默了好久,还是没有算出合适的结果来。

请你利用计算机的优势,找到破解的答案。

把ABCDE 所代表的数字写出来。

小明刚上小学,学会了第一个扑克牌“魔术”,到处给人表演。

魔术的内容是这样的:他手里握着一叠扑克牌:A,2,....J,Q,K 一共13张。

他先自己精心设计它们的顺序,然后正面朝下拿着,开始表演。

只见他先从最下面拿一张放到最上面,再从最下面拿一张翻开放桌子上,是A;然后再从最下面拿一张放到最上面,再从最下面拿一张翻开放桌子上,是2;......如此循环直到手中只有一张牌,翻开放桌子上,刚好是K。

年青岛市程序设计竞赛试题(小学组)

年青岛市程序设计竞赛试题(小学组)

2015年青岛市程序设计竞赛试题(小学组)(比赛时间90分钟,试题满分400分,内存限制128M,时间限制1S)说明:1、必须一题目中规定的文件名进行保存,并用FTP上传到指定的文件夹中。

2、使用竞赛规定的文件格式输入、输出。

(1)对于使用pascal语言的选手,请参照以下格式使用文件输入输出;beginAssign(input,’输入文件名‘); Assign(output,’输出文件名‘);Reset(input); rewrite(‘output’)……Close(input);Close(output);End.(2)对于C或C++选手,如果尚未掌握文件输入输出,请参考以下我们提供的一种方法进行文件输入输出,在主函数即main()的开始部分加入以下代码:Freopen(‘输入文件名‘,‘r’,’sstdin’);Freopen(‘输出文件名‘,‘w’,’sstout’);程序结束时无需像pascal选手一样,关闭文件,系统将自动关闭读写的文件。

对于选手C,情调用头文件stdio.h对于C++选手,情调用头文件iostream1年龄问题(age.pas/c/cpp)问题描述:根据我国的户籍管理办法,每个人一出生就会有户籍所在地编排一个18位的身份证号码,每个身份证号码都是按规律编排的,例如:370627************前6位数字370627表示户籍所在地,2001表示该号码拥有者的出生的年份,1106表示出生月份和日期,602x表示识别码。

现在要求编写一个程序,输入一个身份证号码(假设输入的号码完全正确),计算该号码拥有者,在2014年8月31日应该是多少岁。

生日在8月31日后不算足岁,如1974年8月31日出生的应为40岁,1974年9月1日出生的应为39岁。

输入:一行:一个正确的18位身份证号码。

输出:一行:该身份证拥有者的岁数。

2排队(q ueue.pas/c/cpp)问题描述:小红是一个喜欢跳舞的女孩儿,还报了一个专门学习跳舞的班呢。

2008年青岛市程序设计竞赛试题(高中组)

2008年青岛市程序设计竞赛试题(高中组)

2008年青岛市程序设计竞赛试题(高中组)说明:1.必须以题目中规定的文件名进行保存,并用FTP上传到指定文件夹中。

FTP上传使用说明在试题最后。

请选手每做完一道题及时上传一次,以确保因机器故障引起的文件丢失。

2.比赛时间为:90分钟,每道试题100分。

3.使用竞赛规定的文件格式输入,输出全部时间限制为1s,内存限制为64m。

1. 机房的字典(lexicon.pas / lexicon.in / lexicon.out)描述:很少有人知道tHeem_Lody所在的机房有一部含有W(1<=W<=600)个单词的字典,每个单词包含之多25个小写字母。

由于机房噪音很大(包括主机风扇的嗡嗡声,空调吹气的呼呼声,还有楼下买菜老大妈的吆喝声……),导致机房成员们有时候听到的单词不具有任何意义。

比如,tHeem_Lody有一次听到一句话是“orzsalsnod”,其实这句话原本的意思是“orzalno”,那另外的两个s和一个d是噪音造成的。

tHeem_Lody希望你能帮助他破译一些长度为L(2<=L<=300)的有一些被杂音扰乱的句子(只是包含小写字母a..z),并且可以保证其中只是加入了一些另外的字母。

tHeem_Lody 希望你能去除的字母最少使得这个句子能有意义(即仅由一些能够在字典上找到的词构成)。

输入格式:第一行:两个整数W和L,用一个空格隔开第二行:L个小写字母,表示收到的句子第3..W+2行,机房的字典,每行一个单词输出格式:一个整数,将句子变得有意义所需要去掉的最少字母个数样例输入:6 10orzsalsnodorzmilkwhitealnoblackfarmer样例输出:32. 机房的饮水机(fountain.pas / fountain.in / fountain.out)描述:夏天到了,机房的饮水成了一个不容忽视的问题。

tHeem_Lody在攒了很久钱以后,决定为机房买一台饮水机,他希望把饮水机安放到何时的位置。

2012年青岛市中小学电脑制作活动_3

2012年青岛市中小学电脑制作活动_3

2012年青岛市中小学电脑制作活动获奖名单一、程序设计竞赛(一)团体奖(共16个)1.高中组(4个)第一名青岛二中第二名平度一中第三名青岛五十八中第四名莱西一中2.市内初中组(3个)第一名市南区第二名市北区第三名李沧区3.郊市区初中组(4个)第一名开发区、莱西市第二名胶州市第三名平度市4.市内小学组(3个)第一名四方区第二名市北区第三名市南区5.郊市区小学组(3个)第一名胶州市第二名开发区第三名莱西市(二)个人奖(共62人)1.高中组(7人)一等奖孙盛阳(平度一中)王钦(青岛二中)刘德聪(青岛五十八中)二等奖王融鑫(青岛二中)曲文轩(青岛五十八中)王烨东(青岛二中)三等奖庄永文(莱西一中)2.市内初中组(17人)一等奖江翰林(市南区)赵梓涵(李沧区)黄莺时(市南区)朱冠宇(市北区)二等奖赵长乐(市北区)许晟伟(四方区)于天舒(市北区)三等奖林小淞(四方区)李夏欣(四方区)张徐青(四方区)张馨月(市南区)王广泽(市南区)张作柏(市南区)焦盛和(市北区)侯杜文凯(市北区)韩明聪(李沧区)董萌馨(李沧区)3.郊市区初中组(8人)一等奖葛梦帅(莱西市)梁伯翰(开发区)二等奖王昊阳(胶州区)马翊超(平度市)三等奖王泽昊(胶州区)张峻洁(胶州区)孙华鑫(胶州区)李项(胶州区)4.市内小学组(21人)一等奖赵云淏(市北区)刘溟(市北区)刘逸伦(四方区)邓弓玉(四方区)明玥(四方区)彭泽敏(市北区)二等奖傅铭翔(四方区)洪子骁(市南区)袁茂恒(四方区)孙雨蒙(四方区)丁明朔(市南区)卢沛泽(市北区)许志凡(四方区)三等奖吕明洋(市北区)张天润(四方区)刘汉霖(四方区)李昊堃(市南区)梁爽(市南区)唐莉莹(市北区)周雅洁(市北区)5.郊市区小学组(9人)一等奖王海铮(胶州市)刘峻基(胶州市)二等奖朱瑞泰(开发区)薛大敏(开发区)姜家豪(胶州市)姜一凡(胶州市)赵雨晗(胶州市)宋开元(胶州市)三等奖王文轩(莱西市)优秀辅导教师(16人)贾春雷(平度一中)、赵术升(平度一中)、胡芳(青岛二中)、殷美玉(青岛五十八中)、祝元浩(青岛二十六中)、刘兴杰(青岛五十七中)、李斌(青岛二十二中)、曲辰(青岛第二实验初级中学)、崔晓尊(莱西市店埠中学)、潘欣明(开发区第四中学)、邢妮妮(青岛市北区寿光路小学)、赵虹(青岛市北区上海路小学)、杨朝辉(青岛四方区淮阳路小学)、王晓杰(青岛四方区平安路第二小学)、于凤艳(胶州市阜安小学)、刘霞(胶州市常州路小学)。

2012山东省电子设计大赛赛题

2012山东省电子设计大赛赛题

低功耗数字多功能表的设计制作(A题)【本科】一、任务设计并制作一款多功能数字测量仪表,其示意图如图1所示。

图1 低功耗数字多功能表系统示意图二、要求1. 基本要求(1)采用9V方电池供电。

自行设计保证该仪表正常工作的低功耗供电电源系统。

(2)三位半数字显示,最大读数1999。

(3)测量直流电压量程:0.2V、2V、20V;精度±(1%+2个字);输入阻抗:≥10MΩ。

(4)测量交流电压量程:0.2V、2V、20V;精度±(1.5%+5个字);频率范围:40Hz~400Hz;输入阻抗:≥10MΩ。

(5)测量电阻量程:200Ω、2kΩ、20kΩ;精度±(1%+5个字)。

(6)测量电容量程:100nF、100uF;精度±(5%+10个字)。

(7)晶体三极管β参数测试:测量类型NPN或PNP,显示范围0~1000,精度±(2%+2个字);测试条件:基极电流约10uA,V CE约3V。

2. 发挥部分(1)增加“自动关机”功能,即在测量模式下,若1分钟内无任何按键按下,仪表将自动关闭供电电源并进入低功耗状态;再按下任意键,仪表将自动返回“自动关机”前的状态。

(2)增加正弦波信号源功能:要求输出正弦波信号的频率为10Hz~100kHz,且可调;非线性失真≤3%。

(3)要求在负载为600Ω时,输出正弦波的最大值(有效值)≥5V;输出正弦波的幅值可调,调节范围100mV~5V。

(4)其他特色(例如:扩展其他功能、提高测量精度、减少失真等)三、说明1、不允许采用数字万用表专用A/D转换器或成品。

2、单片机建议采用MPS430单片机。

四、评分标准低功耗电波钟的设计制作(B题)【本科题】一、任务设计并制作一台低功耗电波钟。

二、要求1.基本要求(1)自行设计制作天线、选频放大,使其能接受中国码(BPC)电波授时数据、并输出包络。

(2)作品上电后尽可能快的完成授时信号的接受、处理。

2009年青岛市程序设计比赛小学组

2009年青岛市程序设计比赛小学组

第1题求和问题(程序文件名A1.PAS / A1.in / A1.out ,20分)输入一个三位正整数,然后与它倒过来的数相加,输出和。

输入(a1.in):一行,N(100 < n < 999)输出(a1.out):一行,和值样例1:输入:125输出:646样例2:输入:100输出:101第2题换钱游戏(程序文件名A2.PAS / A2.in / A2.out ,20分)一个富翁试图与陌生人做一笔换钱生意,换钱规则为:陌生人每天给富翁10万元钱;而富翁第一天给陌生人1元钱,第二天2元,第三天4元,……,富翁每天给陌生人的钱是前一天的两倍。

请你编程帮他们算一算这个游戏至少做几天,富翁给陌生人的总钱数会超过陌生人给富翁的?输出(a2.out):一行,达到要求是最少的游戏天数。

第3题残料问题(程序文件名A3.PAS / A3.in / A3.out ,20分)小明到爷爷的工厂去实习,厂里有一根长度为321米的钢材,爷爷要求小明将他接去成两种规格的短料,规格a、b的长度分别为17米和27米,问小明分隔成a、b各多少段后,剩余的残料r最少?输出(a3.out):三行,每行一个数据。

分别为a的段数、b的段数及残料r的长度。

第4题拐角问题(程序文件名A4.PAS / A4.in / A4.out ,20分)小林最近迷上了一种拐角方阵,他觉得非常好玩。

这个图形是由n行,n列的整数组成的方阵。

比如当n为5时,这个拐角方阵是如下的一个图形:1 1 1 1 12 2 2 2 13 3 3 2 14 4 3 2 15 4 3 2 1希望你能帮小林编写一个程序,当输入一个n(1<n<15)时,你的程序能生成一个n*n的拐角矩阵。

输入(a4.in):一行,n(1<n<15)。

输出(a4.out):n*n的拐角矩阵。

每个数据占3列位置,不足3列的左边补空格。

(如当n=5时,每一列的前面县输出两个空格,然后就是一个一位数据。

青岛市青少年创意编程与智能设计大赛 题目

青岛市青少年创意编程与智能设计大赛 题目

青岛市青少年创意编程与智能设计大赛1. 赛事背景随着科技的不断发展,编程和智能设计已经成为当今世界发展的主要趋势。

为了激发青少年对科技创新的兴趣,推动青少年创意教育,青岛市决定举办青少年创意编程与智能设计大赛,为青少年提供展示自己才华的舞台。

2. 赛事目的(1) 激发青少年科技创新兴趣通过举办编程和智能设计大赛,让青少年了解到科技创新的重要性,激发其对科技创新的兴趣,促进其科技创新能力的提高。

(2) 提高青少年编程和智能设计水平通过比赛的方式,让青少年在实际项目中运用所学知识,提高编程和智能设计水平,培养他们解决实际问题的能力。

(3) 培养团队合作意识参赛者需要组成团队完成比赛项目,比赛过程中需要团队成员之间相互协作,培养其团队合作意识和交流能力。

3. 赛事形式(1) 组织形式本次大赛采用线上线下相结合的方式进行,上线进行作品提交和初赛评审,优胜者进入决赛现场进行项目展示和答辩。

(2) 参赛对象参赛对象为青岛市中小学生,按年级分设初赛组和决赛组,初赛组为初中生,决赛组为高中生。

(3) 参赛作品参赛作品需以编程和智能设计为主题,可以是软件应用、智能机器人、创意APP等,要求创新性强、技术含量高。

(4) 评审标准评审将从项目创意、技术实现、应用价值等方面进行综合评比,评定出初赛晋级作品和决赛获奖作品。

4. 赛事日程(1) 线上初赛报名截止后,参赛者需提交参赛作品的项目介绍和演示视瓶,由评委进行初赛评审,选拔出晋级作品。

(2) 决赛现场决赛将在青岛市举行,晋级作品团队将现场展示项目,并回答评委的提问,评选出各个奖项的获奖作品。

(3) 颁奖典礼在决赛结束后举行颁奖典礼,表彰获奖团队,并对他们进行奖励。

5. 赛事收益(1) 提升青少年编程和智能设计水平通过参加比赛,青少年将有机会接触并应用最新的编程和智能设计技术,提升自己的技能水平。

(2) 激发创新创意参赛者将有机会展示自己的创新想法和创意作品,激发自己的创新创意意识,培养自己的创造力。

2012VB程序设计(附答案)

2012VB程序设计(附答案)

VB程序设计第一题题目:(事件)单击窗体(响应)求50以内所有偶数的和,并在窗体上输出来。

将结果存入变量S中。

代码:Dim I As IntegerFor i = 2 To 50If (i Mod 2)=0 ThenS=s+iEnd IfNextPrint (CStr(s))第二题题目:(事件)双击窗体(响应)求s=1+1*2+1*2*3+….+1*2*3*….*10并将结果存入变量S中代码:Dim i,j As IntegerDim k As Longk=1s=0For i =1To 10For j=1 To ik=k*jNexts=s+kk=1NextPrint(CStr(s))第三题题目:(事件)单击窗体(响应)求100以内偶数的和,并将结果输出在窗体上。

将结果存入变量SUM中代码:Dim i As IntegerFor i =1 To 100If i Mod 2 =0 ThenSum=sum+iEnd IfNextPrint sum第四题题目:(事件)单击窗体(响应)编写程序求10*11*12+11*12*13+….+15*16*17的结果并将结果输出到窗体上。

将结果存入变量M中。

代码:Dim i,j As IntegerDim s As LongFor i =10 To 15s=1For j = i To i +2s=s*jNextm=m+sNextPrint (CStr(m))第五题题目:(事件)双击窗体(响应)求100以内奇数的和,并将结果输出在窗体上。

将结果存入变量SUM中。

代码:Dim i As IntegerFor i=1 To 100If i Mod 2 = 1 Thensum = sum + iEnd IfNextPrint sum第六题题目:(事件)单击窗体(响应)已知S=1+1/4+1/9+1/16+1/25+…+1/100,结果输出在窗体上代码:Dim s As SingleFor i=1 To 10a=i*iSum =1/a + SumNextPrint Sum第七题题目:(事件)双击窗体(响应)求1+1*2+1*2*3+....+1*2*3*. (10)并将结果存到变量S中代码:Dim s As Longj=1For i = 1 To 10j= j*iSum = Sum + jNextPrint Sum第八题题目:(事件)单击窗体(响应)求1—1/2+1/3—1/4+….+1/99—1/100的值。

  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

assign(f2,'a3.out'); reset(f1); rewrite(f2); readln(f1,a,b); if a=1 then if b<=2 then c:=b*10 else if b<=10 then c:=20+9*(b-2) else c:=20+72+7.5*(b-10); if a=2 then if b<=10 then c:=b*9 else if b<=50 then c:=b*9*0.8 else c:=b*9*0.6; if a=3 then if b<50 then c:=6*b else if b<100 then c:=5*b else c:=4*b; writeln(f2,round(c)); close(f1); close(f2); end. 4. program a4; var a:array[1..100] of longint; n,x:integer; i:integer; cnt:integer; b:Boolean; f1,f2:text; begin assign(f1,'a4.in'); assign(f2,'a4.out'); reset(f1); rewrite(f2); readln(f1,n); for i:=1 to n do readln(f1,a[i]); b:=false; while not b do begin cnt:=cnt+1; if a[n] mod 2=0 then begin a[n]:=a[n] div 2;
x:=a[n]; end else begin a[n]:=a[n]+1; a[n]:=a[n]div 2; x:=a[n]; end; for i:=n-1 downto 1 do if a[i] mod 2 =0 then begin a[i[i]; end else begin a[i]:=a[i]+1;a[i]:=a[i] div 2;a[i+1]:=a[i+1]+a[i];end; a[1]:=a[1]+x;b:=true; for i:=1 to n-1 do if a[i]<>a[i+1] then b:=false; end; writeln(f2,cnt-1,' ', a[1]); close(f1); close(f2); end.
3、团购:10 元起团购,6 元/套,达到或超过 50 套,则 5 元/套,达到或超 过 100 套,则 4 元/套。 小林想用其中一种方式购 n 套文具,请你帮他计算应付多少元钱? 输入(a3.in):一行,两个用空格隔开的整数,分别表示购买方式号(1,2,3)和 套数 n(n<=200) 输出(a3.out):一行,一个整数,应付饭钱(小数部分四舍五入)。 样例: 输入:1 11 输出:100
2012 年青岛市程序设计竞赛试题(小学组) 1、 说明: 必须以题目中规定的文件名进行保存, 并用 FTP 上传到指定文件夹中, FTP 上传在试题最后。请选手没做完一道题及时上传一次,以确保因机器故障引 起的文件丢失。 2、比赛时间为:60 分钟,试题 100 分。 3、使用竞赛规定的文件格式输入、输出。 第一题 火柴盒(程序文件名 a1.pas,25 分) 小林今年刚上一年级,最近开始学数学的加法。老师给他出了这样一道题: 火柴盒长为 L,宽为 W(1<=L,W<=100)。高度有一层楼这么高,火柴只能按长 或宽的方式放进去,给小林了 N(1<=N<=50)根火柴,知道一根火柴的长度,问 有多少跟火柴可以放进该火柴盒。你能用计算器帮小林解决这个问题吗? 输入(a1.in): 第一行,三整数 N,L 和 W 用空格隔开; 接下来 N 行每行输入一个 1 到 1000 范围内的一个整数,表示火柴的长度。 输出(a1.out):一行整数,能够装进火柴盒的火柴数量。 样例 1: 输入:5 3 4 8 4 2 1 9 输出:3
第四题 分发糖果(程序文件名 a4.pas,25 分) 一些学生围绕教师坐着,每人手里都有偶数个糖果。现在老师吹一声哨子, 所有学生同时将自己的一半糖果给他右面的同学, 如果某个同学的手里的糖果个 数是奇数, 则老师给他一个糖果。 重复这个过程直到多有同学手中的糖果数一致, 并给出结束后没人手里的糖果数。 输入(a4.in): 第一行,一个整数 n,表示学生人数(n<=100); 接下来的 n 行,每行一个偶数(不超过 100),表示每个学生手里的糖果(按 逆时针次序)。 输出(a4.out):一行,两个空格隔开的整数,即老师吹哨子的次数和学生最后平 均的糖果数。 样例: 输入:6 36 2 2 2 2 2 输出:15 14 ftp 上传使用说明 第一步:打开 IE 浏览器,在地址栏内输入 ftp 地址(由监考老师),出现登录 窗口。 第二步:用户名为参赛选手本人的考试号,输入密码。 第三步:登录后,将本人编写的程序拖放(复制粘贴)到浏览器窗口。拖放过 程中会出现传送进度条,进度条结束即上传完毕(一旦发现问题请及时资讯监考 老师)。 参考答案: 1. program a1; var n,l,w:integer;
第二题 数据统计(程序文件名 a2.pas,25 分) 小林最近想研究末尾有 0 的整数的性质。小林给出任一整数 N,请你帮小林 算出这个整数末尾共有多少个连续的 0? 输入(a2.in):一行,一个整数 N(1<=N<=1000000000)。 输出(a2.out):一行统计出 N 的末尾连续 0 的个数。 样例 1: 输入:50100 输出:2 样例 2: 输入:102304 输出:0 第 3 题 购文具(程序文件名 a3.pas,25 分) “六一”儿童节“文具套装”优惠销售,三种购买方式如下: 1、现购:10 元/套,超过 2 套以为的,9 元/套,超过 10 套以外的,则 7.5 元/套; 2、网购:9 元/套,超过 10 套,全部按网购每套的价钱打 8 折;超过 5 套, 则全部按网购每套的价钱六折;
x,count:integer; i:integer; f1,f2:text; begin assign(f1,'a1.in'); assign(f2,'a1.out'); reset(f1); rewrite(f2); readln(f1,n,l,w); if l<w then l:=w; for i:=1 to n do begin readln(f1,x); if x<=l then count:=count+1; end; writeln(f2,count); close(f1); close(f2); end. 2. var a,b,c,d:longint; f1,f2:text; begin assign(f1,'a2.in'); assign(f2,'a2.out'); reset(f1); rewrite(f2); read(f1,a); repeat if a mod 10=0 then begin a:=a div 10; d:=d+1;end; until(a mod 10 <>0); writeln(f2,d); close(f1); close(f2); end. 3. program dd; var a,b:longint; c:real; f1,f2:text; begin assign(f1,'a3.in');
相关文档
最新文档