Ai giúp mình cho 1 ví dụ ở 11 cú pháp bên dưới. Tks !!! 1. var < tên biến tệp > : text; 2. assign(< biến tệp >,< tên tệp >); 3. rewrite(< biến tệp >);

Ai giúp mình cho 1 ví dụ ở 11 cú pháp bên dưới. Tks !!!
1. var < tên biến tệp > : text;
2. assign(< biến tệp >,< tên tệp >);
3. rewrite(< biến tệp >);
4. reset(< biến tệp >);
5. read(< biến tệp >,< danh sách biến >);
6. readln(< tên biến tệp >,< danh sách biến >);
7. write(< biến tệp >,< danh sách kết quả >);
8. writeln(< biến tệp >,< danh sách kết quả >);
9. eof()
10. eoln(< biến tệp >)
11. close(< tên biến tệp >);

0 bình luận về “Ai giúp mình cho 1 ví dụ ở 11 cú pháp bên dưới. Tks !!! 1. var < tên biến tệp > : text; 2. assign(< biến tệp >,< tên tệp >); 3. rewrite(< biến tệp >);”

  1. 1. var f:text;

    2. assign(f,’DAYCON.INP’);

    3. rewrite(f);

    4. reset(f);   

    5. read(f,n);    (đọc từ tệp f biến n)

    6. readln(f,n);  (đọc từ tệp f biến n rồi xuống hàng)

    7. write(f,n);  (viết vào tệp f biến n)

    8. writeln(f,n);   (viết vào tệp f biến n rồi xuống hàng)

    9. eof(f);  (cho đến khi hết tệp f)

    10. eoln(f);   (cho đến khi hết hàng f)

    11. close(f);   (đóng tệp f)

    Bình luận

Viết một bình luận