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

File69. Дан строковый файл, содержащий даты в формате, описанном в задании File67. Создать новый строковый файл, содержащий все летние даты из исходного файла (в том же порядке). Если даты с требуемым временем года в файле отсутствуют, то оставить результирующий файл пустым.

Решение:

program File69;

type
 st = String[100];

var
 S: St;
 F_in,F_out: file of St;

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


  while (not eof(F_in)) do
   begin
    Read(F_in,S);
    if S[5] in ['6'..'8'] then Write(F_out,S);
   end;
  Close(F_out);
  Close(F_in);
end.

program File69;

type

st = String[100];

var

S: St;

F_in,F_out: file of St;

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

while (not eof(F_in)) do

begin

Read(F_in,S);

if S[5] in ['6'..'8'] then Write(F_out,S);

end;

Close(F_out);

Close(F_in);

end.

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

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

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

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