Перевод код Pascal на Java

@Tequ · Регистрация: 31.05.2017

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

Здравствуйте! Кто сможет переводить этот код на Pascal на Java прошу помочь. срочно благодарен.
Pascal

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var n,s,k:longint;
 begin
  assign(input, 'input.txt'); reset(input); 
  assign(output, 'output.txt'); rewrite(output);
  read(n);
  if n=1 then
   write (1)
 else
  begin
   s:=n+1;
   for k:=2 to n-1 do
    if n mod k=0 then s:=s+k;
   write (s);
  end;
end.

Добавлено через 1 час 41 минуту
СРОЧНО

@Tequ · 23.01.2018, 11:02 **[ТС]**

Я сделал 9 задач, на 4 нужно 13, а я просто не понимаю уже как там решать

@Aviz__ · 23.01.2018, 11:04

так, пиши, как понимаешь! люди поправят, может быть.

@Tequ · 23.01.2018, 11:09 **[ТС]**

Я не знаю как дальше, нам java не объяснили толком

@Aviz__ · 23.01.2018, 11:11

словами пиши. и перестань делать из себя жертву!

@Tequ · 24.01.2018, 10:20 **[ТС]**

Дак не понимаю я

@Aviz__ · 24.01.2018, 10:25

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

не понимаю я

так, и не видно, чтобы ты хотел понимать!
перед "смертью" не надышишься, прими ответственность за свою жизнь...

@Tequ · 24.01.2018, 22:01 **[ТС]**

Пожалуйста, любые 2 задачи

Добавлено через 29 секунд
iSmokeJC, Сможешь помочь?

@iSmokeJC · 24.01.2018, 22:02

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

iSmokeJC, Сможешь помочь?

Возможно.

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

любые 2 задачи

это из той кучи фоток?

@Tequ · 24.01.2018, 22:48 **[ТС]**

Например 173 и 73

Добавлено через 29 секунд
Да, из той кучи, спасибо

Добавлено через 43 минуты
iSmokeJC, Например 173 и 73

@thematdev · 24.01.2018, 23:09

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

Например 173 и 73

Добавлено через 29 секунд
Да, из той кучи, спасибо

Добавлено через 43 минуты
iSmokeJC, Например 173 и 73

Маленький вопрос, а почему бы не начать изучать Java самому:
Тут например сбоку есть все уроки, которые Вам нужны толком.
Можете начать, а дальше сами.
Совет: перед тем, как решить сложную задачу, запишите алгоритм(сначала придумав его) на листке бумаги, выпейте чашку кофе, и приступите к делу.

Добавлено через 1 минуту
UPD: Там всё понятно объяснено, если что-то непонятно, гуглите.

@Tequ · 24.01.2018, 23:09 **[ТС]**

Мне завтра сдать надо, а не хватает 2 задачи

@thematdev · 24.01.2018, 23:11

Вам даже туториал по установке и настройке дали ^_^

Добавлено через 1 минуту

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

Мне завтра сдать надо, а не хватает 2 задачи

Там за 1-2 часа первые 6-7 уроков Вам много чего дадут. Прочитайте их просто.

@iSmokeJC · 24.01.2018, 23:33

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

Мне завтра сдать надо, а не хватает 2 задачи

О, браза, не получится, мне на работу завтра...

@Tequ · 25.01.2018, 08:20 **[ТС]**

iSmokeJC, а ЕСЛИ С ДРУГОГО ЯЗЫКА

Паскаль

var st:string; i:byte;
function Raz(p:char;m:byte):char;
var G,j:byte;
begin
if p in ['0'..'9'] then G:=ord(p)-48 else G:=ord(p)-55;
for j:=1 to 27 do
if (j+m) mod 27 =G then
begin
if j=27 then Raz:=' ' else
Raz:=chr(j+96);
break;
end;
end;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
Readln(st);
for i:=1 to length(st) do
Write(Raz(st[i],i));
end.

Добавлено через 8 часов 42 минуты
iSmokeJC, Ну как?

var st:string; i:byte;
function Raz(p:char;m:byte):char;
var G,j:byte;
begin
if p in ['0'..'9'] then G:=ord(p)-48 else G:=ord(p)-55;
for j:=1 to 27 do
if (j+m) mod 27 =G then
begin
if j=27 then Raz:=' ' else
Raz:=chr(j+96);
break;
end;
end;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
Readln(st);
for i:=1 to length(st) do
Write(Raz(st[i],i));
end.

БЕЗ ФАЙЛОВ

@Aviz__ · 25.01.2018, 09:00

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

Пожалуйста

расскажи своим одногруппникам, об этом форуме... возможно, они по другому будут просить помощи, а следовательно, шанс ее получить будет выше. Все останутся в выигрыше))

Новые блоги и статьи Все статьи Все блоги /
Как дизайн сайта влияет на конверсию: 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 На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	23.01.2018, 11:02 [ТС]
	Я сделал 9 задач, на 4 нужно 13, а я просто не понимаю уже как там решать 0

@Aviz__ 2748 / 2056 / 508 Регистрация: 17.02.2014 Сообщений: 9,485
	23.01.2018, 11:04
	так, пиши, как понимаешь! люди поправят, может быть. 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	23.01.2018, 11:09 [ТС]
	Я не знаю как дальше, нам java не объяснили толком 0

@Aviz__ 2748 / 2056 / 508 Регистрация: 17.02.2014 Сообщений: 9,485
	23.01.2018, 11:11
	словами пиши. и перестань делать из себя жертву! 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	24.01.2018, 10:20 [ТС]
	Дак не понимаю я 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	24.01.2018, 22:01 [ТС]
	Пожалуйста, любые 2 задачи Добавлено через 29 секунд iSmokeJC, Сможешь помочь? 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	24.01.2018, 22:48 [ТС]
	Например 173 и 73 Добавлено через 29 секунд Да, из той кучи, спасибо Добавлено через 43 минуты iSmokeJC, Например 173 и 73 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	24.01.2018, 23:09 [ТС]
	Мне завтра сдать надо, а не хватает 2 задачи 0

@Tequ 0 / 0 / 0 Регистрация: 31.05.2017 Сообщений: 39
	25.01.2018, 08:20 [ТС]
	iSmokeJC, а ЕСЛИ С ДРУГОГО ЯЗЫКА Паскаль var st:string; i:byte; function Raz(p:char;m:byte):char; var G,j:byte; begin if p in ['0'..'9'] then G:=ord(p)-48 else G:=ord(p)-55; for j:=1 to 27 do if (j+m) mod 27 =G then begin if j=27 then Raz:=' ' else Raz:=chr(j+96); break; end; end; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); Readln(st); for i:=1 to length(st) do Write(Raz(st[i],i)); end. Добавлено через 8 часов 42 минуты iSmokeJC, Ну как? var st:string; i:byte; function Raz(p:char;m:byte):char; var G,j:byte; begin if p in ['0'..'9'] then G:=ord(p)-48 else G:=ord(p)-55; for j:=1 to 27 do if (j+m) mod 27 =G then begin if j=27 then Raz:=' ' else Raz:=chr(j+96); break; end; end; begin assign(input, 'input.txt'); reset(input); assign(output, 'output.txt'); rewrite(output); Readln(st); for i:=1 to length(st) do Write(Raz(st[i],i)); end. БЕЗ ФАЙЛОВ 0