Top.Mail.Ru
Ответы
Аватар пользователя
Аватар пользователя
Аватар пользователя
Аватар пользователя
Программирование
+2

Помогите пожалуйста перевести код с pascal на java

Дана строка S0,целое числоN (≤4) и N файлов целых чисел с именами S1, ..., SN. Объединить их содержимое в новом файле-архиве с именем S0, используя следующий формат: в первом элементе файла-архива хранится число N, в следующих N элементах хранится размер (число элементов) каждого из исходных файлов, а затем последовательно размещаются данные из каждого исходного файла.

Код:
var
S: array [0..4] of String;
F,F1: File of Integer;
N,i,temp,len: integer;
begin
Write('S0: ');
Readln(S[0]);
Write('N: ');
Readln(N);
Assign(F,S[0]);
ReWrite(F);
Write(F,N);
For i:=1 to N do
begin
Write('S',i,': ');
Readln(S[i]);
end;
For i:=1 to N do
begin
Assign(F1,S[i]);
Reset(F1);
len:=0;
while not eof(F1) do
begin
inc(len);
Read(F1,temp);
end;
Close(F1);
Write(F,len);
end;
For i:=1 to N do
begin
Assign(F1,S[i]);
Reset(F1);
len:=0;
while not eof(F1) do
begin
Read(F1,temp);
Write(F,temp);
end;
Close(F1);
end;
end.

По дате
По рейтингу
Аватар пользователя
Новичок

а зачем вы пишете сперва на паскакале? и зачем потом на джаву переписывать? это для вас или для кого-то ещё? почему сами не сделаете?