全国站

热门城市 | 全国 北京 上海 广东

华北地区 | 北京 天津 河北 山西 内蒙古

东北地区 | 辽宁 吉林 黑龙江

华东地区 | 上海 江苏 浙江 安徽 福建 江西 山东

华中地区 | 河南 湖北 湖南

西南地区 | 重庆 四川 贵州 云南 西藏

西北地区 | 陕西 甘肃 青海 宁夏 新疆

华南地区 | 广东 广西 海南

资    源
  • 资    源
当前位置:查字典高考网>高中频道>信息学联赛知识>信息学联赛知识:ISBN号码

信息学联赛知识:ISBN号码

来自:查字典高考网 2009-11-12

1.ISBN号码

(isbn.pas/c/cpp)

【问题描述】

每一本正式出版的图书都有一个ISBN号码与之对应,ISBN码包括9位数字、1位识别码和3位分隔符,其规定格式如x-xxx-xxxxx-x,其中符号-是分隔符(键盘上的减号),最后一位是识别码,例如0-670-82162-4就是一个标准的ISBN码。ISBN码的首位数字表示书籍的出版语言,例如0代表英语;第一个分隔符-之后的三位数字代表出版社,例如670代表维京出版社;第二个分隔之后的五位数字代表该书在该出版社的编号;最后一位数字为识别码。

识别码的计算方法如下:

首位数字乘以1加上次位数字乘以2以此类推,用所得的结果mod 11,所得的余数即为识别码,如果余数为10,则识别码为大写字母X。例如ISBN号码0-670-82162-4中的识别码4是这样得到的:对067082162这9个数字,从左到右,分别乘以1,2,,9,再求和,即01+62++29=158,然后取158 mod 11的结果4作为识别码。

你的任务是编写程序判断输入的ISBN号码中识别码是否正确,如果正确,则仅输出Right;如果错误,则输出你认为是正确的ISBN号码。

【输入】

输入文件isbn.in只有一行,是一个字符序列,表示一本书的ISBN号码(保证输入符合ISBN号码的格式要求)。

【输出】

输出文件isbn.in共一行,假如输入的ISBN号码的识别码正确,那么输出Right,否则,按照规定的格式,输出正确的ISBN号码(包括分隔符-)。

【输入输出样例1】

Isbn.inisbn.out

0-670-82162-4Right

【输入输出样例2】

isbn.inisbn.out

0-670-82162-00-670-82162-4

【试题分析】

首先将ISBN串前9个数字分别转换成整型数并储存在数组里,因为这9个数字从左到右分别乘以1,2,,9的和的最大值小于32767,所以使用整型变量储存。

按试题要求计算识别码,并与ISBN号码中识别码做比较,如果正确,输出Right;如果错误,则输出正确的ISBN号码。

【参考程序】

program isbn;

var

i,j:integer;

s:string;

a:array[1..9] of integer;

l:char;

procedure input;{输入过程}

var

f:text;

begin

assign(f,'isbn.in');

reset(f);

read(f,s);{将ISBN码读入字符串s中}

close(f);

end;

procedure output;{输出过程}

var

f:text;

begin

assign(f,'isbn.out');

rewrite(f);

if s[13]=l then

write(f,'Right'){如果识别码正确则输出Right}

else

begin{如果不正确则输出正确的ISBN码}

for i:=1 to 12 do

write(f,s[i]);

write(f,l);

end;

close(f);

end;

procedure main;{主过程}

begin

j:=0;

for i:=1 to 11 do{将前九个数转换成整型并存入a数组}

if s[i]'-' then

begin

inc(j);

if s[i]='0' then

a[j]:=0

else

a[j]:= ord(s[i])-48;

end;

j:=0;

for i:=1 to 9 do

j:=a[i]*i+j;

j:=j mod 11;{计算识别码}

if j=10 then

l:='X'{处理结果为10}

else

if j=0 then

l:='0'

else

l:= chr(j+48);

end;

begin

input;

main;

output;

end.

2.排座椅

(seat.pas/c/cpp)

【问题描述】

上课的时候总有一些同学和前后左右的人交头接耳,这是令小学班主任十分头疼的一件事情。不过,班主任小雪发现了一些有趣的现象,当同学们的座次确定下来之后,只有有限的D对同学上课时会交头耳。同学们在教室中坐成了M行N列,坐在第i行第j列的同学的位置是(i,j),为了方便同学们进出,在教室中设置了K条横向的通道,L条纵向的通道。于是,聪明的小雪想到了一个办法,或许可以减少上课时学生交头接耳的问题:她打算重新摆放桌椅,改变同学们桌椅间通道的位置,困为如果一条通道隔开了两个会交头接耳的同学,那么他们就不会交头接耳了。

请你帮忙给小雪编写一个程序,给出最好的通道划分方案。在该方案下,上课时交头接耳的学生的对数最少。

【输入】

输入文件seat.in的第一行,有5个用空格隔开的整数,分别是M,N,K,L,D(2﹤=N,M﹤=1000,0﹤=K﹤M,0﹤=L﹤N,D﹤=2000)。

接下来D行,每行有4个用空格隔开的整数。第i行的4个整数Xi,Yi,Pi,Qi,表示坐在位置(Xi,Yi)与(Pi,Qi)的两个同学会交头接耳(输入保证他们前后相邻或者左右相邻)。

输入数据保证最优方案的唯一性。

【输出】

输出文件seat.out共两行。

第一行包含K个整数,a1 a2 ak,表示第a1行和第a1+1行之间、第a2行和a2+1行之间、、第ak行和第ak+1行之间要开展通道,其中ai﹤ ai+1,每两个整数之间用空格隔开(行尾没有空格)。

第二行包含L个整数,b1 b2bl,表示第b1列和b1+1列之间、第b2列和b2+1列之间、、第bl列和第bl +1列之间要开辟通道,其中bi﹤bi+1,每两个整数之间用空格隔开(行尾没有空格)。

【输入输出样例】

seat.inseat.out

4 5 1 2 3

4 2 4 3

2 3 3 3

2 5 2 42

2 4

【输入输出样例解释】

┌─┬─╂─┬─╂─┐

4 │ │* ┃* │ ┃ │

├─┼─╂─┼─╂─┤

3 │ │ ┃※│ ┃ │

━┿━┿━╋━┿━╋━┿

2 │ │ ┃※│+ ┃+ │

├─┼─╂─┼─╂─┤

1 │ │ ┃ │ ┃ │

└─┴─╂─┴─╂─┘

1 2 ┃3 4 ┃5

【试题分析】

先将每对交头接耳的同学位置(Xi,Yi)与(Pi,Qi)分别读入X、Y、P、Q四个一维数组中,再找出需设通道(隔开交头接耳的学生)的位置,横向通道存入a数组,竖向通道存入b数组,数组的角标表示通道位置,数组内储存能隔开交头接耳学生的对数。

从a、b数组中找出能隔开交头接耳的学生对数最多的通道,分别存入aa、bb数组,排序后输出。

【参考程序】

program seat;

type

arr=array[1..999] of integer;

var

m,n,k,l,d,i:integer;

x,y,p,q:array[1..2000] of integer;

a,b,aa,bb:arr;

procedure input; {输入过程}

var

f:text;

begin

assign(f,'seat.in');

reset(f);

readln(f,m,n,k,l,d);

for i:=1 to d do

readln(f,x[i],y[i],p[i],q[i]);{读入会交头接耳学生的位置}

close(f);

end;

procedure output;{输出过程}

var

f:text;

begin

assign(f,'seat.out');

rewrite(f);

for i:=1 to k do

begin

write(f,aa[i]);

if ik then write(f,' ');{防止行尾有空格}

end;

writeln(f);

for i:=1 to l do

begin

write(f,bb[i]);

if il then write(f,' ');

end;

close(f);

end;

procedure td(a:arr;k,m:integer;var aa:arr);{ 通道划分过程}

var

j,u,i,t:integer;

begin

j:=0;

while jk do{找出能隔开交头接耳的学生对数最多的通道}

begin

u:=-1;

for i:=1 to m-1 do

if a[i]u then

begin

u:=a[i];

t:=i;

end;

a[t]:=-1;

inc(j);

aa[j]:=t;

end;

for i:=1 to k-1 do{排序}

begin

u:=i;

for j:=i+1 to k do

if aa[j]aa[u] then u:=j;

t:=aa[i];aa[i]:=aa[u];aa[u]:=t;

end;

end;

procedure main; {主过程}

var

u,t,r,o:integer;

begin

for i:=1 to d do{找出在何处需设通道隔开交头接耳的学生}

if y[i]=q[i] then

if x[i]p[i] then inc(a[x[i]]) else inc(a[p[i]])

else if y[i]q[i] then inc(b[y[i]]) else inc(b[q[i]]);

td(a,k,m,aa);

td(b,l,n,bb);

end;

begin

input;

main;

output;

end.

【信息学联赛知识:ISBN号码】相关文章:

全国高中数学联合竞赛简介

信息学联赛知识:动态规划的状态表示(二)

2007全国高中数学联赛江苏赛区初赛参考解答

2005年全国高中数学联赛考点诠释(二)

高中数学竞赛基本知识集锦(一)

信息学联赛知识:基本程序题集解题报告

2007年江苏省高中数学联赛初赛试题参考答案及评分标准

高中数学联赛培训讲义(二)

2006年全国高中数学联合竞赛浙江省预赛试卷

2007年高中数学联赛四川赛区初赛试题参考答案及评分标准

[标签:竞赛联赛,数学联赛]

网友关注

山西高考生今起填报第一批本科志愿

陕西:2020年高考志愿填报7月24日起开始 —查字典高考网

教育部考试中心命题专家解析2020年高考数学试题

澳门科技大学2020年线上招生讲解会

2020年高考语文试卷解析汇总

专家解读:11道高考作文题里到底藏了什么文章

2020年甘肃高考满分作文:同呼吸,共命运

14年前有次高考延期当时如何使用备用卷

重庆:2020年普通高校招生艺术提前批开始投档!

教育部考试中心命题专家解析2020年高考语文试题

甘肃:18所军队院校在我省招生306名

2020年浙江高考满分作文:人生不惧落差,笑对错位

中南大学2020年强基计划入围分数线

高考作文:历史材料如何写出彩?

2020年高考全国I卷数学试题分析

安徽:歙县高考语文、数学科目考试延期 —查字典高考网

四川大学2020年强基计划入围分数线

书春秋“管鲍之交” 展为国为民情怀

湖南:进一步调整高考加分政策 —查字典高考网

2020年高考北京数学试卷解析

2020年高考数学试卷解析汇总

甘肃:2020年生源地信用助学贷款受理工作启动 受理期限适当延长至10月30日

2020年青海高考满分作文:美美与共,天下大同

复旦大学:2020年高水平艺术团、运动队选拔测试的通知

2020高考语文试题评析

2020北京高考数学试卷权威解析

2020年天津高考满分作文范文:塑中国面孔,铸美丽华夏

学而思培优升级高考研究中心,六大举措为高考生保驾护航

高考历史材料作文如何写出彩?

2020年上海高考语文试卷点评

网友关注视频

外国数学老师挑战中国高考题,一顿“凶猛操作”下来,被虐惨!

【姜浩张超画室】

看懂图片,你也会做高考地理题,解析2019年高考文综地理4

2019高考语文试卷解析

这!就是专业 第36集 河北经贸大学——数学专业

张雪峰高考志愿填报指南 第28集 高考志愿分析,材料科学与工程专业,就业很一般,建议慎重选择

学渣儿子高考,英语选择题全选B!老师通报成绩的那一刻父亲懵了

初二辍学,3次高考落榜,如今却成为最成功的音乐人之一

高级中学高考试卷分析专题教研会

2019高考语文全国2卷小说阅读解析

这!就是专业 第43集 河北经贸大学—计算机科学与技术专业

他高考作文仅得6分,总分428分,被985高校录取,却被导师拒绝!

高中数学 107 高考如何秒杀数列

男孩考上理想大学,却因为网瘾休学在家,高中班主任上门劝导

招办面对面 第76集 阜阳师范学院信息工程学院

一站到底:高考语文老师上台,穿长衫说Rap,全场笑翻了!

高考同学看过来,难度系数三颗星的奥数1

励志歌曲《阳光总在风雨后》送给高考的莘莘学子,祝金榜题名!

高级中学高考试卷分析专题教研评比活动

美术联考用纸上海考试模拟试卷纸高考统考纸 4k水粉纸素描纸 速写纸卡纸美术模拟测试试卷纸 美术考试专用纸

最新高考数学全国2卷第12题视频解读

高考英语作文分析2

这!就是专业 第18集 中国科学技术大学

2019 广西:帅气学霸高考730分 数学英语满分!

沈阳音乐学院郎亦农教授的女高音高考曲目解析课程 第1集 沈阳音乐学院郎亦农为你讲解女高音高考曲目

组合名师余老师在线讲解2019高考数学全国3卷理科16题

爆笑班主任 第一季 第221集 高考结束学生有多疯狂?山东王老师疯狂吐槽

2019高考数学全国2卷理科第16题视频讲解及答案

创艺第二届:2019届高考录取表彰大会暨“核桃音乐节”合影——你只管努力,剩下的交给创艺

这!就是专业 第20集 长沙理工大学—数据科学专业