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

Нужно перевести с pascal на java

22.05.2017, 19:38. Показов 678. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите, знающие люди. Нужно сделать задание на java, нашёл только сделанное на паскале.

http://el-prog.narod.ru/pascal43.html

Это ссылка где сделано и с объяснениями. Может кому не составит труда сделать это для java. Буду благодарен
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
22.05.2017, 19:38
Ответы с готовыми решениями:

Народ, нужно перевести с Pascal на Java
uses crt; const nmax=22; animals: array of string= ('тигр','панда','обезьяна','собака','карп', ...

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

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

4
3 / 3 / 0
Регистрация: 26.09.2014
Сообщений: 84
22.05.2017, 22:30
А самому сделать не вариант?) задача же простая
split-ануть и проверить, к примеру. пару строк кода
0
 Аватар для lignium
4 / 4 / 3
Регистрация: 17.11.2015
Сообщений: 57
22.05.2017, 23:26
Возможно решение не самое удачное, но свою задачу выполняет:
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
private static final int getFirstDigit(String number) {
    return Integer.parseInt(number.substring(0, 1));
}
 
private static final int getLastDigit(String number) {
    return Integer.parseInt(number.substring(number.length() - 1));
}
 
public static final void main(String[] arguments) {
    try (Scanner scanner = new Scanner(System.in)) {
        String number = scanner.nextLine();
        
        if (number.equals("0")) {
            System.out.println("Вы не ввели ни одного числа!");
            
            return; // Выход
        }
        
        int lastDigit = getLastDigit(number);
        int firstDigit;
        
        while (true) {
            number = scanner.nextLine();
            
            if (number.equals("0")) {
                break;
            }
            
            firstDigit = getFirstDigit(number);
            
            if (firstDigit == lastDigit) {
                lastDigit = getLastDigit(number);
            } else {
                System.out.println("Число не начинается цифрой которой заканчивается предыдущее число!");
                System.out.println("Принудительная остановка...");
                
                return; // Выход
            }
        }
        
        System.out.println("Введенные числа соответствуют условию задачи. :)");
    }
}
0
0 / 0 / 0
Регистрация: 22.05.2017
Сообщений: 2
23.05.2017, 21:14  [ТС]
ругается, что не так? подскажите.
https://www.cyberforum.ru/atta... 1495563156
Миниатюры
Нужно перевести с pascal на java  
0
 Аватар для lignium
4 / 4 / 3
Регистрация: 17.11.2015
Сообщений: 57
25.05.2017, 01:46
Эти методы должны находится внутри главного класса программы. Вам не мешало бы изучить хотя-бы основы этого языка

Добавлено через 4 минуты
Полный код:
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
package com.company;
 
import java.util.Scanner;
 
public final class Main {
    private static final int getFirstDigit(String number) {
        return Integer.parseInt(number.substring(0, 1));
    }
    
    private static final int getLastDigit(String number) {
        return Integer.parseInt(number.substring(number.length() - 1));
    }
    
    public static final void main(String[] arguments) {
        try (Scanner scanner = new Scanner(System.in)) {
            String number = scanner.nextLine();
            
            if (number.equals("0")) {
                System.out.println("Вы не ввели ни одного числа!");
                
                return; // Выход
            }
            
            int lastDigit = getLastDigit(number);
            int firstDigit;
            
            while (true) {
                number = scanner.nextLine();
                
                if (number.equals("0")) {
                    break;
                }
                
                firstDigit = getFirstDigit(number);
                
                if (firstDigit == lastDigit) {
                    lastDigit = getLastDigit(number);
                } else {
                    System.out.println("Число не начинается цифрой которой заканчивается предыдущее число!");
                    System.out.println("Принудительная остановка...");
                    
                    return; // Выход
                }
            }
            
            System.out.println("Введенные числа соответствуют условию задачи. :)");
        }
    }
}
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
25.05.2017, 01:46
Помогаю со студенческими работами здесь

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program graphics; uses graph; var...

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

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f типа reals, type = file of...

Перевести с Pascal на Java
Помогите пожалуста перевести с Pascal на Java: uses crt; const nmax=20; var a,b,c:array of integer; n,i,j:byte; begin ...

перевести из java в pascal
def crystalSquaresatX(m,x): if m >= 1: power = 5 ** (m-1) location = x // power if location == 0 or...


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
http://iceja.net/ математические сервисы
iceja 20.01.2026
Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru