pascal编程问题题目描述每一本正式出版的图书都有一个ISBN号码与之对应,ISBN码包括9位数字、1位识别码和3位分
来源:学生作业帮 编辑:大师作文网作业帮 分类:综合作业 时间:2024/09/20 18:43:27
pascal编程问题
题目描述每一本正式出版的图书都有一个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,再求和,即0×1+6×2+……+2×9=158,然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确,如果正确,则仅输出“Right”;如果错误,则输出你认为是正确的ISBN号码。
输入格式输入文件isbn.in只有一行,是一个字符序列,表示一本书的ISBN号码(保证输入符合ISBN号码的格式要求)。输出格式输出文件isbn.out共一行,假如输入的ISBN号码的识别码正确,那么输出“Right”,否则,按照规定的格式,输出正确的ISBN号码(包括分隔符“-”)。样例输入 【输入样例1】
0-670-82162-4
【输入样例2】
0-670-82162-0样例输出【输出样例1】
Right
【输出样例2】
0-670-82162-4
题目描述每一本正式出版的图书都有一个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,再求和,即0×1+6×2+……+2×9=158,然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确,如果正确,则仅输出“Right”;如果错误,则输出你认为是正确的ISBN号码。
输入格式输入文件isbn.in只有一行,是一个字符序列,表示一本书的ISBN号码(保证输入符合ISBN号码的格式要求)。输出格式输出文件isbn.out共一行,假如输入的ISBN号码的识别码正确,那么输出“Right”,否则,按照规定的格式,输出正确的ISBN号码(包括分隔符“-”)。样例输入 【输入样例1】
0-670-82162-4
【输入样例2】
0-670-82162-0样例输出【输出样例1】
Right
【输出样例2】
0-670-82162-4
var s:string;
i,j,n,m,k,l,t:longint;
v:char;
begin
readln(s);
delete(s,2,1);
delete(s,5,1);
delete(s,10,1);
for i:=1 to 9 do begin
t:=(ord(s[i])-48)*i+t;
end;
case t mod 11 of
10:v:='X';
else begin
v:=chr((t mod 11)+48);
end;
end;
if s[10]=v then writeln('Right')
else writeln(s[1],'-',s[2],s[3],s[4],'-',s[5],s[6],s[7],s[8],s[9],'-',v);
end.
包你过
i,j,n,m,k,l,t:longint;
v:char;
begin
readln(s);
delete(s,2,1);
delete(s,5,1);
delete(s,10,1);
for i:=1 to 9 do begin
t:=(ord(s[i])-48)*i+t;
end;
case t mod 11 of
10:v:='X';
else begin
v:=chr((t mod 11)+48);
end;
end;
if s[10]=v then writeln('Right')
else writeln(s[1],'-',s[2],s[3],s[4],'-',s[5],s[6],s[7],s[8],s[9],'-',v);
end.
包你过
pascal编程问题题目描述每一本正式出版的图书都有一个ISBN号码与之对应,ISBN码包括9位数字、1位识别码和3位分
isbn中间9位是什么意思?
为了方便处理日益繁多的图书,每一本图书都有一个唯一的表示代码——()(ISBN).
每一本图书都有一个唯一的标识代码——国际标准书号[ISBN].请你通过查资料,了解这方面的知识.
ISBN是由多少位数字组成,分别是什么?
神秘号码的数字有多少位?
编程题目:一个八位数乘以9之后,得到的新数每一位都相同, 编程求出所有这样的八位数?
请问护照号码有9位都是数字的么
关于图书ISBN编码的问题~
车牌号码的每一位的含义
关于图书的ISBN号,有怎样的编排规则,或者说随意给出一个ISBN号,就能知道这个号码是否符合规则,或者说能从这个号码中
pascal高精度拆分整数 【问题描述】 输入一个正整数N(不超过一百位),如果N是偶数,则拆分N的各个数字相