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 >);
1. var t: text;
2. assign(k,f);
3. rewrite (f);
4. reset(f);
5. read(k);
6. readln(n);
7. write (f,g);
8. writeln (f,g);
9. eof(k)
10. eoln(k);
11. close(s);
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)