File57. Даны строки $$S_1$$, $$S_2$$ и файл-архив целых чисел, содержащий данные из нескольких файлов в формате, описанном в задании File55. Создать новые файлы целых чисел с именами $$S_1$$ и $$S_2$$ и записать в первый из них начальные элементы всех файлов, содержащихся в архиве, а во второй — конечные элементы этих файлов (в том же порядке).
Решение:
|
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 |
program File57; var S: String; F_in,F_out_begin,F_out_end: File of Integer; i,i2,temp,len: integer; begin Write('Archive File: '); Readln(S); Assign(F_in,S); Reset(F_in); Write('S1: '); Readln(S); Assign(F_out_begin,S); ReWrite(F_out_begin); Write('S2: '); Readln(S); Assign(F_out_end,S); ReWrite(F_out_end); While not eof(F_in) do begin Read (F_in,len); for i2:=1 to len do begin Read (F_in,temp); if i2=1 then Write(F_out_begin,temp); if i2=len then Write(F_out_end,temp); end; end; Close(F_in); Close(F_out_begin); Close(F_out_end); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: