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

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

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

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

Pascal
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
36
37
38
Const
     s4:array[0..15] of string[4]=('0000','0001','0010','0011','0100','0101','0110','0111','1000','1001','1010','1011','1100','1101','1110','1111');
    s5:array[0..15] of string[1]=('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F');
 
var s,h,kod,t:string;
    a:array[0..100000] of string[8];
    x:byte;
    i,j,n:longint;
    rez:string;
 
begin
writeln('Введите ваш текст:');
readln(s);
n:=0;
for i:=1 to length(s) do
 begin
  x:=ord(s[i]);
  n:=n+1;
  a[n]:='';
  while x>0 do
   begin
    a[n]:=chr(x mod 2+48)+a[n];
    x:=x div 2;
   end;
  while length(a[n])<8 do a[n]:='0'+a[n];
 end;
 n:=1;
 for i:=1 to length(s) do kod:=kod+a[i];
for i:=1 to length(kod) div 4 do
begin
t:=copy(kod,n,4);
n:=n+4;
for j:=0 to 15 do
if s4[j]=t then rez:=rez+s5[j];
end;
Writeln('Шифр: ',rez); 
 
end.

@v777779 · 16.05.2017, 11:58

Вариант программы переписан максимально близко к коду Паскаль

Java
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
public class Pascal {
 
    public static void main2(String[] args) {
        Scanner in = new Scanner(System.in);
        System.out.print("Введите Ваш текст:");
        String s = in.nextLine(); // введена строка текста
 
        String res = "";
        for (char c : s.toCharArray()) {
            res += String.format("%02X",(int)c);
        }
        System.out.println("Шифр:"+res);
    }
 
    public static void main(String[] args) {
        String[] s4 = new String[]{"0000", "0001", "0010", "0011", "0100", "0101", "0110",
                "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111"
        };
        String[] s5 = new String[]{"0", "1", "2", "3", "4", "5", "6",
                "7", "8", "9", "A", "B", "C", "D", "E", "F"
        };
        String[] a = new String[100000]; // пустой массив длина строки не может быть фиксирована
        String s = "", kod = "", t = "", rez = "";
        int x;
 
        Scanner in = new Scanner(System.in);
        System.out.print("Введите Ваш текст:");
        s = in.nextLine(); // введена строка текста
 
        for (int i = 0; i < s.length(); i++) {
            x = (int) Character.valueOf(s.charAt(i)); // получить код ASCII
            a[i] = "";  // n работает с нуля
            while (x > 0) {
                a[i] = (char) ((x % 2) + 48) + a[i];
                x = (x / 2);
            }
            while (a[i].length() < 8) {
                a[i] = "0" + a[i];
            }
        } // отработали весь массив
        kod = "";
        for (int i = 0; i < s.length(); i++) {
            kod += a[i];
        }
 
        for (int i = 0; i < kod.length(); i += 4) {
            t = kod.substring(i, i + 4);
            for (int j = 0; j < s4.length; j++) {
                if (s4[j].equals(t)) {
                    rez = rez+ s5[j];
                }
            }
        }
        System.out.println("Шифр:" + rez);
    }
}

Все тоже самое, но проще

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
public class Pascal2 {
    public static void main(String[] args) {
        Scanner in = new Scanner(System.in);
        System.out.print("Введите Ваш текст:");
        String s = in.nextLine(); // введена строка текста
 
        String res = "";
        for (char c : s.toCharArray()) {
            res += String.format("%02X",(int)c);
        }
        System.out.println("Шифр:"+res);
    }
}

@qualls · 16.05.2017, 12:05

Java
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
36
37
38
39
40
41
42
43
44
public class Main {
 
    private static final String[] s4 = {"0000", "0001", "0010", "0011", "0100", "0101", "0110", "0111", "1000", "1001", "1010", "1011", "1100", "1101", "1110", "1111"};
    private static final char[] s5 = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9', 'A', 'B', 'C', 'D', 'E', 'F'};
 
 
    public static void main(String[] args) {
        String[] a = new String[100001];
        String kod = "";
        String rez = "";
        String t;
        System.out.println("Ввведите ваш текст:");
        Scanner scanner = new Scanner(System.in);
        String s = scanner.nextLine();
        int n = 0;
        for (int i = 0; i < s.length(); i++) {
            byte x = (byte) s.charAt(i);
 
            a[n] = "";
            while (x > 0) {
                a[n] = (char) (x % 2 + 48) + a[n];
                x /= 2;
            }
            while (a[n].length() < 8) {
                a[n] = '0' + a[n];
            }
            n++;
        }
        n = 0;
        for (int i = 0; i < s.length(); i++) {
            kod = kod + a[i];
        }
        for (int i = 0; i < kod.length() / 4; i++) {
            t = kod.substring(n, n+4);
            n += 4;
            for (int j = 0; j < 15; j++) {
                if (s4[j].equals(t)) {
                    rez += s5[j];
                }
            }
        }
        System.out.println("Шифр: " + rez);
    }
}

@Иван123456 · 16.05.2017, 17:49 **[ТС]**

Огромное спасибо)

@Иван123456 · 17.05.2017, 18:14 **[ТС]**

Выдает вот такую ошибку
Exception in thread "main" java.lang.StringIndexOutOfBoundsExceptio n: String index out of range: 29
at java.lang.String.substring(String.java:1 963)
at javaapplication3.Deshifr.main(Deshifr.ja va:36)
C:\Users\Ivan\AppData\Local\NetBeans\Cac he\8.2\executor-snippets\run.xml:53: Java returned: 1
СБОРКА ЗАВЕРШЕНА СО СБОЕМ (общее время: 1 секунда)
Как исправить??

@v777779 · 17.05.2017, 18:35

Сообщение от Иван123456

Выдает вот такую ошибку
Exception in thread "main" java.lang.StringIndexOutOfBoundsExceptio n: String index out of range: 29

Означает что Вы обращаетесь к строке с индексом 29 который больше длины строки.
И так как происходит это с substring похоже есть путаница в работе с substring.
Давайте сюда проблемный файл.

@Иван123456 · 17.05.2017, 19:05 **[ТС]**

Code
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
36
37
38
39
40
41
42
43
44
45
public class Deshifr {
            public static void main(String[] args) {
     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]);
    
    }
}

@v777779 · 17.05.2017, 20:24

Class Deshifr

Кликните здесь для просмотра всего текста

Java
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
public class Deshifr {
    public static void main(String[] args) {
        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++;                        // ошибка строка работает с индекса 0
//            t = s.substring(n, n + 1);  // ошибка, дает просто символ, а нужен его hex code
            t = String.format("%02X", (byte) s.charAt(n)); // дает hexcode символа двухзначный вида 41 5A
            n++;
            for (j = 0; j < 15; j++) {
                if (t.substring(0,1).equals(m[j])) {  // первый символ hexCode
                    kod += a[j];
                }
            }
            for (j = 0; j < 15; j++) {
                if (t.substring(1, 2).equals(m[j])) { // второй символ  hexCode
                    kod += a[j];
                }
            }
        }
//        n = 1; // ошибка   строка работает с нуля
        n = 0;
        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.print(h[i]);
        }
 
    }
}

Теперь переводит строку в последовательность 0,1 без затыков.
Проверяйте.

@Иван123456 · 18.05.2017, 14:59 **[ТС]**

Не выдает ошибок, но при выводе в консоле почему то не отображаемые символы, использую NetBeans

@v777779 · 18.05.2017, 15:03

Сообщение от Иван123456

Не выдает ошибок, но при выводе в консоле почему то не отображаемые символы, использую NetBeans

Я не разбирался что у Вас там за алгоритм кодировки, судя по тому что Вы используете математические функции, это некая формула. И естественно в результате получаются байты данных, которые не будут отображаться как обычные символы.
Если Вы хотите их отображать в Binary или Hex формате надо преобразовать двоичные данные в ASCII символы 0/1 или hex.

@Иван123456 · 18.05.2017, 15:20 **[ТС]**

Суть в том что вводилась строка текста любого, потом выводилась его так сказать 16 ричная версия, и вот эта программа делала все обратно, это нужно для удобства шифрования данных с помощью разнообразных старых алгоритмов так как они не использовали русский, а в качестве примера привести надо.

@v777779 · 18.05.2017, 16:00

Предлагаю поработать с отладчиком, в нем все хорошо видно.
Если не получится, выкладывайте алгоритм, исходные и выходные данные. можно на почту temp20170516@mail.ru
Почта временная, но пару недель продержится

PS: плюсовать каждый пост не нужно, один на тему достаточно.

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@Иван123456 0 / 0 / 0 Регистрация: 30.03.2016 Сообщений: 13
	16.05.2017, 17:49 [ТС]
	Огромное спасибо) 0

@Иван123456 0 / 0 / 0 Регистрация: 30.03.2016 Сообщений: 13
	17.05.2017, 18:14 [ТС]
	Выдает вот такую ошибку Exception in thread "main" java.lang.StringIndexOutOfBoundsExceptio n: String index out of range: 29 at java.lang.String.substring(String.java:1 963) at javaapplication3.Deshifr.main(Deshifr.ja va:36) C:\Users\Ivan\AppData\Local\NetBeans\Cac he\8.2\executor-snippets\run.xml:53: Java returned: 1 СБОРКА ЗАВЕРШЕНА СО СБОЕМ (общее время: 1 секунда) Как исправить?? 0

@Иван123456 0 / 0 / 0 Регистрация: 30.03.2016 Сообщений: 13
	18.05.2017, 14:59 [ТС]
	Не выдает ошибок, но при выводе в консоле почему то не отображаемые символы, использую NetBeans 0

@Иван123456 0 / 0 / 0 Регистрация: 30.03.2016 Сообщений: 13
	18.05.2017, 15:20 [ТС]
	Суть в том что вводилась строка текста любого, потом выводилась его так сказать 16 ричная версия, и вот эта программа делала все обратно, это нужно для удобства шифрования данных с помощью разнообразных старых алгоритмов так как они не использовали русский, а в качестве примера привести надо. 0

@v777779 164 / 170 / 139 Регистрация: 28.11.2016 Сообщений: 301
	18.05.2017, 16:00
	Предлагаю поработать с отладчиком, в нем все хорошо видно. Если не получится, выкладывайте алгоритм, исходные и выходные данные. можно на почту temp20170516@mail.ru Почта временная, но пару недель продержится PS: плюсовать каждый пост не нужно, один на тему достаточно. 0

Опции темы

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

Решение