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

Ôn tập kiến thức lí HS: Var : text; GV: Có các thủ tục cơ bản nào khi làm việc với tệp?. HS: Assign,; Rewrite; Reset ; Close ; Read/Readln,; Write/Writeln,; GV: Các hàm nào thường dùng k

1 Ôn tập kiến thức lí

HS: Var <tên biến tệp>: text;

GV: Có các thủ tục cơ bản nào khi làm việc với tệp?

HS: Assign(<tên biến tệp>,<tên tệp>);

Rewrite(<tên biến tệp>);

Reset (<tên biến tệp>);

Close (<tên biến tệp>);

Read/Readln(<tên biến tệp>,<danh sách tên biến>);

Write/Writeln(<tên biến tệp>,<danh sách kết quả>);

GV: Các hàm nào thường dùng khi đọc/ghi tệp văn bản

HS: hàm eof (<tên biến tệp>)

2 Tìm hiểu chương

dụ sau: Ví dụ 1 SGK trang 87

Program Khoang_cach;

Var d:real; f:text;

x,y:integer;

Begin

assign(f,’TRAI.TXT’);

reset(f);

while not eof(f) do

begin read(f,x,y); d:=sqrt(x*x+y*y);

writeln(‘khoang cach:’,d:10:2);

end;

close(f);

GV: Hàm eof(f) ở ví dụ trên có chức năng gì?

GV: Có thể sử dụng cấu trúc For thay cho While được không?

GV: Chương trình này thực hiện công việc gì?

2 Tìm hiểu chương

trình ví dụ

HS: Hàm trả về giá trị True nếu con trỏ tệp đang chỉ tới cuối tệp

HS: Không, vì không biết số lượng phần tử của tệp

HS: Tính và đưa ra màn hình khoảng cách từ trại của thầy hiệu trưởng đến trại của mỗi giáo viên

Chương trình

Ví dụ 2 SGK

trang 87

Program Dientro;

Var a:array[1 5] of real;

R1,R2,R3:real; i:integer; f1,f2:text;

Begin

Assign(f1,’RESIST.DAT’); Reset(f1);

Assign(f2,’RESIST.EQU’); Rewrite(f2);

While not eof(f1) do

Begin Readln(f1,R1,R2,R3);

a[1]:=R1*R2*R3/(R1*R2+R1*R3+R2*R3); a[2]:=R1*R2/(R1+R2)+R3;

a[3]:=R1*R3/(R1+R3)+R2;

a[4]:=R2*R3/(R2+R3)+R1;

a[5]:=R1+R2+R3;

For i:=1 to 5 do write(f2,a[i]:9:3,’ ‘);

Writeln(f2);

End;

Close(f1); close(f2);

2 Tìm hiểu chương

trình ví dụ

GV: Mảng A dùng để lưu giữ giá trị nào?

HS: Dùng để lưu giữ điện trở tương đương của 3 điện trở theo 5 cách ghép nối như trong

sơ đồ

2 Tìm hiểu chương

trình ví dụ

Chương trình

3 Câu hỏi và bài tập

phân loại