Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);While not eoln(f1) do BeginRead(f1,x);Write(x, ‘ ); End;Close(f1); A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat; C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc; Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);While not EOF(f1) doBeginRead(f1,x); Write(f2,x,’ ’);End;Close(f1); Close(...
Đọc tiếp
Câu 24. Trong pascal, cho đoạn chương trình:Assign(f1,‟Input.dat‟); Reset(f1);
While not eoln(f1) do
Begin
Read(f1,x);Write(x, ‘ ');
End;
Close(f1);
A. Xuất dữ liệu trong tệp Input.dat ra màn hình; B. Ghi dữ liệu vào tệp Input.dat;
C. Gắn tên tệp Input.Dat cho biến tệp f1; D. Mở tệp Input.dat để đọc;
Câu 25. Đoạn chương trình sau thực hiện: Assign(f1,‟Input.dat‟); Assign(f2,‟Output.dat‟); Reset(f1); Rewrite(f2);
While not EOF(f1) do
Begin
Read(f1,x); Write(f2,x,’ ’);
End;
Close(f1);
Close(f2);
Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên cùng một dòng.
B.Đọc dữ liệu từ tệp Input.dat và ghi dữ liệu ra tệp Output.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Input.dat trên nhiều dòng.
Đọc dữ liệu từ tệp Output.dat và ghi dữ liệu ra tệp Intput.dat trên cùng một dòng.
Câu 26. Cho tệp B13.TXT chỉ có một dòng „abcdefgh‟ và chương trình sau: Var f:text; S1:string[3]; S2:string;
Begin
Assign(f,’B13.TXT’);
Reset(f);
Read(f,S2,S1);
Readln
End.
Sau khi chạy chương trình trên thì S1,S2 có kết quả là
a. S1=’absdefgh’; S2=’ ’
b. S1=’ ’; S2=’abcdefgh’
c. S1=’abcde’;S2=’fgh’
d. Cả a,b,c sai
