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

Chào mừng quý thầy cô
Đến dự giờ lớp 11a6
Bài 16: Ví dụ làm việc với tệp (t2)
Môn: tin học 11
PPCT: 35
Kiểm tra bài cũ
Câu 1:
Viết cú pháp khai báo biến tệp? Lấy ví dụ?
Viết cú pháp gắn tên tệp và mở tệp? Lấy ví dụ?

Câu 2:
Viết cú pháp đọc/ghi tệp văn bản? Lấy ví dụ?
Một số hàm chuẩn thường dùng khi đọc/ghi tệp văn bản?
Viết cú pháp đóng tệp? Lấy ví dụ?
Đáp án
Câu 1:
- Khai báo biến tệp: Var : text;
Ví dụ: Var tep1,tep2: text;

- Gắn tên tệp: assign (,);
Ví dụ: assign(tep1, ‘dulieu.in’);
assign(tep2, ‘ketqua.out’);
- Mở tệp:
+ Mở tệp để đọc: reset();
Ví dụ: reset(tep1);
+ Mở tệp để ghi: rewrite();
Ví dụ: rewrite(tep2);
Đáp án
Câu 2:
Đọc/ghi tệp văn bản:
Đọc tệp: read(,);
hoặc readln(,);
Ví dụ: read(tep1,a,b);
Ghi tệp: write(,);
hoặc writeln(,);
Ví dụ: write(tep2, ‘Tong la: ’, t);
Đáp án
Câu 2:
Một số hàm chuẩn trong đọc/ghi tệp văn bản:
+ Hàm eof() trả về giá trị true khi con trỏ tệp đang chỉ tới cuối tệp.
+ Hàm eoln() trả về giá trị true khi con trỏ tệp đang chỉ tới cuối dòng.
Đóng tệp: close();
Ví dụ: close(tep1);
close(tep2);
BÀI 16: VÍ DỤ LÀM VIỆC VỚI TỆP
Ví dụ 1:
Nhập vào một xâu, ghi xâu vừa nhập ra tệp ketqua.txt
Xác định bài toán
* Input:
+ Xâu được nhập từ bàn phím
* Output:
+ Tệp ketqua.txt chứa xâu vừa nhập
Xây dựng thuật toán ?
B1. Nhập xâu
B2. Ghi xâu ra tệp ketqua.txt
Ví dụ 1:
Nhập vào một xâu, ghi xâu vừa nhập ra tệp ketqua.txt
Ví dụ 1:
Nhập vào một xâu, ghi xâu vừa nhập ra tệp ketqua.txt
Trình tự các bước thực hiện.
- Khai báo biến biến xâu s
- Khai báo biến tệp f để ghi dữ liệu ra tệp.
Gắn biến tệp f với tệp ‘ketqua.txt’
Mở tệp để ghi dữ liệu.
Nhập xâu s
Ghi xâu vừa nhập ra tệp ketqua.txt
- Đóng tệp.
program khoang_cach;
var s:string;
f:text;
begin
assign(f,‘ketqua.txt`);
rewrite(f);
write(‘nhap xau: ’); readln(s);
writeln(f,‘ Xau moi nhap la: ’,s);
close(f);
end.
Khai báo biến tệp
Gắn tên tệp
Mở tệp để ghi
Ghi tệp
Đóng tệp
BÀI TẬP VÀ CỦNG CỐ
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 1: Chương trình bên có tên là gì?
Chương trình có sử dụng kiểu dữ liệu tệp không?
Tên chương trình là giaiptbac1
Chương trình có sử dụng kiểu dữ liệu tệp
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 2: Chương trình sử dụng bao nhiêu tệp, biến tệp? Kể tên?
2 tệp và 2 biến tệp
Tệp là input.txt và output.txt
Biến tệp là f1 và f2
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 3: Tệp input.txt được gắn cho biến tệp nào? Tệp input.txt dùng để đọc hay ghi dữ liệu?
Tệp input.txt được gắn cho biến tệp f1.
Tệp input.txt dùng để đọc dữ liệu.
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 4: Câu lệnh gắn tên tệp và mở tệp của tệp input.txt?
assign(f1,‘input.txt`);
reset(f1);
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 5: Tệp output.txt được gắn cho biến tệp nào? Tệp output.txt dùng để đọc hay ghi dữ liệu?
Tệp output.txt được gắn cho biến tệp f2.
Tệp output.txt dùng để ghi dữ liệu.
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 6: Câu lệnh gắn tên tệp và mở tệp của tệp output.txt?
assign(f2,‘output.txt`);
rewrite(f2);
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 7: Câu lệnh đọc tệp?
Câu lệnh ghi tệp
Đọc tệp:
Read(f1,a,b);
Ghi tệp:
Writeln(f2,’nghiem la:’,x:7:1);
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 8: Tệp input.txt lưu trữ dữ liệu gì?
Tệp input.txt chứa liên tiếp các cặp số nguyên
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 9: Điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt?
not eof(f1)
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 10: Chương trình sử dụng bao nhiêu câu lệnh đóng tệp?
Không đóng tệp được không? Vì sao?
2 câu lệnh đóng tệp
Không! Vì sau khi đóng tệp hệ thống mới hoàn tất việc ghi dữ liệu ra tệp.
program giaiptbac1;
var f1, f2 : text;
a, b : integer;
x : real;
begin
assign(f1, ‘input.txt`); reset(f1);
assign(f2, ‘output.txt`); rewrite(f2);
while not eof(f1) do
begin
read(f1,a,b);
x:=-b/a;
writeln(f2,‘nghiem la: `,x:7:1);
end;
close(f1); close(f2);
end.
Câu 11: Chương trình bên giải quyết bài toán gì? Giải quyết như thế nào?
Giải phương trình bậc nhất
Đọc các cặp cơ số từ tệp input.txt, tính nghiệm và ghi kết quả ra tệp output.txt
CẢM ƠN QUÝ THẦY CÔ ĐÃ GHÉ THĂM LỚP
CHÚC QUÝ THẦY CÔ SỨC KHỎE - CÔNG TÁC TỐT