Text48. Дан текстовый файл, каждая строка которого содержит изображения нескольких чисел, разделенные пробелами (вещественные числа имеют ненулевую дробную часть). Создать файл целых чисел, содержащий все целые числа из исходного файла (в том же порядке).
Решение:
|
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 |
program Text48; var F_in: Text; F_out: file of integer; Name:string; R:Real; I:integer; begin Write('File in name: '); Readln(Name); Assign(F_in,Name); Reset(F_in); Write('File out name: '); Readln(Name); Assign(F_out,Name); Rewrite(F_out); While not eof(F_in) do begin While not eoln(F_in) do begin Read(F_in,R); if R-trunc(R)=0 then begin I:=trunc(R); Write(F_out,I); end; end; Readln(F_in); end; Close(F_in); Close(F_out); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: