một tệp thì chứa gì
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
const fi='dulieu.txt';
fo='ketqua.txt';
var f1,f2:text;
a,b,c,d:array[1..100]of integer;
i,n,dem,dem1:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n],b[n]);
end;
dem:=0;
dem1:=0;
for i:=1 to n do
if a[i]>b[i] then
begin
inc(dem);
inc(dem1);
c[dem]:=a[i];
d[dem]:=b[i];
end
else begin
inc(dem);
inc(dem1);
c[dem]:=b[i];
d[dem]:=a[i];
end;
for i:=1 to dem do
write(f2,c[i]:4);
writeln(f2);
for i:=1 to dem1 do
write(f2,d[i]:4);
close(f1);
close(f2);
end.
Tập tin (viết tắt cho tập thông tin; còn được gọi là tệp, tệp tin); tiếng Anh: file; là một tập hợp của thông tin được đặt tên. Thông thường thì các tập tin này chứa trong các thiết bị lưu trữ như đĩa cứng, đĩa mềm, CD, DVD cũng như là các loại chip điện tử dùng kĩ thuật flash có thể thấy trong các ổ nhớ có giao diện USB
*suprise*
make friend with me
tệp tin ( file ) là tập hợp các thông tin có liên quan với nhau được lưu trữ trên bộ nhớ ngoài. Cụ thể tệp tin là các chương trình , dữ liệu được lưu trên đĩa . Để phân biệt các tệp tin với nhau thì mỗi cái có 1 tên
các loại tệp tin là âm thanh, hình ảnh, văn bản, chương trình
a) Cây thư mục ở Hình 9: Ổ đĩa tên là (G:).
b) Trong thư mục Hoc tap chứa:
- Thư mục con: Toan, Tin hoc.
- Tệp: Sach Toan, Vo Toan 3, Sach Tin hoc, Vo Tin hoc 3, Danh muc sach vo.
c) Các bước tìm đến tệp:
- Danh muc sach vo:
Mở ổ đĩa (G:) trong máy tính.
Mở thư mục Hoc tap.
Tìm tệp Danh muc sach vo.
- Vo Tin hoc 3:
Mở ổ đĩa (G:) trong máy tính.
Mở thư mục Hoc tap.
Tiếp tục mở thư mục Tin hoc.
Tìm tệp Vo Tin hoc 3.
const fi='songuyen.txt';
fo='kluan.txt';
var f1,f2:text;
n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if n mod 2=0 then writeln(f2,'La so chan')
else writeln(f2,'La so le');
close(f1);
close(f2);
end.
const fi='bt.inp';
fo='bt.out';
var f1,f2:text;
st:string;
i,d,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=#32 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
1 tệp thì chứa dữ liệu