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

1


KÍNH CHÀO QUÍ THẦY CÔ
VỀ DỰ GIỜ TiẾT HỌC LỚP 11

KÍNH CHÀO QUÍ THẦY CÔ
THAM DỰ TIẾT HỌC CÙNG LỚP 11
KÍNH CHÀO QUÍ THẦY CÔ
THAM DỰ TIẾT HỌC CÙNG LỚP 11
1/21/2015
2
2
CHƯƠNG V:
TỆP VÀ THAO TÁC VỚI TỆP
(Tiết tiếp theo)
1/21/2015
3
Kiểm tra kiến thức cũ
Nêu một số trường hợp cần phải dùng tệp?
Lưu trữ lượng thông tin lớn, dùng lâu dài
1/21/2015
4
Kiểm tra kiến thức cũ
Khi cần đọc dữ liệu từ tệp, em phải dùng những thao tác nào
(từ sơ đồ dưới đây).
1/21/2015
5
Kiểm tra kiến thức cũ
1/21/2015
6
Chương V: Tệp và thao tác với tệp
Ví dụ 1: em hãy tìm Input và Output của chương trình sau:

var f:text; a,b,s:integer;
begin
assign(f,`so.txt`); reset(f);
read(f,a,b);
s:=a+b;
write(`s=`,s);
readln;
close(f);
end.

III. Ví dụ làm việc với tệp:
1/21/2015
7
Chương V: Tệp và thao tác với tệp
Input : đọc 2 số a,b từ tệp ‘so.txt’
Output: tính tổng s của hai số và đưa ra màn hình

var f:text; a,b,s:integer;
begin
assign(f,`so.txt`); reset(f);
read(f,a,b);
s:=a+b;
write(`s=`,s);
readln;
close(f);
end.

III. Ví dụ làm việc với tệp:
1/21/2015
8
Chương V: Tệp và thao tác với tệp
Ví dụ 2: đọc 2 số từ tệp ‘so.txt’ , tính tổng 2 số và ghi vào tệp “Kqua.txt’

var f:text; a,b,s:integer;
begin
assign(f,`so.txt`); reset(f);
read(f,a,b);
s:=a+b;
write(`s=`,s);
readln;
close(f);
end.

III. Ví dụ làm việc với tệp:
1/21/2015
9
Chương V: Tệp và thao tác với tệp
Ví dụ 2: đọc 2 số từ tệp ‘so.txt’ , tính tổng 2 số và ghi vào tệp “Kqua.txt’

var f,f1:text; a,b,s:integer;
begin
assign(f,`so.txt`); reset(f);
read(f,a,b);
Assign(f1,’kqua.txt’);
rewrite(f1);
s:=a+b;
write(f1,`s=`,s);

close(f); close(f1);
end.

III. Ví dụ làm việc với tệp:
1/21/2015
10
Chương V: Tệp và thao tác với tệp
Ví dụ 3: viết chương trình đọc mảng 1 chiều gồm 5 phần tử
có tên tệp ‘mang.txt’ , tính tổng các giá trị mảng chia hết cho 2
và đưa ra màn hình.
III. Ví dụ làm việc với tệp:
1/21/2015
11
Chương V: Tệp và thao tác với tệp
Ví dụ 3: chương trình bằng NNLT pascal

var f,f1:text;
i,s:integer;
a:array[1..5]of integer;
begin
assign(f,`so.txt`); reset(f);
For i:=1 to 5 do
read(f,a[i]);
S:=0;
for i:=1 to 5 do
if a[i] mod 2 =o then
s:=s+a[i];
Write(‘s= ‘,s);
close(f);
readln
end.

III. Ví dụ làm việc với tệp:
1/21/2015
12
Chương V: Tệp và thao tác với tệp
Ví dụ 4: viết chương trình đọc mảng 1 chiều gồm 5 phần tử có tên tệp ‘mang.txt’
, tính tổng các giá trị mảng chia hết cho 2 và ghi vào tệp ‘kqua.txt’

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


var f,f1:text; i,s:integer;
a:array[1..5]of integer;
begin
assign(f,`so.txt`); reset(f);
For i:=1 to 5 do
read(f,a[i]);
Assign(f1,’mang.txt’); rewrite(f1);
S:=0;
for i:=1 to 5 do
if a[i] mod 2 =o then
s:=s+a[i];
write(f1,`s=`,s);
close(f); close(f1);
end.

1/21/2015
13
Chương V: Tệp và thao tác với tệp
Ví dụ 4: chương trình bằng NNLT Pascal

var f,f1:text;
i,s:integer;
a:array[1..5]of integer;
begin
assign(f,`so.txt`); reset(f);
For i:=1 to 5 do
read(f,a[i]);
Assign(f1,’mang.txt’);
rewrite(f1);
S:=0;
for i:=1 to 5 do
if a[i] mod 2 =o then
s:=s+a[i];
write(f1,`s=`,s);
close(f); close(f1);
end.

III. Ví dụ làm việc với tệp:
1/21/2015
14
Chương V: Tệp và thao tác với tệp
Ví dụ 4: chương trình bằng NNLT Pascal

var f,f1:text;
i,s:integer;
a:array[1..5]of integer;
begin
assign(f,`so.txt`); reset(f);
For i:=1 to 5 do
read(f,a[i]);
Assign(f1,’mang.txt’);
rewrite(f1);
S:=0;
for i:=1 to 5 do
if a[i] mod 2 =o then
s:=s+a[i];
write(f1,`s=`,s);
close(f); close(f1);
end.

III. Ví dụ làm việc với tệp:
15
Nối cấu trúc thích hợp
Đóng tệp.
Mở tệp.
Gán tên tệp.
Đọc/ghi tệp văn bản.
assign(,);
reset();
read(,);
write(,);
close();
1 – e
2 – b
3 – a
4 – c, d
Củng cố:
16
Bài tập về nhà
Trả lời câu hỏi trong sách bài tập và tìm hiểu thêm ví dụ 1, ví dụ 2 bài 16 trong SGK.
17
THE END