Câu 1)Sử dụg NNLT PASCAL viết chươg trình nhập vào 1 xâu, ghi xâu vừa nhập vào tệp ketqua.txt Câu 2) đọc chương trình sau và trả lời các 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 cof(f1) do Begin Read(f1,a,b); x:= -b/a; Writeln (f2,' nghiem la:', x:7:1); End; Close(f1); Close(f2); End. a) chương trình 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) chươg trìh sử dụg bao nhiêu câu lệh đóg tệp? K đóng tệp được k? Vì sao?
2 câu trả lời
Câu 1:
Const Fi='KETQUA.TXT';
Var g: text;
St: String;
Begin
Assign(g,Fo); Rewrite(g);
Write('Nhap St: '); Readln(St);
Write(g,St);
Close(g);
End.
Câu 1:
program bai_giai;
uses crt;
var f:text;
s:string;
begin
clrscr;
Assign(f,'Ketqua.txt'); rewrite(f);
write('Nhap xau: '); readln(s);
write(f,s);
close(f);
end.
Câu 2:
a) Chương trình sử dụng 2 tệp
Có 2 biến tệp là f1,f2
Hai tên tệp là input.txt và output.txt
b) tệp input.txt được gán cho biến tệp f1
tệp ouput.txt được gán cho biến tệp f2
c) Hai câu lệnh gán
+ Assign(f1,'input.txt');
+ Assing(f2.output.txt');
Hai câu lệnh mở tệp
+ Mở để đọc: reset(f1);
+ Mở để ghi: rewrite(f2);
Câu lệnh đọc tệp: read(f1,a,b);
Câu lệnh ghi tệp: writeln(f2,' nghiem la:',x:7:1);
d) Điều kiện là: not cof(f1)
e) sử dụng 2 câu là close(f1), close(f2)
