Text51. Дан текстовый файл, содержащий таблицу из трех столбцов вещественных чисел. Ширина столбцов таблицы и способ их выравнивания являются произвольными, специальных символов-разделителей таблица не содержит. Создать три файла вещественных чисел, каждый из которых содержит числа из соответствующего столбца таблицы (в том же порядке).
Решение:
|
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 |
program Text51; var F_in: Text; F_out_R1,F_out_R2,F_out_R3: file of real; Name:string; R:Real; begin Write('File In name: '); Readln(Name); Assign(F_in,Name); Reset(F_in); Write('File Out R1 name: '); Readln(Name); Assign(F_out_R1,Name); Rewrite(F_out_R1); Write('File Out R2 name: '); Readln(Name); Assign(F_out_R2,Name); Rewrite(F_out_R2); Write('File Out R3 name: '); Readln(Name); Assign(F_out_R3,Name); Rewrite(F_out_R3); While not eof(F_in) do begin Read(F_in,R); Write(F_out_R1,R); Read(F_in,R); Write(F_out_R2,R); Readln(F_in,R); Write(F_out_R3,R); end; Close(F_in); Close(F_out_R1); Close(F_out_R2); Close(F_out_R3); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: