File71. Дан строковый файл, содержащий даты в формате, описанном в задании File67. Найти строку, содержащую самую раннюю весеннюю дату. Если даты с требуемым временем года в файле отсутствуют, то вывести пустую строку.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
program File71; type st = String[100]; var F_in: file of St; S,SRez: St; error: Integer; D,MinD :LongWord; begin Write('File In: '); Readln(S); Assign(F_in,S); Reset(F_in); MinD:=0; SRez:=''; while (not eof(F_in)) do begin Read(F_in,S); if S[5] in ['3'..'5'] then begin val(S[7]+S[8]+S[9]+S[10]+S[4]+S[5]+S[1]+S[2],D,error); if (D>MinD) or (MinD=0) then begin MinD:=D; SRez:=S; end; end; end; Close(F_in); Writeln(SRez); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: