Перевод код 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

Пожалуйста

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

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

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

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

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

@Aviz__ 2759 / 2066 / 509 Регистрация: 17.02.2014 Сообщений: 9,493
	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