//
you're reading...
Chủ đề file, Dùng cho cấp THCS, Dùng cho cấp THPT, Giáo trình Tin học cơ bản

Bài giảng kiểu file – Ví dụ 01

Tạo File có các phần tử là số nguyên từ 1 đến 100.
Lần lượt hiện giá trị của bản ghi thứ 10,bản ghi cuối cùng và bản ghi thứ 20 , sau đó sửa lại giá trị các bản ghi này là 1000,10000 và 2000 . Hiện toàn bộ giá trị các phần tử của File sau khi đã sửa .

Uses Crt;
Const
    Max = 100;
    Fi = 'Thu1.txt';
Var 
    F : File of Integer;
    i,x : Integer;

Procedure TaoF;
Begin
    Clrscr;
    Assign(F,Fi);
    ReWrite(F);
    For i:=1 to Max do Write(F,i);
    Close(F);
End;

Procedure DocPt(n : Integer);
Begin
    Seek(f,n-1);
    Read(F,x);
    Writeln(x);
End;
Procedure GhiPt(n : Integer;x: Integer);
Begin
    Seek(f,n-1);
    Write(F,x);
End;
Procedure SuaF;
Begin
    Assign(F,Fi);
    Reset(F);
    DocPt(20); { Doc ban ghi 20 }
    DocPt(FileSize(f));{ Doc ban ghi cuoi cung }
    DocPt(10); { Doc ban ghi 10 }
    GhiPt(20,2000);{ Sua ban ghi thu 20 la 2000 }
    GhiPt(FileSize(f),10000);{ Sua ban ghi cuoi cung là 2000 }
    GhiPt(10,1000);{ Sua ban ghi thu 10 la 1000 }
    Seek(f,0);
    While not eof(f) do
    Begin
        Read(F,x);
        Write(x:5);
    End;
End;

BEGIN
    Clrscr;
    TaoF;
    SuaF;
    Readln
END.
Advertisements

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Không có bình luận

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Categories

Tháng Mười 2016
H B T N S B C
« Th9   Th11 »
 12
3456789
10111213141516
17181920212223
24252627282930
31  

NCT Computer

Flickr Photos

Thống kê

  • 179,897 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: