回 帖 发 新 帖 刷新版面

主题:紧急求助!!!用QB编写程序:ISBN号码是否正确

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,再求和,即0×1+6×2+……+2×9=158,然后取158 mod 11的结果4作为识别码。
你的任务是编写程序判断输入的ISBN号码中识别码是否正确,如果正确,则仅输出“Right”;如果错误,则输出你认为是正确的ISBN号码。

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

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

【输入输出样例1】
isbn.in    isbn.out
0-670-82162-4    Right

【输入输出样例2】
isbn.in    isbn.out
0-670-82162-0    0-670-82162-4

回复列表 (共4个回复)

沙发

CLS
INPUT A$:L=LEN(A$)
FOR I=1 TO 11:T$=MID$(A$,I,1)
   IF T$<>“-” THEN A=A+1:S=S+A*VAL(T$)
NEXT I
S=S MOD 11
FOR I=1 TO 10:READ C$
  IF S=I THEN 
IF LEFT$(A$,1)=C$ THEN PRINT “Right” ELSE PRINT LEFT$(A$,12)+C$
    END
END IF
NEXT I

板凳

CLS
DO
  INPUT a$
LOOP UNTIL LEN(a$) = 13
FOR i = 1 TO 11
  x$ = MID$(a$, i, 1)
  IF x$ >= "0" AND x$ <= "9" THEN
        j = j + 1
        p = p + j * VAL(x$)
  ELSE
        GOTO 1
  END IF
1 NEXT i
p = p MOD 11
x$ = MID$(a$, 13, 1)
IF p = 10 THEN a1$ = "X" ELSE a1$ = LTRIM$(STR$(p))
IF x$ = a1$ THEN PRINT "Right": END
x$ = LEFT$(a$, 12)
x$ = x$ + a1$
PRINT x$
END

3 楼

什么

4 楼

什么什么

我来回复

您尚未登录,请登录后再回复。点此登录或注册