Câu1: sử dụng nnlt pascal viết ct nhập vào 1 xâu, ghi xâu vừa nhập vào tệp ketqua.txt

Câu2: đọc ct sau và trả lời câu hỏi;

Program giaiptbac1;

Var f1,f2: text;

a, b: integer;

x : real;

Begin

assign(f1 ,' input.txt'); reset(f1);

assign(f2 ,' output.txt); rewrite(f2);

while not eof(f1) do

Begin

read(f1,a,b);

x:=-b/a;

writeln(f2,' nghiem la:' , x:7:1);

End;

Close(f1);

Close(f2);

End.

a, ct sử dụng bao nhiêu tệp, biến tệp, kể tên

b, Tệp input.txt, output.txt được gắn cho những biến tệp nào? Nó dùng để đọc hay ghi dữ liệu?

c, chỉ ra câu lệnh gắn tên tệp, mở tệp của tệp input.txt và output.txt. Câu lệnh đọc tệp? Câu lệnh ghi tệp?

d, điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt

e, ct sử dụng bao nhiêu câu lệnh đóng tệp? Không đóng tệp được không? Vì sao?

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