30/09/2018, 16:43

Mọi người giúp e bài sắp xếp dữ liệu nhập từ 2 file có cấu trúc với ạ

Đề : Nhập dữ liệu từ 2 file có cấu trúc : mỗi dòng là 1 số nguyên, các số đã được sắp xếp theo thứ tự không giảm. Viết CT xuất ra dãy số không giảm vào 1 file #.

var fi1, fi2, fo : text;
    a, b : int;
begin
  assign(fi1, 'D:DATAord1.dat');
  reset(fi1);
  assign(fi2, 'D:DATAord2.dat');
  reset(fi2);
  assign(fo, 'D:DATAord.dat');
  rewrite(fo);

  readln(fi1, a);
  readln(fi2, b);
  while Not(eof(fi1) and eof(fi2)) do
     begin
       if ((a <= b) or eof(fi2)) and (eof(fi1) = false) then
       begin
         writeln(fo, a);
         readln(fi1, a);
       end
       else if ((a > b) or eof(fi1)) and (eof(fi2) = false) then
       begin
         writeln(fo, b);
         readln(fi2, b);
       end;
     end;
  close(fi1); close(fi2); close(fo);

end. 

E code vậy nhưng nó bị thiếu mất số cuối cùng ở mỗi file ko đc xét, biết sai ở chỗ```
if ((a <= b) or eof(fi2)) and (eof(fi1) = false

Code bằng c/c++/pascal đều được ạ
Bài liên quan
0