С Новым годом! Форум программистов, компьютерный форум, киберфорум
Java SE (J2SE)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11

Перевести маленький код из Pascal на Java

13.04.2020, 15:48. Показов 1636. Ответов 12
Метки нет (Все метки)

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

Выручите пожалуйста, необходимо перевести небольшой код из Pascal на Java, очень необходимо. Буду премного благодарен!
(Если это поможет, суть задачи: Имеется 2*N чисел. Известно что их можно разбить на пары таким образом, что произведения чисел в парах равны)


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
39
40
41
uses crt;
 
const maxn = 50;
 
var a: array [1..2*maxn] of integer;
    n, i, j, tmp, p: integer;
    pervyiPlus: integer;
 
 
begin clrscr;
write('Kolichestvo chisel (chetnoe): '); readln(n);
if n mod 2 <> 0 then
 begin
 writeln('Vy vveli nechetnoe chislo!');
 readkey;
 exit;
 end;
 
write('Vvodite chisla cherez probel: ');
for i := 1 to n do
 read(a[i]);
readln; writeln;
 
for i := n-1 downto 1 do
 for j := 1 to i do
  if a[j] > a[j+1] then
   begin
   tmp := a[j];
   a[j] := a[j+1];
   a[j+1] := tmp;
   end;
 
pervyiPlus := 1;
while a[pervyiPlus] < 0 do inc(pervyiPlus);
 
writeln('Pary:');
for i := 1 to (pervyiPlus-1) div 2 do
 writeln(a[i]:5,a[pervyiPlus-i]:5);
for i := 0 to (n-pervyiPlus) div 2 do
 writeln(a[pervyiPlus+i]:5,a[n-i]:5);
readkey; end.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
13.04.2020, 15:48
Ответы с готовыми решениями:

Перевести код с Java на Pascal
public static void main(String args) { int value = 1234; String valueToString = String.valueOf(value); int number1 =...

Перевести код java на pascal
Нужно перевести код на pascal import java.io.BufferedReader; import java.io.File; import java.io.FileNotFoundException; import...

Нужно перевести код из Java в Pascal:
Нужно перевести код из Java в Pascal: Import java.util.*; class Main {public static void main(Stringargs) {Scanner sc=new...

12
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
16.04.2020, 14:54  [ТС]
Up(
0
 Аватар для Aviz__
2736 / 2046 / 506
Регистрация: 17.02.2014
Сообщений: 9,462
17.04.2020, 12:33
BMazurok, такие числа 2 1 3 6? и пары [2,3] и [3,2] равны?
0
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
17.04.2020, 13:08  [ТС]
По идее да
0
 Аватар для Aviz__
2736 / 2046 / 506
Регистрация: 17.02.2014
Сообщений: 9,462
17.04.2020, 13:21
Цитата Сообщение от BMazurok Посмотреть сообщение
да
что конкретно, "да"? или ты не знаешь((
0
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
17.04.2020, 19:27  [ТС]
Скажу как есть: не смог понять задачу, поэтому не знаю как реализовать. Нужно срочно здать преподу
0
 Аватар для StepFather322
365 / 252 / 113
Регистрация: 07.10.2017
Сообщений: 1,330
18.04.2020, 15:53
BMazurok, так а чего не спросишь у препода, что не понял? Логично вроде
0
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
18.04.2020, 18:00  [ТС]
Препод на лекциях даже не появлялся и ждёт, что мы сами разберёмся. Однако, мне по душе дизайн, а не программирование, поэтому мне это не идёт. А сдать нужно. Прекрасно понимаю, что никому не интересны чужие проблемы. Просто ожидаю, что найдётся добрый человек, который хотя бы примерное решение подкинет за большое человеческое спасибо
0
 Аватар для Goongala
1022 / 562 / 185
Регистрация: 18.08.2013
Сообщений: 2,027
Записей в блоге: 2
18.04.2020, 19:31
Лучший ответ Сообщение было отмечено BMazurok как решение

Решение

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
57
58
59
60
61
62
63
64
65
66
67
import java.util.Scanner;
 
public class Test {
    public static void main(String[] args) {
        int[] nums = readInput();
 
       // Arrays.sort(nums);
        sortArray(nums);
 
        int middle = nums.length / 2;
        for (int i = 0; i < middle; i++) {
            if (i > 0) {
                System.out.print(", ");
            }
 
            System.out.printf("[%d:%d]", nums[i], nums[nums.length - i - 1]);
        }
        System.out.println();
    }
 
    private static void sortArray(int[] array) {
        int temp;
        boolean done = false;
        int iterations = array.length;
 
        while (!done) {
            done = true;
            for (int i = 1; i < iterations; i++) {
                if (array[i] < array[i - 1]) {
                    temp = array[i];
                    array[i] = array[i - 1];
                    array[i - 1] = temp;
                    done = false;
                }
            }
            iterations--;
        }
    }
 
    private static int[] readInput() {
        int[] result;
        int size;
 
        try (Scanner in = new Scanner(System.in)) {
            boolean odd;
            do {
                System.out.print("Количество чисел: ");
                size = in.nextInt();
                odd = size % 2 != 0;
 
                if (odd) {
                    System.out.println("Количество чисел должно быть чётным");
                }
            } while (odd);
 
            result = new int[size];
 
            System.out.print("Введите числа через пробел: ");
 
            for (int i = 0; i < size; i++) {
                result[i] = in.nextInt();
            }
        }
 
        return result;
    }
}
1
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
18.04.2020, 19:50  [ТС]
Огромное вам спасибо. Очень выручили!
0
 Аватар для Aviz__
2736 / 2046 / 506
Регистрация: 17.02.2014
Сообщений: 9,462
18.04.2020, 22:21
из кодоКладовке))
в массиве, в котором известно, что все числа можно разбить на пары по произведению, но само это произведение не известно.
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
import java.util.*;
 
public class Helper {
 
    public static void main(String[] args) {
        int [] srcInts = {1,2,3,6,-3,-2};
        List<Map<String, Long>> mapList = new ArrayList<>();
        for (int i = 0; i < srcInts.length; i++) {
            Map<String, Long> map = new HashMap<>();
            for (int j = 0; j < srcInts.length; j++) {
                if (i != j) map.put("(" + srcInts[i] + ";" + srcInts[j] + ")", (long) (srcInts[i] * srcInts[j]));
            }
            mapList.add(map);
        }
        Set<Long> valIntersection = new HashSet<>(mapList.get(0).values());
        for (int i = 1; i < mapList.size(); i++) {
            valIntersection.retainAll(mapList.get(i).values());
        }
        long valAllIntersect = valIntersection.toArray(new Long[0])[0]; // результат всех пересечений (искомое произведение)
        for (Map<String, Long> tmpMap : mapList)
            for (Map.Entry<String, Long> entry : tmpMap.entrySet())
                if (valAllIntersect == entry.getValue())
                    System.out.println(entry.getKey() + " = " + entry.getValue());
    }
}
резулт:
Кликните здесь для просмотра всего текста

(1;6) = 6
(2;3) = 6
(3;2) = 6
(6;1) = 6
(-3;-2) = 6
(-2;-3) = 6
1
0 / 0 / 0
Регистрация: 27.03.2020
Сообщений: 11
19.04.2020, 11:26  [ТС]
Спасибо, по-моему начал понимать суть задачи
0
 Аватар для Aviz__
2736 / 2046 / 506
Регистрация: 17.02.2014
Сообщений: 9,462
19.04.2020, 11:39
BMazurok, ну, ты бери ручку, бумагу и пытайся нарисовать решение, прежде чем писать код...
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.04.2020, 11:39
Помогаю со студенческими работами здесь

Гайз, кто может перевести код из Pascal в Java
Очень нужна помощь в переводе Сам код const N = 3; M = 5; var arr: array of integer; i,j: byte; sum:...

Перевести маленький код Delphi 7 в php
NC := char(integer(Stable)]) xor (StartKey shr 8)); Result := Result + IntToHex(byte(NC), 2); StartKey := (integer(nc) + StartKey) *...

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться. Помогите пожалуйста перевести код из Turbo...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record x,y:integer; end; ...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of real; i,j:byte; begin ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru