Перевести на Java

@taeas1995 · Регистрация: 19.01.2012

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

Помогите пожалуста перевести код с Pascal на Java. Очень нужно на завтра:

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
uses crt;
const n=5;
var a:array[1..n,1..n] of integer;
    i,j,k1,k3:byte;
begin
clrscr;
randomize;
writeln('Исходная матрица:');
k1:=0;k3:=0;
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(91)-45;
    if ((j>=i)and(j<=n-i+1))or((j>=n-i+1)and(j<=i)) then
     begin
      textcolor(10);
      if a[i,j]>0 then
        begin
          if(j>=i)and(j<=n-i+1)then inc(k1);
          if (j>=n-i+1)and(j<=i)then inc(k3);
        end;
     end
    else textcolor(15);
    write(a[i,j]:5);
   end;
  writeln;
 end;
writeln;  15textcolor(0);
writeln('Количество положительных в секторе 1=',k1);
writeln('Количество положительных в секторе 3=',k3);
readln
end.

Добавлено через 1 час 20 минут
только начал учить Java. выручите пожалуста.

Добавлено через 2 часа 35 минут
? : (

@Apokalypsys · 01.06.2013, 01:10

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
import java.io.IOException;
import java.util.Random;
 
public class PascalToJava {
 
    public static void main(String[] args) throws IOException {
        int n = 5;
    int a[][] = new int[n][n];
        Random r = new Random(System.currentTimeMillis());
    System.out.println("Исходная матрица: ");
    int k1 = 0, k3 = 0;
    for (int i = 0; i < n; i++) {
      for (int j = 0; j < n; j++) {
        a[i][j] = Math.abs(r.nextInt()) % 91 - 45;
        if (((j>=i) && (j<=n-i+1)) || ((j>=n-i+1) && (j<=i))) {
          if (a[i][j]>0) {
              if ((j>=i) && (j<=n-i+1)) k1++;
              if ((j>=n-i+1) && (j<=i)) k3++;
          }
        }
                System.out.println(a[i][j]);
       }
      System.out.println();
    }
    System.out.println();
    System.out.println("Количество положительных в секторе 1 = " + k1);
    System.out.println("Количество положительных в секторе 3 = " + k3);
    System.in.read();
    }
}

P.S. Паскаля не знаю, но код запустил - работает.

Новые блоги и статьи Все статьи Все блоги /
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .

Перевести на Java

Решение