bai 17 lop 11

13 366 0
bai 17 lop 11

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Bài 17 Giáo án điện tử tin học lớp 11 Vai trò kiểu tệp Dữ liệu kiểu tệp đợc lu trữ lâu dài nhớ (đĩa từ, CD, ) không bị tắt nguồn điện Lợng thông tin lu trữ tệp lớn phụ thuộc vào dung lợng đĩa Có hai loại tệp thờng dùng: Tệp định kiểu Là tệp mà phần tử có kiểu Số lợng phần tử không xác định trớc Tệp văn Gồm kí tự đợc phân chia thành nhiều dòng Dướiưđâyưtaưchỉưxétưcácưkhaiưbáoưvàưlàmưviệcưvớiưtệpưvănưbản.ư Khai báo tệp văn Var ư: TEXT; Ví dụ: tep1,tep2ư: Text; Program vd1; Uses crt; Var tep1,tep2: TEXT; Thao tác với tệp Gán tên tệp Mở tệp để ghi Mở tệp để đọc Đọc liệu từ tệp Ghi liệu tệp Đóng tệp a Gán tên tệp ASSIGN(,); Tênưtệp:ưLàưbiếnưxâuưhoặcưhằngưxâu Ví dụ: ASSIGN(tep1, DULIEU.DAT); Biến tep1 đợc gắn với tệp có tên DULIEU.DAT ASSIGN(tep2, D:\TP\BAITAP.INP); Biến tep2 đợc gắn với tệp có tên BAITAP.INP th mục TP ổ đĩa D b Mở tệp Thủ tục mở tệp để ghi kết quả: REWRITE (); Nếuư nhưư trênư ổư D:\TPưchưaưcóưtệpư BAITAP.INP,ư thìư tệpư sẽư đượcư tạoư rỗng.ưNếuưđãưcó,ưthìưnộiưdungưcũư bịư xoáư đểư chuẩnư bịư ghiư dữư liệuư Program vd1; Uses crt; Var tep1,tep2: TEXT; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE (tep2); c Ghi liệu tệp Thủ tục ghi liệu tệp WRITE(, ); WRITELN (, ); Danhư sáchư kếtư quảư gồmư mộtư hayư nhiềuư phầnư tử.ư Phầnư tửư cóư thểư làư biến,ưhằngưxâuưhoặcưbiểuưthức Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE (tep2); a:=3; b:=5; WRITE (tep2,a,ưưư,b); Close(tep2); Readln; END Giá trị hai biến a=3, b=5 đợc ghi tệp BAITAP.INP d Đọc liệu từ tệp Thủ tục mở tệp để đọc liệu RESET (); Thủ tục đọc liệu từ tệp: READ(, ); READLN (, ); ưDanhưsáchưbiếnưlàưmộtưhoặcưnhiềuư biếnưđơn Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); RESET (tep2); READLN (tep2,x1,y1); WRITE (Haiưsoưdoưlaư,x1,y1); Close(tep2); Readln; END e Thủ tục đóng tệp CLOSE(< tên biến tệp>) Ghi liệu tệp Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); Đọc liệu từ tệp Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE (tep2); RESET (tep2); a:=3; b:=5; READLN(tep2,ưx1,y1); WRITE (tep2,a,b); WRITE (Haiưsoưdoưlaư,x1,y1); Close(tep2); Readln; END Close(tep2); Readln; END f Một số hàm chuẩn thờng dùng xử lí tệp văn EOF(); Cho giá trị trỏ tới cuối tệp EOFLN(); Cho giá trị trỏ tới cuối dòng Hãy nhớ! Khai báo tệp văn bản: Var < Tên biến tệp>: Text; Gán tên tệp: ASSIGN(); Mở tệp: - Để đọc: RESET(); - Để ghi: REWRITE(< Tên biến tệp>); Đọc/ghi tệp Đọc: READ(, biến nhận); Ghi: REWRITE(< Tên biến tệp>,biến đa ra); Đóng tệp CLOSE(< tên biến tệp>); [...]... tục đóng tệp CLOSE(< tên biến tệp>) Ghi dữ liệu ra tệp Program vd1; Uses crt; Var tep2: TEXT; a,b: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); Đọc dữ liệu từ tệp Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, D:\TP\BAITAP.INP); REWRITE (tep2); RESET (tep2); a:=3; b:=5; READLN(tep2,ưx1,y1); WRITE (tep2,a,b); WRITE (Haiưsoưdoưlaư,x1,y1); Close(tep2); Readln; ... ASSIGN(tep2, D:TPBAITAP.INP); Biến tep2 đợc gắn với tệp có tên BAITAP.INP th mục TP ổ đĩa D b Mở tệp Thủ tục mở tệp để ghi kết quả: REWRITE (); Nếuư nhưư trênư ổư D:TPưchưaưcóưtệpư BAITAP.INP,ư... BEGIN Clrscr; ASSIGN(tep2, D:TPBAITAP.INP); REWRITE (tep2); a:=3; b:=5; WRITE (tep2,a,ưưư,b); Close(tep2); Readln; END Giá trị hai biến a=3, b=5 đợc ghi tệp BAITAP.INP d Đọc liệu từ tệp Thủ... integer; BEGIN Clrscr; ASSIGN(tep2, D:TPBAITAP.INP); Đọc liệu từ tệp Program vd2; Uses crt; Var tep2: TEXT; x1,y1: integer; BEGIN Clrscr; ASSIGN(tep2, D:TPBAITAP.INP); REWRITE (tep2); RESET (tep2);

Ngày đăng: 21/12/2015, 15:35

Từ khóa liên quan

Mục lục

  • Slide 1

  • Slide 2

  • Slide 3

  • Slide 4

  • Slide 5

  • Slide 6

  • Slide 7

  • Slide 8

  • Slide 9

  • Slide 10

  • Slide 11

  • Slide 12

  • Slide 13

Tài liệu cùng người dùng

  • Đang cập nhật ...

Tài liệu liên quan