Cho mình xin một số chương trình pascal kiểu dữ liệu tệp phổ biến chương trình cơ bản nha. Có cách giải luôn á

0 bình luận về “Cho mình xin một số chương trình pascal kiểu dữ liệu tệp phổ biến chương trình cơ bản nha. Có cách giải luôn á”

1. Cấu trúc:

   assign(<tên biến tệp>,<tên tệp>); Mở tệp

   Close(<tên biến tệp>);                     Đóng tệp

   VD:

   Chương trình đọc dữ liệu tệp (đọc một biến n từ tệp):

   uses crt;
   var f:text; // Khai bao bien tep
   n:longint;
   begin
   clrscr;
      assign(f,’input.pas’);reset(f); // Mo tep
         readln(f,n); // Doc bien n tu tep
         write(n);
      close(f); //Dong tep
   readln
   end.

   Chương trình ghi dữ liệu vao tệp (ghi một biến n vào tệp):

   uses crt;
   var f:text; // Khai bao bien tep
   n:longint;
   begin
   clrscr;
      assign(f,’output.pas’);rewrite(f); // Mo tep
         write(‘n=’);readln(n);
         write(f,n); // Ghi bien n vao tep
      close(f); //Dong tep
   readln
   end.

   Bình luận

2. vd: đọc từ tệp ‘data.inp’ hai số nguyên (trên cùng một dòng), xuất hai số này ra màn hình.

   var f: text;

         a, b: integer;

   Begin

       Assign(f, ‘data.inp’); reset(f);

       Read(f, a, b);

       Writeln(‘a = ‘, a);

       Writeln(‘b = ‘, b);

       Readln

   End.

   __________________________

   vd: nhập hai số thực từ bàn phím, ghi vào tệp ‘data.out’ tổng hai số đó.

   var f: text;

         a, b: real;

   begin

       Assign(f, ‘data.out’); rewrite(f);

       Write(‘nhap hai so thuc: ‘); readln(a, b);

       Write(f, a+b);

       Close(f);

   End.

   Bình luận