Здравствуйте! Задание передо мною такое: есть два упорядоченных файла целых чисел разной длины, необходимо слить в один файл, чтобы в выходном файле числа были упорядочены. Одинаковые числа включать в выходной файл один раз.
То, что составлено:
uses crt
;var f
,f1
:text
; a
,b
:array[1..100] of integer; c
:array[1..200] of integer; i
,j
,temp
:integer;beginclrscr
;assign
(f
,'c:\ONE1.txt');rewrite
(f
);for i
:=1 to 100 do a
[i
]:=random
(100);for i
:=2 to 100 do for j
:=100 downto i
do if a
[j
]<a
[j
-1] then begin temp
:=a
[j
]; a
[j
]:=a
[j
-1]; a
[j
-1]:=temp
; end;for i
:=1 to 100 do writeln(f
,a
[i
]); close
(f
);assign
(f
,'c:\ONE2.txt');rewrite
(f
);for i
:=1 to 100 do a
[i
]:=random
(100);for i
:=2 to 100 do for j
:=100 downto i
do if a
[j
]<a
[j
-1] then begin temp
:=a
[j
]; a
[j
]:=a
[j
-1]; a
[j
-1]:=temp
; end;for i
:=1 to 100 do writeln(f
,a
[i
]); close
(f
); assign
(f1
,'c:\ONE3.txt'); rewrite
(f1
); assign
(f
,'c:\ONE1.txt'); reset
(f
); while not eof(f
) do begin readln(f
,temp
); writeln(f1
,temp
); end; close
(f
); assign
(f
,'c:\ONE2.txt'); reset
(f
); while not eof(f
) do begin readln(f
,temp
); writeln(f1
,temp
); end; close
(f
); close
(f1
); assign
(f
,'c:\ONE3.txt'); reset
(f
); i
:=0; while not(eof(f
)) do begin inc
(i
); readln(f
,c
[i
]); end; close
(f
);for i
:=2 to 200 do for j
:=200 downto i
do if c
[j
]>c
[j
-1] then begin temp
:=c
[j
]; c
[j
]:=c
[j
-1]; c
[j
-1]:=temp
; end; assign
(f
,'c:\ONE3.txt'); rewrite
(f
); for i
:=1 to 200 do writeln(f
,c
[i
]); close
(f
);end. Не знаю как одинаковые числа включать в выходной файл один раз.... Спасибо, за ответ/совет
