Решаем задачи Абрамян на Паскале. File55

File55. Дана строка $S_0$ , целое число $N$ $(\le 4)$ и $N$ файлов целых чисел с именами $S_1, …, S_N$ . Объединить их содержимое в новом файле-архиве с именем $S_0$ , последовательно записывая в него следующие данные: размер (число элементов) первого исходного файла и все элементы этого файла, размер второго исходного файла и все его элементы, …, размер $N$ -го исходного файла и все его элементы.

Решение:

program File55;
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);


  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);

    Reset(F1);
    while not eof(F1) do
     begin
      Read(F1,temp);
      Write(F,temp);
     end;
    Close(F1);
   end;
   Close(F);
end.

program File55;

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);

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);

Reset(F1);

while not eof(F1) do

begin

Read(F1,temp);

Write(F,temp);

end;

Close(F1);

end;

Close(F);

end.

Другие задачи из раздела File можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. File55

Комментарии:

Добавить комментарий Отменить ответ