Bài Tập Kiểu Tệp Tin 11 - Lib24.Vn

• Trang chủ
• Tin học
• Tài liệu Tin học lớp 11

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

Gửi bởi: Nguyễn Trần Thành Đạt 3 tháng 2 2021 lúc 13:42:35 | Update: hôm kia lúc 7:36:43 Kiểu file: DOCX | Lượt xem: 3339 | Lượt Download: 205 | File size: 0.022882 Mb

Nội dung tài liệu

Tải xuống Link tài liệu: Copy Đã copy link!

Các tài liệu liên quan

Có thể bạn quan tâm

Thông tin tài liệu

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ụ:

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

Đăng nhập

Có thể đăng nhập bằng tài khoản EnglishFun

Email Mật khẩu Ghi nhớ đăng nhập Đăng nhập Đăng ký Quên mật khẩu