Viết các câu lệnh để ghi dữ liệu vào tệp KQ.TXT 2 biến C, V (sử dụng biến tệp f).
Viết các câu lệnh để ghi dữ liệu vào tệp “ketqua.txt” 2 biến T, S (sử dụng biến tệp f2).
Assign(f2,’ketqua.txt’);
Rewrite(f2);
Write(f2,T,S);
Close(f2);
Viết các câu lệnh để đọc dữ liệu từ tệp “DL.TXT” 2 biến x1, x2 (sử dụng biến tệp f).
Assign(f,’DL.TXT’);
Reset(f);
Read(f,x1,x2);
Close(f);
bài 1: viết các câu lệnh để ghi dữ liệu là 2 biến T , S từ chương trình vào tệp dulieu.txt (sử dụng biến tệp f2)
bài 2: viết các câu lệnh để đọc dữ liệu từ tệp dau.txt ra 2 biến a,b của chương trình ( sử dụng biến tệp f1 )
Bài 1:
assign(f2,'dulieu.txt');
reset(f2);
readln(f2,T,S);
close(f2);
Bài 2:
assign(f1,'dau.txt');
reset(f1);
read(f1,a,b);
close(f1);
Viết các câu lệnh để đọc dữ liệu từ tệp “dulieu.txt” 2 biến a, b (sử dụng biến tệp f1).
Assign(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);
Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh:
A. f2 := ‘KQ.TXT’;
B. ‘KQ.TXT’ := f2;
C. Assign(‘KQ.TXT’, f2);
D. Assign(f2, ‘KQ.TXT’);
Để gắn tệp KQ.TXT cho biến tệp f2 ta sử dụng câu lệnh:
A. Assign(f2, ‘KQ.TXT’);
B. f2 := ‘KQ.TXT’;
C. ‘KQ.TXT’ := f2;
D. Assign(‘KQ.TXT’, f2);
Cho tệp BT.TXT chứa 3 số nguyên liên tiếp trên 1 dòng. Viết chương trình đọc dữ liệu từ tệp BT.TXT, tính tổng các số trên cùng 1 dòng; ghi tổng của các dòng vào tệp KQ.txt
HƯỚNG DẪN
Các bước thực hiện bài toán ?
1. Gắn tệp BT.TXT, KQ.TXT vào các biến tệp
2. Mở tệp BT.TXT để đọc và mở tệp KQ.TXT để ghi
3. Nếu chưa cuối tệp BT.TXT thì thực hiện
3.1. Đọc dữ liệu từ tệp gắn vào biến x, y, z
3.2. tß x+y+z
3.3. Ghi t vào tệp KQ.TXT trên 1 dòng
4. Đóng các tệp
Program hotrotinhoc_hoc24;
const fi='BT.TXT';
fo='KQ.TXT';
var f: text;
x,y,z: integer;
t: longint;
procedure ip;
begin
assign(f,fi);
reset(f);
read(f,x,y,z);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
t:=x+y+z;
write(f,t);
close(f);
end;
begin
ip;
out;
end.
Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:
A. read(f1, a, b);
B. write(f1, a, b);
C. readln(a, b, f1);
D. writeln(a, b, f1);
Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:
A. read(f1, a, b);
B. write(f1, a, b);
C. readln(a, b, f1);
D. writeln(a, b, f1);