gấp gấp sáng mai em nộp bài rồi ạ CÂU HỎI: lấy ví dụ về cách sử dụng tệp văn bản trong pascal

0 bình luận về “gấp gấp sáng mai em nộp bài rồi ạ CÂU HỎI: lấy ví dụ về cách sử dụng tệp văn bản trong pascal”

1. var f,g:text;

   n:longint;

   begin

   assign(f,’tentep.inp’);reset(f);

   assign(f,’tentep.out’);rewrite(g);

   read(f,n)    {nhập giá trị n từ file f}

   write(g,n);   {in giá trị của n ra file g}

   close(f);close(g);         {đóng tệp}

   end.

   Bình luận

2. Type

         MSN=Array[1..100] of integer; {định nghĩa mảng 100 số nguyên}

         TSN= File of MSN; {định nghĩa tệp TSN có các phần tử là mảng số nguyên}

         TCV=File of String[80]; {định nghĩa tệp TCV có các phần tử là các chuỗi có độ dài 80 ký tự.

   Bangdiem= Record

   ……

              

   End;

   TBD= File of Bangdiem;

   Var:

   Tep1: TSN;

   Tep2: TCV;

   Tep3: TBD;

   Bình luận