Text50. Дан текстовый файл. В каждой его строке первые 30 позиций отводятся под текст, а оставшаяся часть — под вещественное число. Создать два файла: строковый файл, содержащий текстовую часть исходного файла, и файл вещественных чисел, содержащий числа из исходного файла (в том же порядке).
Решение:
|
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 |
program Text50; var F_in,F_out_T: Text; F_out_R: file of real; Name,S,stemp:string; R:Real; error:integer; begin Write('File In Text name: '); Readln(Name); Assign(F_in,Name); Reset(F_in); Write('File Out Text name: '); Readln(Name); Assign(F_out_T,Name); Rewrite(F_out_T); Write('File out Integer name: '); Readln(Name); Assign(F_out_R,Name); Reset(F_out_R); While not eof(F_in) do begin Readln(F_in,S); Stemp:=Copy(S,1,30); Writeln(F_out_T,Stemp); Delete(S,1,30); VAL(S,R,error); Write(F_out_R,R); end; Close(F_in); Close(F_out_R); Close(F_out_T); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: