File48. Даны три файла целых чисел одинакового размера с именами $$S_A$$, $$S_B$$, $$S_C$$ и строка $$S_D$$. Создать новый файл с именем $$S_D$$, в котором чередовались бы элементы исходных файлов с одним и тем же номером: $$A_1, B_1, C_1, A_2, B_2, C_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 38 39 40 41 42 43 44 45 46 47 |
program File48; var SA,SB,SC,SD: String; FA,FB,FC,FD :File of Integer; El:Integer; begin Write('SA: '); Readln(SA); Write('SB: '); Readln(SB); Write('SC: '); Readln(SC); Write('SD: '); Readln(SD); Assign(FA,SA); Reset(FA); Assign(FB,SB); Reset(FB); Assign(FC,SC); Reset(FC); Assign(FD,SD); Rewrite(FD); while not Eof(FA) do begin Read(FA,El); Write(FD,El); Read(FB,El); Write(FD,El); Read(FC,El); Write(FD,El); end; Close(FA); Close(FB); Close(FC); Close(FD); end. |
Другие задачи из раздела File можно посмотреть здесь.
Комментарии: