С Pascal на JavaSE

@SERJ2006 · Регистрация: 22.01.2012

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

ребят помогите написать эту программу, которая на pascal на язык JavaSE

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
function p_10(x: Integer) : Boolean;
var prev, T: Integer;
begin
   prev := x;
   T := 0;
   while x <> 0 do begin
      T := T * 10 + (x mod 10);
      x := x div 10;
   end;
   p_10 := (prev = T)
end;
 
const
   digit = '01';
function p_2(x : Integer) : Boolean;
var
   s, s_rev : string;
   ch : char;
begin
   s := ''; s_rev := '';
   repeat
      ch := digit[(x mod 2) + 1];
      x := x div 2;
      s := ch + s;
      s_rev := s_rev + ch;
   until x = 0;
   p_2 := (s = s_rev);
end;
 
var
   i : integer;
   
begin
   for i := 1 to 999999 do
   begin
      if p_10(i) and p_2(i) then writeln(i);
   end;
end.

@mutagen · 25.01.2012, 13:24

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
public class EtaProga {
 
    public static void main(String[] args) {
        for (int i = 1; i < 999999; i++) {
            if (p_10(i) && p_2(i)) {
                System.out.println(i);
            }
        }
 
    }
 
    public static boolean p_10(int x) {
        return p(x, 10);
    }
 
    public static boolean p_2(int x) {
        return p(x, 2);
    }
 
    public static boolean p(int x, int divider) {
        int prev = x, t = 0;
        while (x != 0) {
            t = t * divider + (x % divider);
            x = x / divider;
        }
        return (prev == t);
    }
}

@SERJ2006 · 25.01.2012, 16:33 **[ТС]**

а вы бы не могли объяснить всю программу, кроме метода main

@mutagen · 25.01.2012, 16:39

там нечего объяснять, все наглядно, есть метод p который проверяет делится ли число на divider
а методы p_2 и p_10 вызывают p с аргументом divider 2 и 10

@SERJ2006 · 25.01.2012, 17:04 **[ТС]**

а что такое divifer?
и объясните пожалуйста

Java
1
2
3
4
5
6
7
8
public static boolean p(int x, int divider) {
                int prev = x, t = 0;//x- это что за переменная?
                while (x != 0) {
                        t = t * divider + (x % divider);//это запись правой цифры в левую?
                        x = x / divider;//удаление правой цифры?
                }
                return (prev == t);//что возвращает??
        }

И я что то не пойму почему у переменной p указаны в скобке то 10, то 2?

Java
1
2
3
4
5
6
  public static boolean p_10(int x) {
                return p(x, 10);
        }
 
        public static boolean p_2(int x) {
                return p(x, 2);

@mutagen · 25.01.2012, 18:50

divider - это делитель

Сообщение от SERJ2006

И я что то не пойму почему у переменной p указаны в скобке то 10, то 2?

p - это какбы "функция" по паскалевски, а по явовски "метод", а вовсе не переменная.
10 и 2 это аргументы функции, а p_2 и p_10 это функции обёртки, можно и без них

Java
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
public class EtaProga {
 
        public static void main(String[] args) {
                for (int i = 1; i < 999999; i++) {
                        if (p(i,10) && p(i,2)) {
                                System.out.println(i);
                        }
                }
 
        }
 
         public static boolean p(int x, int divider) {
                int prev = x; // в х подставляется i из main
                int t = 0;
                while (x != 0) {
                        t = t * divider + (x % divider); // сюда  делитель * на t + остаток от деления (как mod)
                        x = x / divider; // в х попадёт целая часть от деления
                }
                return (prev == t); // это аналог паскаля =
        }
}

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .

@SERJ2006 9 / 9 / 3 Регистрация: 22.01.2012 Сообщений: 122
	25.01.2012, 16:33 [ТС]
	а вы бы не могли объяснить всю программу, кроме метода main 0

@mutagen 2587 / 2260 / 257 Регистрация: 14.09.2011 Сообщений: 5,185 Записей в блоге: 18
	25.01.2012, 16:39
	там нечего объяснять, все наглядно, есть метод p который проверяет делится ли число на divider а методы p_2 и p_10 вызывают p с аргументом divider 2 и 10 1