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

File72. Дан строковый файл, содержащий даты в формате, описанном в задании File67. Найти строку, содержащую самую позднюю осеннюю дату. Если даты с требуемым временем года в файле отсутствуют, то вывести пустую строку.

Решение:

program File72;

type
 st = String[100];

var
 S,SRez: St;
 F_in: file of St;
 error: Integer;
 D,MaxD :LongWord;

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

  MaxD:=0;
  SRez:='';
  while (not eof(F_in)) do
   begin
    Read(F_in,S);
    if (S[4]+S[5] ='09') or (S[4]+S[5] ='10') or (S[4]+S[5] ='11') then
     begin
      val(S[7]+S[8]+S[9]+S[10]+S[4]+S[5]+S[1]+S[2],D,error);
      if (D<MaxD) or (MaxD=0) then
       begin
        MaxD:=D;
        SRez:=S;
       end;
     end;
   end;
  Close(F_in);
  Writeln(SRez);
end.

program File72;

type

st = String[100];

var

S,SRez: St;

F_in: file of St;

error: Integer;

D,MaxD :LongWord;

begin

Write('File In: ');

Readln(S);

Assign(F_in,S);

Reset(F_in);

MaxD:=0;

SRez:='';

while (not eof(F_in)) do

begin

Read(F_in,S);

if (S[4]+S[5] ='09') or (S[4]+S[5] ='10') or (S[4]+S[5] ='11') then

begin

val(S[7]+S[8]+S[9]+S[10]+S[4]+S[5]+S[1]+S[2],D,error);

if (D<MaxD) or (MaxD=0) then

begin

MaxD:=D;

SRez:=S;

end;

Close(F_in);

Writeln(SRez);

end.

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

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

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

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