File67. Дан строковый файл, содержащий даты в формате «день/месяц/год», причем под день и месяц отводится по две позиции, а под год — четыре (например, «16/04/2001»). Создать два файла целых чисел, первый из которых содержит значения дней, а второй — значения месяцев для дат из исходного строкового файла (в том же порядке).
Решение:
|
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 |
program File67; type st = String[100]; var Name,S: St; F_in: file of St; F_out_day,F_out_month: file of integer; temp,error:integer; begin Write('File In: '); Readln(Name); Assign(F_in,Name); Reset(F_in); Write('File Out Day: '); Readln(Name); Assign(F_out_day,Name); Rewrite(F_out_day); Write('File Out Month: '); Readln(Name); Assign(F_out_month,Name); Rewrite(F_out_month); while (not eof(F_in)) do begin Read(F_in,S); Val(S[1]+S[2],temp,error); Write(F_out_day,temp); Val(S[4]+S[5],temp,error); Write(F_out_month,temp); end; Close(F_out_month); Close(F_out_day); Close(F_in); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: