Bài 14: Kiểu dữ liệu tệp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Cao Bảo tồn

Câu 1 : viết chương trình tạo tệp SONGUYEN.INP chưa các số nguyên .bằng cách nối hai tệp NGUYEN1.INP và NGUYEN2.INP chứa các số nguyên( gợi ý : mở 3 file 2 file để đọc và file SONGUYEN.INP dùng để ghi)

Câu 2: viết chương trình in ra màn hình nội dung của tệp VANBAN.TXT (in theo từng dòng ) và cho biết số dòng của tệp đó.

Câu 3: viết chương trình sao chép tất cả các nội dung của tệp 'NGUON.TXT' sang tệp'DICH.TXT'( gợi ý : đọc từng kí tự của tệp 'NGUON.TXT' và ghi sang tệp 'DICH.TXT')

Câu 4: tệp DULIEU.Int chứa các số nguyên( 2 số cách nhau 1 dấu cách). Viết chương trình tạo tệp SOCHAN.Out Chứa các số chẵn của tệp DULIEU.Int ( gợi ý: đọc từng số từ tệp 'DULIEU.Int' nếu số chẵn thì ghi vào tệp 'SOCHAN.Out')

Câu 5: tệp Dulieu.Int chứa 2 dòng .dòng 1 chứa số nguyên dưowngN (N<=100) dòng 2 chứa N số nguyên. Viết chương trình tạo tệp Dulieu.out chứa N số nguyên của tệp Dulieu .Int được sắp xếp theo chiều giảm dần.( Gợi ý : tạo mảng A gồm 100 phần tử để chứa các số nguyên. Đọc từng số từ tệp 'DULIEU.Int' lưu vào các phần tử của mảng( bao nhiêu số thì lưu vào bấy nhiêu phần tử) sau khi lưu xong sắp xếp theo chiều giảm dần và ghi từng số sau khi sắp xếp trong mảng vào tệp 'DULIEU.Out')

Nguyễn Lê Phước Thịnh
21 tháng 6 2020 lúc 21:27

Câu 1:

const fi1='nguyen1.inp';
fi2='nguyen2.inp';
fo='songuyen.inp';
var f1,f2,f3:text;
a:array[1..10000]of integer;
i,dem:integer;
begin
assign(f1,fi1); reset(f1);
assign(f2,fi2); reset(f2);
assign(f3,fo); rewrite(f3);
dem:=0;
while not eof(f1) do
begin
inc(dem);
read(f1,a[dem]);
end;
while not eof(f2) do
begin
inc(dem);
read(f2,a[dem]);
end;
for i:=1 to dem do
write(f3,a[i]:4);
close(f1);
close(f2);
close(f3);
end.

Câu 2:

uses crt;
const fi='vanban.txt';
var f1:text;
st:array[1..255]of string;
dem:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,st[dem]);
end;
writeln('So dong cua tep ',fi,' la: ',dem);
close(f1);
readln;
end.

Câu 3:

const fi='nguon.txt';
fo='dich.txt';
var f1,f2:text;
st:array[1..255]of string;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eof(f1) do
begin
inc(dem);
readln(f1,st[dem]);
end;
for i:=1 to dem do
writeln(f2,st[i]:4);
close(f1);
close(f2);
end.

Câu 4:

const fi='dulieu.int';
fo='sochan.out';
var f1,f2:text;
a:array[1..255]of integer;
i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
dem:=0;
while not eoln(f1)do
begin
inc(dem);
read(f1,a[dem]);
end;
for i:=1 to dem do
if a[i] mod 2=0 then write(f2,a[i]:4);
close(f1);
close(f2);
end.

Câu 5:

const fi='dulieu.int';
fo='dulieu.out';
var f1,f2:text;
a:array[1..255]of integer;
i,n,tam,j:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
for i:=1 to n do
write(f2,a[i]:4);
close(f1);
close(f2);
end.


Các câu hỏi tương tự
Nguyễn Thi Thư
Xem chi tiết
Nguyễn Thanh
Xem chi tiết
Đỗ Huyền
Xem chi tiết
Lê Tràn Diễm My
Xem chi tiết
supper hunter
Xem chi tiết
Phạm Hồng Nguyên
Xem chi tiết
Đỗ Ngọc Linh
Xem chi tiết
Thành Đạt.
Xem chi tiết
Lan Phuong
Xem chi tiết