File49. Даны четыре файла целых чисел разного размера с именами SA, SB, SC, SD и строка SE. Создать новый файл с именем SE, в котором чередовались бы элементы исходных файлов с одним и тем же номером (как в задании File48). «Лишние» элементы более длинных файлов в результирующий файл не записывать.
>
Решение Pascal
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 | program File49; var SA,SB,SC,SD,SE: String; FA,FB,FC,FD,FE :File of Integer; El:Integer; begin Write('SA: '); Readln(SA); Write('SB: '); Readln(SB); Write('SC: '); Readln(SC); Write('SD: '); Readln(SD); Write('SE: '); Readln(SE); Assign(FA,SA); Reset(FA); Assign(FB,SB); Reset(FB); Assign(FC,SC); Reset(FC); Assign(FD,SD); Reset(FD); Assign(FE,SE); Rewrite(FE); while (not Eof(FA)) and (not Eof(FB)) and (not Eof(FC)) and (not Eof(FD)) do begin Read(FA,El); Write(FE,El); Read(FB,El); Write(FE,El); Read(FC,El); Write(FE,El); Read(FD,El); Write(FE,El); end; Close(FA); Close(FB); Close(FC); Close(FD); Close(FE); end. |