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

File57. Даны строки $S_1$ , $S_2$ и файл-архив целых чисел, содержащий данные из нескольких файлов в формате, описанном в задании File55. Создать новые файлы целых чисел с именами $S_1$ и $S_2$ и записать в первый из них начальные элементы всех файлов, содержащихся в архиве, а во второй — конечные элементы этих файлов (в том же порядке).

Решение:

program File57;
var
 S: String;
 F_in,F_out_begin,F_out_end: File of Integer;
 i,i2,temp,len: integer;

begin

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

  Write('S1: ');
  Readln(S);
  Assign(F_out_begin,S);
  ReWrite(F_out_begin);

  Write('S2: ');
  Readln(S);
  Assign(F_out_end,S);
  ReWrite(F_out_end);

  While not eof(F_in) do
   begin
    Read (F_in,len);
    for i2:=1 to len do
     begin
      Read (F_in,temp);
      if i2=1 then Write(F_out_begin,temp);
      if i2=len then Write(F_out_end,temp);
     end;
   end;
   Close(F_in);
   Close(F_out_begin);
   Close(F_out_end);
end.

program File57;

var

S: String;

F_in,F_out_begin,F_out_end: File of Integer;

i,i2,temp,len: integer;

begin

Write('Archive File: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('S1: ');

Readln(S);

Assign(F_out_begin,S);

ReWrite(F_out_begin);

Write('S2: ');

Readln(S);

Assign(F_out_end,S);

ReWrite(F_out_end);

While not eof(F_in) do

begin

Read (F_in,len);

for i2:=1 to len do

begin

Read (F_in,temp);

if i2=1 then Write(F_out_begin,temp);

if i2=len then Write(F_out_end,temp);

end;

Close(F_in);

Close(F_out_begin);

Close(F_out_end);

end.

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

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

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

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