| defaultNick7025 | Дата: Воскресенье, 25.12.2011, 19:08 | Сообщение # 1 |
 Новичок
Группа: Пользователи
Сообщений: 4
Статус: Offline
| Пожалуйста помогите с задачей!!
Пусть файлы a и b,компоненты которых являются целыми числами,упорядочены по неубыванию. Получить в файле с все числа файлов а и b без повторений. Файл с должен быть упорядочен по возрастанию.
|
| |
| |
| Kybik | Дата: Вторник, 27.12.2011, 19:50 | Сообщение # 2 |
|
Новичок
Группа: Пользователи
Сообщений: 4
Статус: Offline
| все.уже не надо
var A, B, C : file of Word; Na, Nb : Word;
begin
Assign(A, 'A.dat'); Assign(B, 'B.dat'); Assign(C, 'C.dat');
Reset(A); Reset(B); Rewrite(С);
if Not EOF(A) then Read(A, Na);
if Not EOF(B) then Read(B, Nb);
while (Not EOF(A)) and (Not EOF(B)) do
if Na < Nb then begin Write(C, Na); Read(A, Na); end else begin Write(C, Nb); Read(B, Nb); end;
if Not EOF(A) then begin Write(C, Na); while Not EOF(A) do begin Read(A, Na); Write(C, Na); end;
if Not EOF(B) then begin Write(C, Nb); while Not EOF(B) do begin Read(B, Nb); Write(C, Nb); end;
Close(A); Close(B); Close©;
end.
Сообщение отредактировал Kybik - Вторник, 27.12.2011, 19:55 |
| |
| |
