Bài tập kiểu tệp Tin 11

BÀI TẬP HƯỚNG DẪN HỌC SINH TỰ HỌC: KIỂU DỮ LIỆU TỆP

I. Bài tập có hướng dẫn

Bài 1: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP, tính và đưa ra màn hình tổng các số chẵn trong tệp.

Hướng dẫn:

*Xác định bài toán:

Input: Tệp SONGUYEN.INP

Output: Tổng các số chẵn

Chương trình:

{Khai báo}

uses crt;

var f:text;Tong,a,a1,a2:integer;

{Gắn tệp, mở tệp để đọc dữ liệu}

begin

clrscr;

assign(f,'songuyen.inp');

reset(f);

Tong:=0;

{Kiểm tra nếu con trỏ tệp chưa đến cuối tệp thì đọc dữ liệu từ tệp và tính tổng các số chẵn}

while not eof(f) do

begin

read(f,a);

if a mod 2 = 0 then

tong:=tong+a;

end;

{In kết quả tổng ra màn hình, đóng tệp}

Write (' Tong cac so chan la:', tong);

close(f);

end.

Bài 2: Cho tệp SONGUYEN.INP gồm các số nguyên (mỗi số cách nhau bởi dấu cách và không kết thúc bởi ký tự xuống dòng). Hãy đọc dữ liệu từ tệp SONGUYEN.INP và ghi vào tệp SONGUYEN.OUT tổng các số nguyên chẵn.

Hướng dẫn:

*Xác định bài toán:

Input: Tệp SONGUYEN.INP

Output: Tệp SONGUYEN.OUT

Chương trình:

Tương tự chương trình ở bài 1 nhưng kết quả được ghi vào tệp SONGUYEN.OUT

{Khai báo}

uses crt;

var f1, f2 :text;Tong,a,a1,a2:integer;

{Gắn tệp, mở tệp để đọc/ghi dữ liệu}

begin

clrscr;

assign(f1,'songuyen.inp');

assign(f2,'songuyen.out');

reset(f1);

Rewrite(F2);

Tong:=0;

{Kiểm tra nếu con trỏ tệp chưa đến cuối tệp thì đọc dữ liệu từ tệp và tính tổng các số chẵn}

while not eof(f1) do

begin

read(f1,a);

if a mod 2 = 0 then

tong:=tong+a;

end;

{Ghi kết quả vào tệp SONGUYEN.OUT, đóng tệp}

Writeln (F2, tong);

close(f1);

close(f2);

end.

Bài 3: Cho tệp VANBAN.INP gồm nhiều dòng (mỗi dòng có độ dài không quá 255 ký tự). Hãy đọc dữ liệu từ tệp VANBAN.INP và đếm xem trong tệp có tất cả bao nhiêu dòng rồi ghi kết quả vào tệp VANBAN.OUT.

Ví dụ:

VANBAN.INP	VANBAN.OUT
DI HOC Hom qua Em den truong Me dat tay tung buoc <EOF>	4

Hướng dẫn:

*Xác định bài toán:

Input: Tệp VANBAN.INP

Output: Tệp VANBAN.OUT

Chương trình:

{Khai báo}

uses crt;

var f1,f2:text; dong:string; d:byte;

{Gắn tệp, mở tệp để đọc/ghi dữ liệu}

assign(f1,'vanban.inp');

reset(f1);

assign(f2,'vanban.out');

rewrite(f2);

d:=0;

{Kiểm tra nếu con trỏ tệp chưa đến cuối tệp thì đọc dữ liệu từ tệp và đếm số dòng}

while not eof(f1) do

begin

readln(f1,dong);

d:=d+1;

end;

{Ghi kết quả số dòng vào tệp VANBAN.OUT, đóng tệp}

write(f2,d);

close(f1);

close(f2) ;

end.

II. Bài tập tự làm

Bài 1: Cho tệp SON.INP gồm các số nguyên (mỗi số trên 1 dòng). Hãy đọc dữ liệu từ tệp SO.INP và đếm xem có bao nhiêu số chẵn, số lẻ rồi ghi vào tệp SO.OUT (mỗi kết quả ghi trên 1 dòng).

Bài 2: Cho tệp VANBAN.INP gồm nhiều dòng (mỗi dòng có độ dài không quá 255). Hãy đọc dữ liệu từ tệp VANBAN.INP và ghi kết quả là độ dài của mỗi dòng vào tệp VANBAN.OUT

Bài 3: Cho tệp VANBAN.INP gồm n+1 dòng (dòng đầu tiên chứa số nguyên n, các dòng tiếp theo mỗi dòng chứa 1 xâu kí tự có độ dài không quá 255). Hãy đọc dữ liệu từ tệp VANBAN.INP và ghi kết quả là những dòng có độ lớn hơn 10 vào tệp VANBAN.OUT

Ví dụ: