Vi du lam viec voi Tep

Viết đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp... Viết chương trình đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp.. - Nhập giá trị lần lượt cho 10 số ngu

Tiết

37:

Chào mừng quý thầy cô đã đến dự tiết học hôm nay !

Tiết

37:

KIỂM TRA BÀI CŨ

Tiết

37:

Giáo viên: Lê

Nguyễn Thúy Hằng

Lớp: 11B1

Tiết 37:

HOẠT ĐỘNG NHÓM

Bài tập 1: Viết

nhập từ bàn

nguyên Ghi giá

trị của 10 số

nhập vào tệp

DATA.INP

Bài tập 2: Cho tệp số nguyên DATA.INP Viết

đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp

Tiết 37:

HOẠT ĐỘNG NHÓM

Bài 1: Viết chương

trình nhập từ bàn

phím 10 số nguyên

Ghi giá trị của 10

số nguyên vừa

nhập vào tệp

DATA.INP

Bài 2: Cho tệp số nguyên DATA.INP Viết chương trình đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp

- Nhập giá trị lần

lượt cho 10 số

nguyên lưu vào biến

n

- Nhập số nào ghi

ngay số đó vào tệp

DATA.INP

Chừng nào còn chưa kết thúc tệp thì còn thực hiện công việc:

- Đọc dữ liệu ra từ tệp và in ra màn hình các số trong tệp

HƯỚNG DẪN

Tiết 37: HOẠT ĐỘNG NHÓM

Bài tập 1: Viết

chương trình nhập

từ bàn phím 10 số

nguyên Ghi giá trị

của 10 số nguyên

vừa nhập vào tệp

DATA.INP

Bài tập 2: Cho tệp số nguyên DATA.INP Viết chương trình đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp

NHÓM 1, 3 NHÓM 2, 4

Tiết 37:

Bài tập 1: Viết

chương trình nhập

từ bàn phím 10 số

nguyên Ghi giá trị

của 10 số nguyên

vừa nhập vào tệp

DATA.INP

Bài tập 2: Cho tệp số nguyên DATA.INP Viết chương trình đọc dữ liệu từ tệp trên và in ra màn hình các số trong tệp

•Tổ chức dữ

liệu:

-Biến tệp f

-Biến nguyên n

(lưu giá trị số

nhập vào)

-Biến nguyên i

•Tổ chức dữ liệu:

-Biến tệp f -Biến nguyên n (lưu giá trị số được đọc ra từ tệp)

Tiết 37:

Program baitap2;

Var n: integer;

f : text;

begin

assign(f,’DATA.INP’); reset(f);

while not eof(f) do

begin

read(f,n);

write(n);

end;

close(f);

end.

Program baitap1;

Var n : integer;

i : byte;

f : text;

begin

assign(f,’DATA.INP’);

rewrite(f);

for i:= 1 to 10 do

begin readln(n);

write(f,n:5);

end;

close(f);

end.

Bài tập 1: Viết chương

trình nhập từ bàn

phím 10 số nguyên Ghi

giá trị của 10 số

nguyên vừa nhập vào

tệp DATA.INP

Bài tập 2: Cho tệp số nguyên DATA.INP Viết chương trình đọc dữ liệu từ tệp trên và in

ra màn hình các số trong tệp

Tiết 37:

Bài tập 3: Viết chương trình đọc dữ liệu từ tệp số nguyên DATA.INP Tạo tệp SOCHAN.TXT gồm các số chẵn có trong tệp DATA.INP

-Mở tệp DATA.INP để đọc dữ liệu

-Mở tệp SOCHAN.TXT để ghi dữ liệu

-Đọc dữ liệu từ tệp DATA.INP: Kiểm tra số vừa đọc được, nếu là số chẵn thì ghi số đó vào tệp SOCHAN.TXT

* Ý tưởng:

* Tổ chức

dữ liệu:

-Biến tệp f,

g

-Biến n

nguyên

Tiết 37:

Program baitap3;

Var n,S,dem: integer;

f,g : text;

begin

assign(f,’DATA.INP’);

reset(f);

assign(g,’SOCHAN.TXT’);

rewrite(g);

while not eof(f) do

begin

read(f,n);

If n mod 2 = 0 then write(g, n:3);

end;

close(f);

close(g);

end.

* Chương trình:

Tiết

37:

CÂU HỎI CỦNG CỐ

Tiết 37:

BÀI TẬP VỀ NHÀ

Bổ sung bài tập 3: Tính tổng các số chẵn và tổng các số lẻ trong tệp DATA.INP, ghi kết quả vào tệp KQ.DAT.

Tiết 37: