Bài 3:
type f=file of integer;
var f1,f2,f3:f;
i,j,n,m,tam:integer; ch:char;
procedure taofile(var f1,f2:f);
begin
assign(f1,'c:\f1.txt');
rewrite(f1);
assign(f2,'c:\f2.txt');
rewrite(f2);
repeat
writeln(' nhap gia tri cho file f1');
readln(n);
write(f1,n);
writeln('Tiep tuc?');
readln(ch);
until ch in['k','K'];
writeln(' nhap gia tri cho file f2');
readln(m);
write(f2,m);
writeln('Tiep tuc (c/k)?');
close(f1);
close(f2);
readln;
end;
procedure taokq(var f3:f);
var i,u,v:integer;
Begin
reset(f1);
reset(f2);
assign(f3,'c:\f3.out');
rewrite(f3);
{while not eof(f1) do
begin
while not eof(f2) do
begin
read(f1,n);
read(f2,m);
tam:=n+m;
write(f3,tam);
end;
end;}
n:=filesize(f1);
m:=filesize(f2);
if n<=m then
begin
for i:=1 to n do
begin
read(f1,u);
read(f2,v);
u:=u+v;
write(f3,u);
end;
for i:=n+1 to m do
read(f2,u);
end
else
begin
for i:=1 to m do
for i:=m+1 to n do
end;
close(f1);
close(f2);
close(f3);
end;
BEGIN
taofile(f1,f2);
taokq(f3);
assign(f3,'c:\f3.out');
reset(f3);
writeln('file kq co ',filesize(f3),' phan tu la:');
while not eof(f3) do
begin
read(f3,n);
writeln(n);
readln;
end.
Bạn đang xem bài 3: - Đề thi HSG Tin học THCS năm 2006-2007 TP Huế