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')
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.
