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 | Được cập nhật: 7 giờ trước (0:43:25) Kiểu file: DOCX | Lượt xem: 3402 | Lượt Download: 214 | File size: 0.022882 Mb
Nội dung tài liệu
Tải xuốngCác tài liệu liên quan
- Một số bài toán Tin học trẻ hay ôn thi HSG
- Nội dung học tập môn Tin học lớp 11 trong Học kỳ II, Năm học 2019 - 2020. THPT Lê Hồng Phong - Phú Yên.
- Tin Học 11 Lý thuyết Xâu hàm.
- Bài tập trắc nghiệm Tin học 11
- Bài tập kiểu tệp Tin 11
- Đề và đáp án Tin 11 phần 1.
- ÔN TẬP KIỂU XÂU
- Tóm tắt chương trình pascal đơn giản
- Đề kiểm tra 1 tiết môn tin HỌC LỚP 11 CÓ ĐÁP ÁN
- Đáp án đề kiểm tra 15 phút môn tin học lớp 11 mã đề 134
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