Question

. Cho tệp D:\DuLieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình (VCT) đọc các cặp số nguyên trong tệp đã cho và xuất ra tệp D:\KetQua.txt, một dòng chứa số lớn nhất và một dòng số nhỏ nhất của từng cặp số tương ứng trong tệp D:\DuLieu.txt.

Answer 1

const fi='dulieu.txt'     

fo='ketqua.txt'

var f1,f2:text;   

a,b,c,d:array[1..100]of integer;   

i,n,dem,dem1:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

n:=0;

while not eof(f1) do 

begin     

n:=n+1;     

readln(f1,a[n],b[n]); 

end;

dem:=0;

dem1:=0;

for i:=1 to n do 

if a[i]>b[i] then     

begin       

inc(dem);       

inc(dem1);       

c[dem]:=a[i];       

d[dem]:=b[i];     

end 

else begin         

inc(dem);         

inc(dem1);         

c[dem]:=b[i];         

d[dem]:=a[i];       

end;

for i:=1 to dem do 

write(f2,c[i]:4);

writeln(f2);

for i:=1 to dem1 do 

write(f2,d[i]:4);

close(f1);

close(f2);

end.