谁对JAVA熟悉，能否把这段代码改成JAVA的呢？：）(80分)

liuyang · 2006-10-26

function dwdmjym(dwdm:string;var ReChar:Char):Boolean; const Wi: array[1..8] of string = ('3','7','9','10','5','8','4','2'); ai: array[0..35] of string = ('0','1','2','3','4','5','6','7','8','9','A',                               'B','C','D','E','F','G','H','I','J','K','L',                               'M','N','O','P','Q','R','S','T','U','V','W',                               'X','Y','Z'); bi: array[0..35] of string = ('0','1','2','3','4','5','6','7','8','9','10',                               '11','12','13','14','15','16','17','18','19','20','21',                               '22','23','24','25','26','27','28','29','30','31','32',                               '33','34','35');   function GetAi(S:Char):string;   var I:integer;   begin      Result :='';      for I:=0 to 35 do         if S=ai then         begin            Result :=bi;            Break;         end;   end; var   J,Sum,ModResult:integer;   S:string; begin   Result:=True;   Sum:=0;   for J:=1 to Length(dwdm) do      begin         S:=GetAi(dwdm[J]);         if S='' then         begin            Result :=False;            Break;         end;         Sum:=Sum+strtoint(S)*strtoint(Wi[J]);      end;   if not Result then Exit;   ModResult:=Sum mod 11;   if ModResult=1 then ReChar:='X'   else if ModResult=0 then ReChar:='0'   else begin      S :=inttostr(11-ModResult);      ReChar:=S[1];   end; end; function dwdmjy(dwdm:string):Boolean; var ReChar:Char; begin   Result :=dwdmjym(Copy(dwdm,1,8),ReChar);   if Result then      if ReChar<>dwdm[9] then Result :=False; end;

52free · 2006-10-27

不知道对不对，依胡芦画瓢 package JavaTest; public class DelphiToJava { static String[] wi = {"3","7","9","10","5","8","4","2"}; static char[] ai = {'0','1','2','3','4','5','6','7','8','9','A',       'B','C','D','E','F','G','H','I','J','K','L',       'M','N','O','P','Q','R','S','T','U','V','W',       'X','Y','Z'}; static String[] bi = {"0","1","2","3","4","5","6","7","8","9","10",                   "11","12","13","14","15","16","17","18","19","20","21",                   "22","23","24","25","26","27","28","29","30","31","32",                   "33","34","35"               };    public static String getAi(char s){         for(int i = 0; i < 35; i++){     if (ai == s){     return bi;     }};     return "";    }        public static boolean dwdmjym(String dwdm, char[] rechar){     int ModResult;     int sum = 0;     String s, h;     for(int j = 0; j < dwdm.length() - 1; j++){     s = getAi(dwdm.charAt(j));     if (s.equals("&quot){     return false;     }     else     {     sum += Integer.parseInt(s) * Integer.parseInt(wi[j]);     }     }     ModResult = sum % 11;     switch(ModResult){      case 1: rechar[0] = 'X'; break;      case 0: rechar[0] = '0'; break;      default:          h = String.valueOf(11 - ModResult);          rechar[0] = h.charAt(0);     }         return true;    }    public static boolean dwdmjy(String dwdm){     char[] rechar = new char[1];     boolean rs;     String tempdwdm = "";     for(int i = 0; i < 8; i++){     tempdwdm += dwdm.charAt(i);     }     rs = dwdmjym(tempdwdm, rechar);     if(rs){     if (rechar[0] != dwdm.charAt(8))      return false;     else      return true;     }     else     return false;            } /** * @param args */ public static void main(String[] args) { // TODO Auto-generated method stub if(dwdmjy("254444588&quot){ System.out.print(true); } else System.out.print(false); } }

liuyang · 2006-10-27

强，我下午看看，一定给分！多谢这位大侠：）

liuyang · 2006-11-01

接受答案了.

谁对JAVA熟悉，能否把这段代码改成JAVA的呢？：）(80分)

liuyang

Unregistered / Unconfirmed

52free

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

liuyang

Unregistered / Unconfirmed

Similar threads