Text52. Дан текстовый файл, содержащий таблицу из трех столбцов целых чисел. В начале и в конце каждой строки таблицы, а также между ее столбцами располагается символ-разделитель. Ширина столбцов таблицы, способ их выравнивания и вид символа-разделителя являются произвольными. Создать файл целых чисел, содержащий сумму чисел из каждой строки исходной таблицы.
Решение:
|
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 |
program Text52; var F_in: Text; F_out: file of Integer; Name,SI:string; C:Char; I,Sum,error: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); SI:=''; Sum:=0; While not eof(F_in) do begin Sum:=0; While not eoln(F_in) do begin Read(F_in,C); Write(C); if (C in ['0'..'9']) then SI:=SI+C else begin if SI<>'' then begin Val(SI,I,error); Sum:=Sum+I; end; SI:=''; end; end; Readln(F_in); Write(F_out,Sum); end; Close(F_in); Close(F_out); end. |
Другие задачи из раздела Text можно посмотреть здесь.
Комментарии: