Форум программистов, компьютерный форум, киберфорум
Java для начинающих
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
0 / 0 / 0
Регистрация: 14.10.2020
Сообщений: 4

Перевести с паскаля на java

14.10.2020, 18:24. Показов 309. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Пожалуйста помоги с паскаля перевести на джаву

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
var
    a: Array[Byte] Of ShortInt;
    i, j, count, n: Byte;
    temp: ShortInt;
begin
    repeat
        Write('n=');
        ReadLn(n);
    until (n > 0);
    Randomize();
    Write('Original array:');
    for i := 0 to n - 1 do
    begin
        a[i] := Random(11) - 5;
        Write(a[i]:4);
    end;
    i := 0; count := 0;
    repeat
        if (a[i] = 0)
        then
        begin
            Inc(count);
            for j := i to n - 1 - count do
            begin
                temp := a[j];
                a[j] := a[j + 1];
                a[j + 1] := temp;
            end;
        end
        else
            Inc(i);
    until (i + count >= n);
    WriteLn; Write('Modified array:');
    for i := 0 to n - 1 do
        Write(a[i]:4);
end.
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
14.10.2020, 18:24
Ответы с готовыми решениями:

Перевести из Паскаля в java
ребята, помогите. паскаль знаю только на крайне базовом уровне. может кто сможет помочь перевести код задачи на Паскале в Java? program...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of integer; begin c:=1; ...

Перевести из Паскаля в с++
program array13; var arr: array of integer; N, i: integer; begin write('Введите N(нечётное): '); readln(N); ...

1
Почетный модератор
 Аватар для ildwine
6201 / 2963 / 1300
Регистрация: 04.03.2013
Сообщений: 5,797
Записей в блоге: 1
14.10.2020, 19:18
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
package Task002;
 
import java.io.BufferedReader;
import java.io.IOException;
import java.io.InputStreamReader;
import java.util.Random;
 
public class Task {
    public static void main(String[] args) throws IOException {
        int[] a;
        int i, j, count, n, temp;
        BufferedReader br = new BufferedReader(new InputStreamReader(System.in));
        Random random = new Random();
        do {
            System.out.println("n = ");
            n = Integer.parseInt(br.readLine());
        }
        while (n <= 0);
        a = new int[n];
        System.out.print("Original array:");
        for (i = 0; i < n; i++) {
            a[i] = random.nextInt(11) - 5;
            System.out.print(a[i] + " ");
        }
        i = 0; count = 0;
        do {
            if (a[i] == 0) {
                count++;
                for (j = i; j < n-count; j++) {
                    temp = a[j];
                    a[j] = a[j+1];
                    a[j+1] = temp;
                }
            }
            else i++;
        }
        while (i + count < n);
        System.out.print("\nModified array:");
        for (i = 0; i < n; i++)
            System.out.print(a[i] + " ");
    }
}
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
14.10.2020, 19:18
Помогаю со студенческими работами здесь

Перевести с Паскаля на С
uses crt; var a:array of integer; temp,i:integer; begin clrscr; randomize; writeln; for i:=1 to 20 do begin ...

Перевести с паскаля в си
вот код: var n,m,min:integer; begin min:=10; readln(n); repeat m:= n mod 10; n:=n div 10; if min&gt;m then min:=m;

Перевести с Паскаля на Си
uses crt; var j,k,n,m,s1,s2:integer; begin clrscr; s1:=1; s2:=2; write(&quot;Введите m,n:&quot;; readln(m,n); for j:=1 to...

Перевести с паскаля на с#
program array35; uses crt; var a:array of integer; i,k,k1,k2,n:integer; procedure mas; begin for i:=1 to n do ...

Перевести с паскаля на с#
Помогите перевести program array35; uses crt; var a:array of integer; i,k,k1,k2,n:integer; procedure mas; begin ...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
делаю науч статью по влиянию грибов на сукцессию
anaschu 13.03.2026
прикрепляю статью
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++
8Observer8 10.03.2026
Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:
Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE
8Observer8 10.03.2026
Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки
Neotwalker 08.03.2026
Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .
Модульная разработка через nuget packages
DevAlt 07.03.2026
Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F#
DevAlt 06.03.2026
В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование
8Observer8 05.03.2026
Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D
8Observer8 04.03.2026
Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru