Cho mảng A gồm 10 phần tử kiểu xâu. Đoạn lệnh nào ghi ra tệp văn bản tên là 'S.TXT theo dạng: gồm 10 dòng, mỗi dòng một xâu?

A. assign(f,'S.TXT'); rewrite(t); writeln(f, A); close(f);

B. assign(f,'S.TXT'); rewrite(t); write(f, A); close(f);

C. assign(f,'S.TXT'); rewrite(t); for i:=1 to 10 do writeln(f, A[i]); close(f);

D. assign(f,'S.TXT'); rewrite(t); for i:=1 to 10 do write(f, A[i]); close(f);

Hãy suy nghĩ và trả lời câu hỏi trước khi xem đáp án

Môn: Tin Học Lớp 11

Chủ đề: Tệp Và Thao Tác Với Tệp

Bài: Ví dụ làm việc với tệp

Câu hỏi liên quan

Trong Pascal, thực hiện chương trình VD_bt1_txt dưới đây sẽ ghi kết quả nào trong các kết quả cho dưới đây vào tệp văn bản BT1.TXT ?

Program VD_bt1_txt ;

Uses crt ;

Var f : text ;

Begin

Clrscr;

Assign(f, ‘BT1.TXT ’) ;

Rewrite(f) ;

Write(f, 123 + 456) ;

Phát biểu nào sau đây là đúng với chương trình Vi_Du ?

Program Vi_Du ;

Uses crt ;

Var f : text ; ch : char ; tenfile : string[30] ;

Begin

Write(‘ Nhap ten file : ’) ; readln(tenfile) ;

Assign(f, tenfile) ; Reset(f) ;

While not eof(f) do

Begin

Read(f, ch) ;

Write(ch) ;

Chọn phát biểu đúng với chương trình Vi_Du dưới đây?

Program Vi_Du ;

Uses crt ;

Var      f : text ;          ch : char ; tenfile : string[30] ;

Begin

          Write(‘ Nhap ten file : ’) ;         readln(tenfile) ;

          Assign(f, ‘tenfile’) ;        Reset(f) ;

Whilenot eof(f) do

          Begin

                   Read(f, ch) ;

                   Write(ch) ;

          End ;

Close(f) ;

End.

Trong Pascal, cho trước tệp văn bản BT2.TXT chỉ có một dòng, chứa dòng chữ : CHAO MUNG BAN DEN VOI LAP TRINH ngay ở đầu dòng. Thực hiện chương trình VD_bt2_txt , trên màn hình sẽ hiện kết quả nào trong các kết quả cho dưới đây ?

Program VD_bt2_txt ;

Uses crt ;

Var f : text ;

S : string[13] ;

Begin

Clrscr;

Assign(f, ‘BT2.TXT ’) ;

Reset(f) ;

Read(f, S) ;

Write(S) ;

Close(f) ;

End .