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

File64. Дан строковый файл. Создать новый строковый файл, содержащий все строки исходного файла наименьшей длины (в том же порядке).

Решение:

program File64;
type
 st = String[100];

var
 S: St;
 F_in,F_out: file of st;
 MinLen: integer;

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

  Write('File Out: ');
  Readln(S);
  Assign(F_out,S);
  Rewrite(F_out);

 MinLen:=-1;

 while (not eof(F_in)) do
  begin
   Read(F_in,S);
   if (Length(S)<MinLen) or (MinLen=-1) then MinLen:=Length(S);
  end;

 Close(F_in);
 Reset(F_in);


 while (not eof(F_in)) do
  begin
   Read(F_in,S);
   if Length(S)=MinLen then Write(F_out,S);
  end;

 Close(F_in);
 Close(F_out);
end.

program File64;

type

st = String[100];

var

S: St;

F_in,F_out: file of st;

MinLen: integer;

begin

Write('File In: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

Write('File Out: ');

Readln(S);

Assign(F_out,S);

Rewrite(F_out);

MinLen:=-1;

while (not eof(F_in)) do

begin

Read(F_in,S);

if (Length(S)<MinLen) or (MinLen=-1) then MinLen:=Length(S);

end;

Close(F_in);

Reset(F_in);

while (not eof(F_in)) do

begin

Read(F_in,S);

if Length(S)=MinLen then Write(F_out,S);

end;

Close(F_in);

Close(F_out);

end.

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

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

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

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