Переделать код паскаля под джаву

@Иван123456 · Регистрация: 30.03.2016

Author24 — интернет-сервис помощи студентам

Помогите пожалуйста переделать код паскаля для использования в джаве.

Pascal

Const
a:array[0..15] of string[4]=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
m:array[0..15] of string[1]=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
var
g:byte;
s,t,kod,rez:string;
h:array[1..1000000] of char;
st,d,n:integer;
i,j:longint;
p:real;
begin
writeln('¬ведите код');
readln(s);
n:=0;
for i:=1 to length(s) do
begin
n:=n+1;
t:=copy(s,n,1);
for j:=0 to 15 do
if t=m[j] then
kod:=kod+a[j];
end;
n:=1;
st:=7;
j:=1;
p:=0;
for i:=1 to length(kod) do
begin
t:=copy(kod,n,1);
g:=StrToInt(t);
p:=p+g*exp(ln(2)*st);
n:=n+1;
if st>0 then st:=st-1 else
begin
st:=7;
d:=Round(p);
h[j]:=chr(d);
p:=0;
j:=j+1;
end;
end;
for i:=1 to length(s) div 2 do write(h[i]);
end.

@Asia4444_ · 13.05.2017, 22:49

Как-то так:

Java

        String[] a = new String[]{"0000","0001","0010","0011","0100","0101","0110","0111","1000","1001","1010","1011","1100","1101","1110","1111"};
        String[] m = new String[]{"0","1","2","3","4","5","6","7","8","9","A","B","C","D","E","F"};
        byte g;
        String s,t,kod,rez;
        char[] h = new char[1000000];
        short st,d,n;
        int i,j;
        float p;
 
        Scanner scanner = new Scanner(System.in);
        System.out.println("¬ведите код");
        s = scanner.nextLine();
        n=0;
        for (i=1 ; i < s.length() ; i++) {
            n++;
            t = s.substring(n, n+1);
            for (j = 0; j < 15; j++)
                if (t.equals(m[j])) {
                    kod += a[j];
                }
        }
        n=1;
        st=7;
        j=1;
        p=0;
        for (i = 0; i < kod.length(); i++) {
            t = kod.substring(n, n+1);
            g = Byte.decode(t);
            p = (float) (p + g * Math.pow(Math.E,Math.exp(2) * st));
            n++;
            if (st > 0) st--;
            else {
                st = 7;
                d = (short) Math.round(p);
                h[j] = (char) d;
                p=0;
                j++;
            }
        }
        for (i=0; i < s.length() / 2; i++) System.out.println(h[i]);

Но это "быстрый перевод". Короче, я не разбирался, что делает код, поэтому мог ошибиться.

Но всё-равно код работать не будет, так как java использует Unicode, а Pascal ASCII. Так что придётся всю таблицу ASCII в виде массива char[] держать, как константу.

Могу доработать, если очень надо и сами доделать не пока можете...

@Иван123456 · 14.05.2017, 00:01 **[ТС]**

Наоборот мне сейчас как раз и надо чтобы она работало с юникодом, ибо тогда захватывает большее количество знаков. Огромное вам спасибо за помощь)

@Иван123456 0 / 0 / 0 Регистрация: 30.03.2016 Сообщений: 13
	14.05.2017, 00:01 [ТС]	3
	Наоборот мне сейчас как раз и надо чтобы она работало с юникодом, ибо тогда захватывает большее количество знаков. Огромное вам спасибо за помощь) 0

Переделать код паскаля под джаву

Решение