//
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.

About pascalteacher

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

Thảo luận

Chưa có phản hồi.

Gửi phản hồ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 Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Danh mục

Tháng Mười 2016
M T W T F S S
« Sep   Nov »
 12
3456789
10111213141516
17181920212223
24252627282930
31  

NCT Computer

Flickr Photos

sunset

Detroit Night

White-winged Scoter | Macreuse à ailes blanches

More Photos

Thống kê

  • 95,281 lượt xem

%d bloggers like this: