Bài 16. Ví dụ làm việc với tệp
Chia sẻ bởi Lưu Tiến Quang |
Ngày 10/05/2019 |
68
Chia sẻ tài liệu: Bài 16. Ví dụ làm việc với tệp thuộc Tin học 11
Nội dung tài liệu:
1. Ôn tập kiến thức lí thuyết
GV: Cách khai báo biến kiểu tệp?
THPT
Huỳnh Thúc Kháng
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
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 khi đọc/ghi tệp văn bản
HS: hàm eof ()
hàm eoln()
2. Tìm hiểu chương trình ví dụ
Để hiểu rõ thế nào là làm việc tới tệp ta xét ví 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);
End.
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
THPT
Huỳnh Thúc Kháng
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ì?
THPT
Huỳnh Thúc Kháng
2. Tìm hiểu chương trình ví dụ
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
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);
End.
THPT
Huỳnh Thúc Kháng
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ơ đồ
THPT
Huỳnh Thúc Kháng
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 về nhà
Đọc trước nội dung bài: chương trình con và phân loại
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
Xin chân thành cảm ơn
GV: Cách khai báo biến kiểu tệp?
THPT
Huỳnh Thúc Kháng
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
HS: Var
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 khi đọc/ghi tệp văn bản
HS: hàm eof (
hàm eoln(
2. Tìm hiểu chương trình ví dụ
Để hiểu rõ thế nào là làm việc tới tệp ta xét ví 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);
End.
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
THPT
Huỳnh Thúc Kháng
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ì?
THPT
Huỳnh Thúc Kháng
2. Tìm hiểu chương trình ví dụ
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
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);
End.
THPT
Huỳnh Thúc Kháng
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ơ đồ
THPT
Huỳnh Thúc Kháng
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 về nhà
Đọc trước nội dung bài: chương trình con và phân loại
Bài 16:VÍ DỤ LÀM VIỆC VỚI TỆP
Xin chân thành cảm ơn
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Lưu Tiến Quang
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)