File70. Дан строковый файл, содержащий даты в формате, описанном в задании 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 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 |
program File70; type st = String[100]; var S: St; F_in,F_out,F_temp: file of St; len,i,i2:integer; begin Write('File In: '); Readln(S); Assign(F_in,S); Assign(F_temp,'~'+S); Rewrite(F_temp); Write('File Out: '); Readln(S); Assign(F_out,S); Rewrite(F_out); Reset(F_in); len:=0; while (not eof(F_in)) do begin Read(F_in,S); inc(len); end; Close(F_in); for i:=len downto 1 do begin Reset(F_in); for i2:=1 to i do Read(F_in,S); Write(F_temp,S); Close(F_in); end; close(F_temp); Reset(F_temp); while (not eof(F_temp)) do begin Read(F_temp,S); if (S[5]='1') or (S[4]+S[5]='12') then Write(F_out,S); end; close(F_temp); Erase(F_temp); Close(F_out); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: