Question

PASCAL程序的问题。

var

a:string;

b:string;

i,j,n,l,z,x,y:longint;

c:array[1..10]of integer;

begin

while not eof do

begin

readln(a);

i:=ord(a[1]);

i:=i-55;

str(i,b);

val(b[2],j);

val(b[1],l);

n:=j*9+l;

for z:=2 to 9 do

val(a[z],c[z]);

for z:=2 to 9 do

for x:=8 to 1 do

c[z]:=c[z]*x;

for z:=2 to 9 do

y:=n+c[z]+(ord(a[10]));

if y mod 10=0 then writeln('real') else writeln('fake');

end;

end.

这个程序是这个问题的http://zerojudge.tw/ShowProblem?problemid=a020

谁能帮忙看看呢？

Answer 1

帮楼主整理了一下，去掉许多不必要的变量。
另外，LZ的错误在于没看清那个字母表，并不是按顺序的，
还有首字母有小写的情况。

var a:string;
c,i,z:longint;

begin

while not eof do
begin
readln(a);
a[1]:=upcase(a[1]); //把小写转为大写
i:=ord(a[1]);
case a[1] of
'A'..'H':i:=i-55;
'I':i:=34;
'J'..'N':i:=i-56;
'O':i:=35;
'P'..'V':i:=i-57;
'W':i:=32;
'X':i:=30;
'Y':i:=31;
'Z':i:=33;
end;
i:=(i mod 10)*9+(i div 10);
for z:=2 to 9 do
begin
val(a[z],c);
i:=i+c*(9-(z-1));
end;
val(a[10],c);
i:=i+c;
if i mod 10=0 then writeln('real') else writeln('fake');
end;

end.

Answer 2

什么意思啊???

Answer 3

LZ想问什么？

Answer 4

格式不便阅读啊