파스칼 문자열을 방정식으로 사용하는 방법

Question

약간의 문제가 있습니다. 11 자리 숫자를 포함하는 코드를 사용자에게 묻는 프로그램을 작성했습니다. 문자열로 정의했지만 지금은이 코드의 모든 숫자를 개별적으로 사용하고 방정식을 만들고 싶습니다. 예를 들어

코드는 내가 방정식 할 필요가 37605030299 경우 :

(1*3 + 2*7 + 3*6 + 4*0 + 5*5 + 6*0 + 7*3 + 8*0 + 9*2 + 1*9)/11 

을하고 MOD의 의미를 알아보세요.

이것은 ISBN 체크 숫자에 대한 계산입니다.

Answer 1

루프를 대신 사용하십시오. (난 단지 총 가치를 보여주는거야 및 숫자 계산을 확인 -. 당신은 UserISBN 직접라는 이름의 변수로 먼저 사용자의 입력을받을 필요)

function AddCheckDigit(const UserISBN: string): string;  
var 
    i, Sum: Integer; 
    CheckDigit: Integer; 
    LastCharValue: string; 
begin 
    Assert(Length(UserISBN) = 10, 'Invalid ISBN number.'); 
    Sum := 0; 
    for i := 1 to 10 do 
    Sum := Sum + (Ord(UserISBN[i]) * i); 

    { Calculate the check digit } 
    CheckDigit := 11 - (Sum mod 11); 

    { Determine check digit character value } 
    if CheckDigit = 10 then 
    LastCharValue := 'X' 
    else 
    LastCharValue := IntToStr(CheckDigit); 

    { Add to string for full ISBN Number } 
    Result := UserISBN + LastCharValue; 
end;