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

File56. Дана строка $$S$$, целое число $$N$$ $$(> 0)$$ и файл-архив целых чисел, содержащий данные из нескольких файлов в формате, описанном в задании File55. Восстановить из файла-архива файл с номером $$N$$ и сохранить его под именем $$S$$. Если файл-архив содержит данные из менее чем $$N$$ файлов, то оставить результирующий файл пустым.

Решение:

program File56;
var
 S: String;
 F_in,F_out: File of Integer;
 N,i,i2,temp,len: integer;

begin

  Write('Archive File: ');
  Readln(S);
  Assign(F_in,S);
  Reset(F_in);

  Write('S: ');
  Readln(S);
  Assign(F_out,S);
  ReWrite(F_out);

  Write('N: ');
  Readln(N);

  i:=0;
  while not eof(F_in) do
   begin
    inc(i);
    Read (F_in,len);
    for i2:=1 to len do
    begin
     Read (F_in,temp);
     if i=N then Write(F_out,temp);
    end;
   end;
   Close(F_in);
   Close(F_out);
end.

program File56;

var

S: String;

F_in,F_out: File of Integer;

N,i,i2,temp,len: integer;

begin

Write('Archive File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('S: ');

Readln(S);

Assign(F_out,S);

ReWrite(F_out);

Write('N: ');

Readln(N);

i:=0;

while not eof(F_in) do

begin

inc(i);

Read (F_in,len);

for i2:=1 to len do

begin

Read (F_in,temp);

if i=N then Write(F_out,temp);

end;

Close(F_in);

Close(F_out);

end.

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

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

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

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