Bài 16: Ví dụ làm việc với tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngô Chí Thành

Cho 2 tệp văn bản nguyen1.TXT , nguyen2.TXT . Mỗi dòng của 2 tệp chứa 1 số nguyên . Hãy lập trình tạo tệp 1 văn bản chứa nguyen1.TXT , nguyen2TXT . Những dòng đầu tiên là các dòng của nguyen1.TXT , còn lại là nguyen2.TXT

Nguyễn Lê Phước Thịnh
11 tháng 4 2021 lúc 17:59

const fi1='nguyen1.txt'

fi2='nguyen2.txt'

fo='nguyen.txt'

var f1,f2,f3:text;

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

n,m,i:integer;

begin

assign(f1,fi1); reset(f1);

assign(f2,fi2); reset(f2);

assign(f3,fo); rewrite(f3);

n:=0;

while not eof(f1) do 

  begin

inc(n);

readln(f1,a[n]);

end;

m:=0;

while not eof(f2) do 

begin

m:=m+1;

readln(f1,b[m]);

end;

for i:=1 to n do 

 writeln(f3,a[i]);

for i:=1 to m do 

  writeln(f3,b[i]);

close(f1);

close(f2);

close(f3);

end.


Các câu hỏi tương tự
Dương Hữu Thành
Xem chi tiết
Lovanlinh
Xem chi tiết
Đặc Nhiệm FBI
Xem chi tiết
Trần Vi Sa
Xem chi tiết
Hương Nguyễn
Xem chi tiết
Nguyên Trinh
Xem chi tiết
Trung Kiên Lưu
Xem chi tiết
Nguyễn Nhật Bình
Xem chi tiết
Huệ Bùi Thị Kim
Xem chi tiết