Cú pháp: EraseF; Chức năng: Xoá file trên đĩa có tên gán đã được gán cho biến file F file cần xoá là file đang đóng... Đổi tên file.[r]
(1): Giáo án giảng dạy :Bộ môn: Tin học 11 BÀI: BÀI TẬP Tiết: 39 Ngày soạn: Ngày giảng: 23/01/2010 27/01/2010 I MỤC TIÊU Kiến thức - Xây dựng chương trình có File đã học Kỹ - Làm quen với kiểu liệu File Tư - Các thao tác với tệp Thái độ - Tích cực, rèn luyện kỹ lập trình, giúp đỡ bạn II CHUẨN BỊ BÀI GIẢNG Phương tiện + Chuẩn bị giáo viên: Giáo án, bài giảng điện tử, + Chuẩn bị học sinh: Những hiểu biết File - Phương pháp dạy học Gợi mở vấn đáp Đàm thoại Dặt vấn đề III TIẾN TRÌNH DẠY HỌC Kiểm tra bài cũ Kết hợp bài tập Nội dung bài giảng HOẠT ĐỘNG 1.Ôn tập lí thuyết chương V (Tệp và thao tác với tệp.) HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Hôm chúng ta giải số bài tập liên quan đến chương V mà chúng đa đã học vừ qua Vậy bạn nào nhác lại cho thầy giáo biết cách khai báo kiểu tệp? Type <Tên kiểu File> = File of <Kiểu phần tử>; Var <Tên biến File> : <Tên kiểu File>; khai báo trực tiếp: Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (2) : Giáo án giảng dạy :Bộ môn: Tin học 11 Var <Tên biến File> : File of <Kiểu phần tử>; Thầy lấy ví dụ dựa theo các khai báo cuae bạn đa ghi trên bảng Quan sát chương trình Ví dụ: Type SanPham = File of Recor Ten: String[20]; SoHieu: Byte; End; Var f,g: SanPham; khai báo trực tiếp: Var f,g: File of Record Ten: String[20]; SoHieu: Byte; End; Đó la cách khai báo đúng Chú ý: Pascal theo dõi các thao tác truy nhập thông qua trỏ file Mỗi phần tử nào đó ghi vào hay đọc từ file, trỏ file này tự động chuyển đến phần tử Các biến kiểu file không phép có mặt phép gán các biểu thức HOẠT ĐỘNG 2.CÁC THỦ TỤC VÀ HÀM CHUẨN HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH 2.1.1 Gán tên file Cú pháp: Assign(F, Filename); Chức năng: Gán file trên đĩa có tên là Filename cho biến file F, truy xuất trên Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (3) : Giáo án giảng dạy :Bộ môn: Tin học 11 file cụ thể thực thông qua biến file này Chú ý: Filename bao gồm tên ổ đĩa và đường dẫn file không nằm ổ đĩa, thư mục thời 2.1.2 Mở file Cú pháp: Rewrite(F); Chức năng: Tạo file có tên đã gán cho biến file F Nếu file đã có trên đĩa thì liệu trên đó bị xoá và trỏ file trỏ vị trí đầu tiên file 2.1.3 Mở file đã có trên đĩa Cú pháp: Reset(F); Chức năng: Mở file có tên đã gán cho biến file F Nếu file chưa có trên đĩa thì chương trình dừng vì gặp lỗi xuất/nhập Chú ý: Kiểm tra mở file {$I+}: Mở việc kiểm tra Khi gặp lỗi Vào/ra chương trình báo lỗi và dừng lại {$I-}: Không kiểm tra Vào/ra, chương trình không dừng lại treo các thủ tục Vào/ra khác hàm IOresult (hàm chuẩn PASCAL) Hàm trả giá trị true việc mở file xảy tốt đẹp Ví dụ: Procedure MoFile; Var ok:Boolean; St:String; F:Text; Begin Repeat Write(‘Nhập tên tệp: ‘);readln(st); Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (4) : Giáo án giảng dạy :Bộ môn: Tin học 11 Assign(F,st); {$I-} (*Chuyển việc kiểm tra vào cho người dùng*) Reset(F); Ok:=IOResult; {$I+} if not OK then writeln(‘Không mở ‘); Until OK; End; 2.1.4 Đọc liệu từ file Cú pháp: Read(F, x); Chức năng: Đọc phần tử liệu từ file F vị trí trỏ file và gán cho các biến x Cú pháp: Write(F, Value); Chức năng: Ghi giá trị Value vào file F vị trí thời trỏ file 2.1.5 Ghi liệu lên file Cú pháp: Seek(F, n); Chức năng: Di chuyển trỏ file đến phần tử thứ n (phần tử đầu tiên có thứ tự là 0) 2.1.6 Di chuyển trỏ file Cú pháp: Close(F); 2.1.7 Đóng file Chức năng: Cập nhật sửa đổi trên file F và kết thúc thao tác trên file này Cú pháp: Erase(F); Chức năng: Xoá file trên đĩa có tên gán đã gán cho biến file F (file cần xoá là file đóng) 2.1.8 Xoá file 2.1.9 Đổi tên file Email: Heoconnhome@Gmail.com Cú pháp: Rename(F, NewFile); Chức năng: Đổi tên file gán cho biến file F thành tên file là NewFile Trang Lop11.com §T: +84985572861 (5) : Giáo án giảng dạy :Bộ môn: Tin học 11 Cú pháp: EOF(F); 2.2 Các hàm chuẩn Cú pháp: Filepos(F); Chức năng: Hàm trả giá trị True trỏ file cuối file, ngược lại hàm trả giá trị False Chú ý: Con trỏ đầu file tương ứng vị trí Cú pháp: FileSize(F); 2.2.2 Hàm kiểm tra cuối file Chức năng: Hàm trả số lượng phần tử có file 2.2.1 Hàm trả vị trí trỏ file 2.2.3 Hàm trả kích thước file HOẠT ĐỘNG FILE VĂN BẢN (TEXT FILE) HOẠT ĐỘNG CỦA GIÁO VIÊN HOẠT ĐỘNG CỦA HỌC SINH Thành phần là ký tự, song có thể cấu trúc thành các dòng, dòng kết thúc CR và LF, CR có mã ASCII là 13 và LF có mã 10 Cuối file có dấu kết thúc file Ctrl-Z có mã là 26 Do các dòng có độ dài thay đổi nên không tính trước vị trí dòng file Vì file dạng Text có thể đệoc xử lý cách 3.1 Khai báo 3.1 Khai báo Var <Tên biến file>: Text; 3.2 Các thủ tục và hàm tác động trên file dạng text 3.2 Các thủ tục và hàm tác động trên file dạng text 3.2.1 Thủ tục Append 3.2.1 Thủ tục Append Cú pháp: Append(F); Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (6) : Giáo án giảng dạy :Bộ môn: Tin học 11 Chức năng: Mở file đã tồn để bổ sung nội dung vào cuối file Cú pháp: Readln(F,x); 3.2.2 Thủ tục Readln Chức năng: Đọc dòng từ vị trí trỏ file và gán cho biến x Thực xong, trỏ file chuyển đầu dòng Biến x có thể nhận các kiểu: Char, String kiểu số 3.2.3 Thủ tục Writeln Cú pháp: Writeln(F, x); Chức năng: Ghi giá trị x vào file vị trí trỏ file Kết thúc thủ tục, trỏ file chuyển đầu dòng sau Chú ý: Máy in xem là file dạng text, và biến mở sẵn Unit Printer cho file này là LST Vì để in dòng St máy in ta có thể dùng lệnh Writeln(LST,St) HOẠT ĐỘNG Tạo file SINHVIEN.DAT để lưu thông tin lớp sinh viên Mỗi sinh viên cần thông tin sau: Họ tên, Ngày sinh, Quê quán, Điểm trung bình, Xếp loại (trường xếp loại chương trình tự tính lấy dựa vào điểm trung bình sau: điểm trung bình < thì xếp loại ‘D’, <= điểm trung bình < 6.5 thì xếp loai ‘C’, 6.5 <= điểm trung bình < thì xếp loại ‘B’, trường hợp còn lại xếp loại ‘A’) HOẠT ĐỘNG CỦA GIÁO VIÊN Phần khai báo ? HOẠT ĐỘNG CỦA HỌC SINH Program Vi_du_1; Type St20 = String[20]; St10 = String[10]; SinhVien = record Hoten: St20; Ngaysinh,Quequan: St10; DiemTb: real; Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (7) : Giáo án giảng dạy :Bộ môn: Tin học 11 Xeploai: Char; Phần thân: end; Begin Var write('Nhap ten file: '); readln(filename); f: File of SinhVien; assign(f,filename); filename:String; rewrite(f); Sv: sinhvien; i:=1; Bhoten:st20; repeat i:word; Begin writeln('Nhap thong tin cua cac sinh vien'); writeln('Thong tin cua sinh vien thu ', i); write('Ho ten: '); readln(Bhoten); if Bhoten <> '' then begin sv.hoten:= Bhoten; write('Ngay sinh (dd/mm/yyyy): '); readln(sv.ngaysinh); write('Quequan: '); readln(sv.quequan); write('Diem trung binh: '); readln(sv.diemtb); if sv.diemtb<5 then sv.xeploai:='D' else if sv.diemtb<6.5 then sv.xeploai:='C' else if sv.diemtb<8 then sv.xeploai:='B' else Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (8) : Giáo án giảng dạy :Bộ môn: Tin học 11 sv.xeploai:='A'; write(f,sv); end; inc(i); until Bhoten = ''; close(f); end Các em nhà hoàn thiện vào máy, chạy và test kq nhe’! Vang ạ! Củng cố - Các hàm và thủ tục chuẩn File Dặn dò - Về nhà học bài và làm bài trước đến lớp - Các em nghỉ! IV NHẬN XÉT o Phương pháp: o Hiệu sử dụng: o Hiệu SD TBDH: o ND cần điểu chỉnh: NHẬN XÉT CỦA GIÁO VIÊN HƯỚNG DẪN Email: Heoconnhome@Gmail.com Trang Lop11.com §T: +84985572861 (9)