Bài giảng Môn Tin học lớp 8 - Tiết 58: Bài tập (tiếp)

Ngµy d¹y: 25/ 3 / 2009 
	TiÕt 58:
BµI TËP 
Môc tiªu:
1. Kiến thức
Lµm quen víi viÖc khai b¸o vµ sö dông c¸c biÕn m¶ng.
¤n luyÖn c¸ch sö dông c©u lÖnh lÆp for…do.
Cñng cè c¸c kÜ n¨ng ®äc, hiÓu vµ chØnh söa ch­¬ng tr×nh.
2. Kỹ năng: ViÖc g¸n gi¸ trÞ, nhËp gi¸ trÞ vµ tÝnh to¸n víi c¸c gi¸ trÞ cña mét phÇn tö trong biÕn m¶ng ®­îc thùc hiÖn th«ng qua chØ sè t­¬ng øng cña phÇn tö ®ã.
3.Th¸i ®é: Th¸i ®é häc tËp nghiªm tóc, tÝch cùc lµm c¸c d¹ng bµi tËp øng dông.
ChuÈn bÞ : 
Gi¸o viªn : Tµi liÖu, GA ®iÖn tö, Phßng m¸y tÝnh...
Häc sinh : Vë ghi, SGK, ®äc tr­íc bµi thùc hµnh, häc thuéc kiÕn thøc lý thuyÕt ®· häc.
TiÕn tr×nh Lªn líp : 
1. Kiểm tra bài cũ:
2. Bài mới:
Ho¹t ®éng cña GV vµ hs
Néi dung ghi b¶NG
Hoạt động 1: bài tập 1
- Gv gọi Hs đọc đề của bài tập1
- Hs đọc đề.
- Gv gọi 3 đại diện của 3 tổ lên bảng làm bài.
- Hs làm bài.
- Gv gọi hs nhận xét.
- Hs: nhận xét.
- Gv nhận xét, chữa bài
- Hs: lắng nghe, ghi nhớ.
Bài tập1 
§o¹n ch­¬ng tr×nh sau dïng ®Ó s¾p xÕp l¹i d·y sè ®­îc ghi trong m¶ng A[i], i = 1,2,..., N, theo thø tù t¨ng dÇn:
For i:=1 to N do
For j:=i to N do
If A[i] > A[j] then 
Begin Tg:=A[i]; A[i]:=A[j]; A[j]:=Tg; End;
H·y kiÓm tra tÝnh ®óng ®¾n cña ®o¹n ch­¬ng tr×nh trªn.
Hoạt động 2: bài tập 2
- Gv gọi Hs đọc đề của bài tập 2
- Hs đọc đề.
- Gv gọi 3 đại diện của 3 tổ lên bảng làm bài.
- Hs làm bài.
- Gv gọi hs nhận xét.
- Hs nhận xét.
- Gv nhận xét, chữa bài:
- Hs lắng nghe, chép vào vở
Bài tập 2
H·y viÕt ch­¬ng tr×nh nhËp 5 sè ngyªn tõ bµn phÝm vµ ghi ra mµn h×nh sè lín nhÊt trong 5 sè ®ã theo hai c¸ch: kh«ng sö dông biÕn m¶ng vµ sö dông biÕn m¶ng.
a) NÕu kh«ng sö dông biÕn m¶ng, ch­¬ng tr×nh cã thÓ dµi nh­ sau:
uses crt;
var So_1, So_2, So_3, So_4, So_5, Max: integer;
begin
clrscr;
write('Nhap so thu nhat: '); readln(So_1);
write('Nhap so thu hai: '); readln(So_2);
write('Nhap so thu ba: '); readln(So_3);
write('Nhap so thu tu: '); readln(So_4);
write('Nhap so thu nam: '); readln(So_5);
Max:=So_1;
If Max<So_2 then Max:=So_2;
If Max<So_3 then Max:=So_3;
If Max<So_4 then Max:=So_4;
If Max<So_5 then Max:=So_5;
writeln('So lon nhat: ',Max);
end.
b) NÕu sö dông biÕn m¶ng, ch­¬ng tr×nh chØ ng¾n gän nh­ sau:
uses crt;
var i, Max: integer;
 A: array[1..5] of integer;
begin
clrscr;
for i:=1 to 5 do
 begin write('Nhap so thu ',i,':'); readln(A[i]) end;
Max:=a[1];
for i:=2 to 5 do If Max<a[i] then Max:=a[i];
writeln('So lon nhat: ',Max);
end.
Tæng kÕt ®¸nh gi¸ (4’) :
KiÓm tra ®¸nh gi¸
- Gv chú ý với Hs những điểm hay sai của Hs.
- Hs: lắng nghe và rút kinh nghiệm.
- Gv nhận xét:
- Hs lắng nghe.
H­íng dÉn vÒ nhµ.
Gv dặn dò: Hs về nhà học kĩ chuẩn bị kiểm tra