Output: Tệp KETQUA.TXT chứa các HS: Input: Dữ liệu được đọc ở tệp số chia hết cho 3... DATA.INP; Output: Tệp KETQUA.INP chứa các số chia hết cho 3..[r]
Trang 1GIÁO ÁN
Bộ môn: Tin
Lớp: 11
TIẾT: BÀI TẬP VỀ TỆP
I Mục tiêu
1
Các
2
3 Thái 89
II Chuẩn bị
GV: Tài 2(< các *B ; quan, giáo án
HS: Sách, D< bút, 3EF
III Phương pháp dạy học dự kiến
@G ý, (? trình, I 8 % E sinh
IV Nội dung bài giảng
1
2
3
Hoạt động 1: O 2J các 1 8P Q %
GV- Yêu ( sinh 2J các thao tác Q %
HS-
Trang 2Bài 1: Cho tệp DATA.INP, mỗi dòng
chứa một số nguyên Hãy lập trình tính
trung bình cộng các số.
1 Phân tích bài toán
Input: [6 2( 83G 8 D %
DATA.INP;
Output: Trung bình
2 Diễn tả thuật toán:
’DATA.INP’), dem:=0; s:=0;
^3E 2: O( eof(f) thì qua *3E 3
Còn không: - read(f,n);
- s:=s+n;
- dem:=dem+1;
- Quay 2J *3E 2;
là s/dem
Còn không thì file
3 Viết chương trình
VAR f:text;
s,n,dem:integer;
begin
assign(f,'DATA.TXT');
RESET(f);
dem:=0; s:=0;
while not eof(f) do
begin
GV: Ra 8Q bài )%
HS: Chép
GV: Hãy nêu input và output " bài toán?
HS: Input: [6 2( 83G 8 D % DATA.INP;
Output: Trung bình
GV:
>(? bài toán?
HS:
" %
GV:
toán.Dùng + 8 1 #v cách 2 kê
HS:
khác
GV: 6" bài " hs
HS: Theo dõi bài.
GV: Yêu
8v
HS: Lên GV: C " 2k cho sinh
Mở rộng GV:
- Tính
-
Trang 3read(f,n);
s:=s+n; dem:=dem+1;
end;
if dem>0 then write('trung binh
cong la:',s/dem:12:2)
else write('file rong');
close(f);
readln;
end
Bài 2: Cho tệp DATA.TXT chứa các số
nguyên Hãy lập trình tìm các số chia
hết cho 3 và ghi vào tệp KETQUA.TXT.
1 Xác định bài toán
Input: [6 2( 83G 8 D %
DATA.TXT;
Output: % KETQUA.TXT " các
chia cho 3
2 Diễn tả thuật toán
‘DATA,TXT), gán và
(f1,KETQUA.TXT) 80 ghi 1 >('&
Bước 2: O( eof(f) thì qua *3E 3
Còn không: - read(f,n);
- O( n mod 3=0 thì ghi vào % KETQUA.TXT;
- Quay 2J *3E 2;
Bước 3: close(f), close(f1).
3 Viết chương trình
GV: Giao bài )% 2 S 8Q cho HS
HS: Chép
GV: Hãy nêu input và output " bài toán?
HS: Input: [6 2( 83G 8 D % DATA.INP;
Output: % KETQUA.INP " các chia cho 3
GV:
>(? bài toán?
HS:
chia cho 3 thì ghi vào % KETQUA.INP
GV:
toán.Dùng + 8 1 #v cách 2 kê
HS:
khác
GV: 6" bài " hs
Trang 4Var f,f1: text;
n: integer;
Begin
Assign(f,’DATA.TXT’);
Reset(f);
Assign(f1,’KETQUA.TXT’);
Rewrite(f1);
While not eof(f) do
Begin
Read(f,n);
If n mod 3=0 then writeln(f1,n);
End;
Close(f);
Close(f1);
Readln;
End
HS: Theo dõi bài.
GV: Yêu
8v
HS: Lên GV: C " 2k cho sinh
Mở rộng:
GV:
- Ghi vào nguyên
V Củng cố, dặn dò
-
- Làm các bài
...GV- Yêu ( sinh 2J thao tác Q %
HS-
Trang 2Bài 1: Cho tệp DATA.INP,... dem:=0; s:=0;
^3E 2: O( eof(f) qua *3E
Cịn khơng: - read(f,n);
- s:=s+n;
- dem:=dem+1;
- Quay 2J *3E 2;
là s/dem
Còn khơng file
3...
end
Bài 2: Cho tệp DATA.TXT chứa số
nguyên Hãy lập trình tìm số chia
hết cho ghi vào tệp KETQUA.TXT.
1 Xác định toán
Input: