- Thủ tục ghi:
5. Dặn dò: Xem lại các bài tập đã sửa chuẩn bị cho tiết thực hành tới và làm bài tập sau:
BT: Viết chương trình tạo một tệp songuyen.txt trong ổ đĩa C:, ghi vào đó n số nguyên với mỗi số trên
Tuần 27 tiết 42.
Ngày soạn: 27/02/2012. Ngày dạy: 28/02/1012.
Đề bài dạy: BAØI TẬP CHƯƠNG 5
I. Mục đích yêu cầu:
- Hiểu rõ hơn kiểu dữ liệu tệp.
- Rèn luyện kỹ năng viết chương trình đối với kiểu dữ liệu tệp.
II. Chuẩn bị của thầy và trò:
Thầy: SGK + giáo án + kiểm tra phòng máy.
Troø: SGK + vở ghi + xem trước bài thực hành ở nhà.
III. Tiến trình tiết dạy:
1. Ổn định lớp.2. Kiểm tra bài cũ: 2. Kiểm tra bài cũ: Câu hỏi:
Trả lời:
3. Vào bài thực hành:
Hoạt động của thầy và trò Nội dung cần đạt
GV: Nêu cú pháp khai báo biến tệp, thủ tục gán tên
tệp cho biến tệp và thủ tục mở một tệp mới.
HS:
- Cú pháp khai báo biến tệp: Var <tên biến tệp>:TEXT; - Thủ tục gán tên tệp cho biến tệp:
Assign(<biến tệp>,<Định vị tệp>); - Thủ tục mở một tệp mới:
Rewrite(<biến tệp>);
GV: Giả sử có 3 trại GVCN có tọa độ như sau:
(2,3); (4,3); (4,7) thì các tọa độ đó được ghi vào tệp như thế nào?
HS: 2 3 4 3 4 7
GV: Để ghi dữ liệu vào tệp đúng theo quy cách trên
thì ta phải sử dụng những thủ tục ghi nào?
HS: Write(f, ‘ ’); và Write(f,x, ‘ ’,y);
GV: Giả sử ta có biến tệp f1, f2 thuộc kiểu tệp văn
Bài tập 1: Viết chương trình tạo một tệp TRAI.TXT.
Nhập dữ liệu từ bàn phím tọa độ của các trại GVCN và ghi vào tệp (tọa độ là các số nguyên cách nhau bởi dấu cách và không kết thúc bởi kí tự xuống dòng). Program Khoang_cach; Uses Crt; Var f:text; d:real; x,y,n,i:integer; BEGIN Clrscr; Assign(f,'Trai.txt'); Rewrite(f);
Write('Co bao nhieu trai GVCN:'); Readln(n);
For i:=1 to N do BEGIN
write(f,' ');
Write('Nhap toa do cua gvcn thu',i,':'); readln(x,y); write(f,x,' ',y); end; Close(f); Readln; END.
Bài tập 2: Viết chương trình tạo tệp RESIST.DAT.
bản. Viết các lệnh tạo tệp mới RESIST.DAT.
HS: Assign(f1,'Resist.Dat');
Rewrite(f1);
GV: Giả sử có 2 bộ số thực như sau:
(1,2,3); (2,3,4), (3,4,5) thì các bộ số thực này được trình bày trong tệp như thế nào?
HS: Soạn và chạy thử chương trình.
GV: Quản lí lớp và hướng dẫn học sinh thực hành.
là 3 điện trở R1, R2, R3 và ghi dữ liệu vào tệp (các số cách nhau bởi dấu cách và mỗi bộ 3 số trên một hàng).
Program Dientro; Uses Crt;
Var a:array[1..5] of real;
R1,R2,R3:real; i,N:integer; f1,f2:Text; BEGIN Clrscr; Assign(f1,'Resist.Dat'); Rewrite(f1);
Write('Ban nhap vao bao nhieu bo:'); Readln(N); For i:=1 to N do
BEGIN
Write('Nhap vao bo thu ',i,':'); Readln(r1,r2,r3); Writeln(f1,r1,' ',r2,' ',r3); End; Close(f1); Readln; END.