03.06.2011, 10:53 | #1 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Задача по Паскалю, файл
SD и строка SE. Создать новый файл с именем SE, в котором чередовались бы элементы исходных файлов с одним и тем же номером (как в задании File48). «Лишние» элементы более длинных файлов в результирующий файл не записывать. |
03.06.2011, 10:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Предлагаю вам ознакомится с аналогичными темами на нашем форуме Задачка по Паскалю Ищу свободного мастера по паскалю. |
03.06.2011, 16:19 | #2 (permalink) |
Member
Регистрация: 03.06.2011
Сообщений: 19
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
я решил
program file; var K : integer; fSA, fSB, fSC, fSD, fSE : file of integer; SA, SB, SC, SD, SE : string; begin /// вввод имён файлов SA, SB, SC, SD, SE Assign(fSA, SA); Reset(fSA); Assign(fSB, SB); Reset(fSB); Assign(fSC, SC); Reset(fSC); Assign(fSD, SD); Reset(fSD); Assign(fSE, SE); Rewrite(fSE); while (Not Eof(fSA)) and (Not Eof(fSB)) and (Not Eof(fSC)) and (Not Eof(fSD)) do begin Read(fSA, K); Write(fSE, K); Read(fSB, K); Write(fSE, K); Read(fSC, K); Write(fSE, K); Read(fSD, K); Write(fSE, K); end; Close(fSA); Close(fSB); Close(fSC); Close(fSD); Close(fSE); end. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|