Vi du lam viec voi Tep

Tiãút
37:

Chaìotháöy
mæìng
quyï
cä
âaî
âãún
dæû
tiãút
hoüc häm nay !


TiãútKIÃØM TRA BAÌI CUÎ
37:


Tiãút
37:

Lã
Nguyãùn Thuïy
Hàòng
Giaïo viãn:

Låïp: 11B1


Tióỳt
37:

HOAT ĩNG NHOẽM
Baỡi tỏỷp 1: Vióỳt
chổồng
trỗnh
nhỏỷp tổỡ baỡn
phờm
10
sọỳ
nguyón. Ghi giaù
trở cuớa 10 sọỳ
nguyón
vổỡa
nhỏỷp vaỡo tóỷp
DATA.INP

Baỡi tỏỷp 2: Cho
tóỷp sọỳ nguyón
DATA.INP.
Vióỳt
chổồng
trỗnh
õoỹc dổợ lióỷu tổỡ
tóỷp trón vaỡ in ra
maỡn hỗnh caùc
sọỳ trong tóỷp.


Tióỳt
37:

HOAT ĩNG NHOẽM

Baỡi 1: Vióỳt chổồng
Baỡi 2: Cho tóỷp sọỳ
trỗnh nhỏỷp tổỡ baỡn
nguyón
DATA.INP.
phờm 10 sọỳ nguyón.
Vióỳt chổồng trỗnh
Ghi giaù trở cuớa 10
õoỹc dổợ lióỷu tổỡ
sọỳ
nguyón
vổỡa
tóỷp trón vaỡ in ra
nhỏỷp
vaỡo
tóỷp
maỡn hỗnh caùc sọỳ
HặẽNG
DATA.INP
trong tóỷp.
DN
naỡo
coỡn
- Nhỏỷp giaù trở lỏửn Chổỡng
lổồỹt cho 10 sọỳ chổa kóỳt thuùc tóỷp
nguyón lổu vaỡo bióỳn
n

- Nhỏỷp sọỳ naỡo ghi

thỗ coỡn thổỷc hióỷn
cọng vióỷc:
- oỹc dổợ lióỷu ra tổỡ

tóỷp vaỡ in ra maỡn


Tióỳt
37: HOAT ĩNG NHOẽM
NHOẽM 2, 4
NHOẽM 1, 3
Baỡi
tỏỷp
1:
Vióỳt
chổồng trỗnh nhỏỷp
tổỡ baỡn phờm 10 sọỳ
nguyón. Ghi giaù trở
cuớa 10 sọỳ nguyón
vổỡa nhỏỷp vaỡo tóỷp
DATA.INP

Baỡi tỏỷp 2: Cho tóỷp
sọỳ nguyón DATA.INP.
Vióỳt
chổồng
trỗnh
õoỹc dổợ lióỷu tổỡ tóỷp

trón vaỡ in ra maỡn hỗnh
caùc sọỳ trong tóỷp.


Tióỳt
37:
Baỡi tỏỷp 1: Vióỳt
chổồng trỗnh nhỏỷp
tổỡ baỡn phờm 10 sọỳ
nguyón. Ghi giaù trở
cuớa 10 sọỳ nguyón
vổỡa nhỏỷp vaỡo tóỷp
DATA.INP
Tọứ chổùc dổợ
lióỷu:

Baỡi tỏỷp 2: Cho tóỷp
sọỳ nguyón DATA.INP.
Vióỳt chổồng trỗnh
õoỹc dổợ lióỷu tổỡ
tóỷp trón vaỡ in ra
maỡn hỗnh caùc sọỳ
trong tóỷp.
Tọứ chổùc dổợ
lióỷu:

-Bióỳn tóỷp f

-Bióỳn tóỷp f

-Bióỳn nguyón n
(lổu giaù trở sọỳ
nhỏỷp vaỡo)

-Bióỳn nguyón n
(lổu giaù trở sọỳ
õổồỹc õoỹc ra tổỡ
tóỷp)

-Bióỳn nguyón i


Tióỳt
37:

Baỡi tỏỷp 1: Vióỳt chổồng
trỗnh nhỏỷp tổỡ baỡn
phờm 10 sọỳ nguyón. Ghi
giaù trở cuớa 10 sọỳ
nguyón baitap1;
vổỡa nhỏỷp vaỡo
Program
tóỷp DATA.INP
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.

Baỡi tỏỷp 2: Cho tóỷp sọỳ
nguyón DATA.INP. Vióỳt
chổồng trỗnh õoỹc dổợ
lióỷu tổỡ tóỷp trón vaỡ in
ra maỡn
hỗnh caùc sọỳ
Program
baitap2;
trongn:
tóỷp.
Var
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.


Tióỳt
37:

Baỡi tỏỷp 3: Vióỳt chổồng trỗnh õoỹc dổợ lióỷu tổỡ
tóỷp sọỳ nguyón DATA.INP. Taỷo tóỷp SOCHAN.TXT
gọửm caùc sọỳ chụn coù trong tóỷp DATA.INP

* Yẽ tổồớng:
-Mồớ tóỷp DATA.INP õóứ õoỹc dổợ lióỷu
-Mồớ tóỷp SOCHAN.TXT õóứ ghi dổợ lióỷu
-oỹc dổợ lióỷu tổỡ tóỷp DATA.INP: Kióứm tra
sọỳ vổỡa õoỹc õổồỹc, nóỳu laỡ sọỳ chụn thỗ
õoù vaỡo tóỷp SOCHAN.TXT
*ghi
Tọứsọỳ
chổùc
dổợ
lióỷu:
-Bióỳn
tóỷp f,
g
-Bióỳn n


Tiãút
37:

* Chæång trçnh:
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.


CÁU HOÍI CUÍNG CÄÚ
Tiãút
37:


Tiãút
37:

BAÌI TÁÛP VÃÖ
NHAÌ

Bäø sung baìi táûp 3: Tênh täøng
caïc säú chàôn vaì täøng caïc säú leí
trong tãûp DATA.INP, ghi kãút quaí
vaìo tãûp KQ.DAT.


Tiãút
37: