@Tequ

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

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

0

@Tequ

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

0

@Aviz__

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

0

@Tequ

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

0

@Aviz__

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

0

@Tequ

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

0

@Aviz__

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

0

@Tequ

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

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

0

@iSmokeJC

Возможно.
это из той кучи фоток?

0

@Tequ

Например 173 и 73

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

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

0

@thematdev

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

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

0

@Tequ

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

0

@thematdev

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

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

0

@iSmokeJC

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

0

@Tequ

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

@Aviz__

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

0