File48. Даны три файла целых чисел одинакового размера с именами SA, SB, SC и строка SD. Создать новый файл с именем SD, в котором чередовались бы элементы исходных файлов с одним и тем же номером:
A1, B1, C1, A2, B2, C2, … .
>Решение 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 | 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. |