Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:
A. f1 := ‘DL.TXT’;
B. ‘DL.TXT’ := f1;
C. Assign(f1, ‘DL.TXT’);
D. Assign(‘DL.TXT’, f1);
Để gắn tệp DL.TXT cho biến tệp f1 ta sử dụng câu lệnh:
A. f1 := ‘DL.TXT’;
B. ‘DL.TXT’ := f1;
C. Assign(f1, ‘DL.TXT’);
D. Assign(‘DL.TXT’, f1);
Viết các câu lệnh để đọc dữ liệu từ tệp “DL.TXT” 2 biến x1, x2 (sử dụng biến tệp f).
Assign(f,’DL.TXT’);
Reset(f);
Read(f,x1,x2);
Close(f);
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 2:
a) Chương trình có 2 tệp và 2 biến tệp
- 2 tệp đó là : input.txt và output.txt
- 2 biến tệp đó là: f1 và f2
b)
- Tệp input.txt được gắn cho biến tệp là f1 .Nó dùng để đọc dữ liệu
-Tệp output.txt được gắn cho biết tệp là f2. Nó dùng để ghi dữ liệu
c)
Câu lệnh gắn tập và mở tệp của input.txt và output.txt là : assign(f1 ,' input.txt'); và assign(f2 ,' output.txt);
Câu lệnh đọc tệp là: reset(f1);
Câu lệnh để ghi tệp là: rewrite(f2);
d) Điều kiện để tham chiếu đến tất cả các cặp số nguyên trong tệp input.txt là phải có biến tệp f1 ở trước mọi câu lệnh đọc dữ liệu.
e) Chương trình có 2 lệnh đóng tệp. Không thể không đóng tệp , vì nếu không đóng thì dữ liệu đã thực hiện không thể lưu lại .
Câu 1:
uses crt;
var s,k,tam:string;
dem,i:integer;
begin
clrscr;
write('nhap xau S:'); readln(s);
dem:= 1;
for i:=2 to length(s) do
begin
if s[i]=s[i-1] then inc(dem);
if s[i]<>s[i-1] then
begin
str(dem,tam);
if dem>1 then k:=k+tam+s[i-1]
else k:=k+ s[i-1];
dem:= 1;
end;
if i=length(s) then
begin
str(dem,tam);
if dem >1 then k:=k+tam+s[i]
else k:=k+s[i];
end;
end;
for i:=1 to length(k) do
write(k[i]);
readln;
end.
viết chương trình ghi vào tệp DL.txt các số từ 1 đến 50
const fi='dl.txt';
var i:integer;
f:text;
begin
assign(f,fi); rewrite(f);
for i:=1 to 50 do
write(f,i,' ');
close(f);
end.
Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:
A. read(f1, a, b);
B. write(f1, a, b);
C. readln(a, b, f1);
D. writeln(a, b, f1);
Để đọc dữ liệu từ biến tệp f1 chứa 2 biến a, b ta sử dụng câu lệnh:
A. read(f1, a, b);
B. write(f1, a, b);
C. readln(a, b, f1);
D. writeln(a, b, f1);
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
uses crt;
const fi='dl.txt'
fo='soam.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
begin
if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)
else if a[i]<0 then write(f2,a[i]:4);
end;
close(f1);
close(f2);
readln;
end.
Cho tệp số nguyên Dl.txt chứa các số nguyên , mỗi số cách nhau một kí tự trắng .Viết chương trình đọc các số nguyên dương từ tệp rồi đưa ra tổng các số dương và ghi vào tệp soam.txt các số nguyên âm .
uses crt;
const fi='dl.txt'
fo='soam.txt'
var f1,f2:text;
a:array[1..100]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
for i:=1 to n do
begin
if a[i]>0 then writeln('Can bac hai cua ',a[i],' la: ',sqrt(a[i]):4:2)
else if a[i]<0 then write(f2,a[i]:4);
end;
close(f1);
close(f2);
readln;
end.
Viết các câu lệnh để đọc dữ liệu từ tệp “dulieu.txt” 2 biến a, b (sử dụng biến tệp f1).
Assign(f1,’dulieu.txt’);
Reset(f1);
Read(f1,a,b);
Close(f1);