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?
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.