Giáo án Tin học 8 (70 tiết)

Tuần 26 Tiết 51:
BàI thực hành 6: Sử dụng lệnh WHILE ... do
A. Mục tiêu:
ViÕt ®­îc ch­¬ng tr×nh Pascal cã sö dông vßng lÆp While ... do
BiÕt sö dông c©u lÖnh ghÐp.
RÌn kü n¨ng ®äc hiÓu ch­¬ng tr×nh cã sö dông vßng lÆp while ... do
B. Phương pháp
1. Ph­¬ng ph¸p: ThuyÕt tr×nh, nªu vÊn ®Ò, vÊn ®¸p
2. Ph­¬ng tiÖn: M¸y tÝnh, .
C. Chuẩn bị:
1. Gi¸o viªn:
ChuÈn bÞ mét sè thuËt to¸n vµ ch­¬ng tr×nh .
ChuÈn bÞ m¸y tÝnh,.
2. Häc sinh:- Thùc hiÖn nhiÖm vô vÒ nhµ cña tiÕt tr­íc.
D. Tiến trình bài dạy:
æn ®Þnh líp (1 phót)
KiÓm tra bµi cò (kh«ng kiÓm tra)
Gi¶ng bµi míi:
HĐ của GV và hs
Nội dung

H§ 1: 1
Gv: ViÕt ®Ò bµi 1.
Gv: Em h·y cho biÕt input vµ output cña bµi to¸n?
Gv: Chóng ta cÇn tÝnh TBC bao nhiªu sè?
Gv: Nªu c¸ch tÝnh trung b×nh céng 4 sè.
Hs:

Gv: VËy tÝnh TBC n sè ta lµm ntn?
Hs:

Gv: TÝnh
ntn?
Hs: S
S + x;
Gv: lµm sao ®Ó cã S míi = S cò + x.
Hs: S
0 (b1)
Gv: qluËt S
S + x; ®Õn khi nµo dõng?
Hs: Khi dem > n. ( ph¸t hiÖn ra ®iÒu kiÖn lÆp cña While…do

Gv: Dùa vµo hÖ thèng c©u hái. LÇn l­ît h×nh thµnh thuËt to¸n.
Hs: Dùa vµo thuËt to¸n tr×nh bµy ch­¬ng tr×nh hoµn chØnh.
Gv: Quan s¸t, chØnh söa tõng c©u lÖnh Hs lªn b¶ng tr×nh bµy.

Bµi 1: ViÕt ch­¬ng tr×nh Pascal sö dông c©u lÖnh While…do ®Ó tÝnh trung b×nh céng n sè thùc nhËp tõ bµn phÝm. (n, vµ n sè thùc ®­îc nhËp tõ bµn phÝm)
a. M« t¶ thuËt to¸n.
INPUT: NhËp n, nhËp n sè nguyªn.
OUTPUT: KÕt qu¶ TBC cña n sè nguyªn
B1: NhËp gi¸ trÞ cña n( tÝnh TBC bao nhiªu sè);
dem(0; S(0;
B2: Trong khi dem <= n th× lµm
NhËp sè thø (1,2,3n) (cho x)
S(S+x; dem(dem +1;
B3: TÝnh TB (S/n;
B4: In kÕt qu¶ TB, kÕt thóc ch­¬ng tr×nh.
b. ViÕt ch­¬ng tr×nh.
Program tinhTB;
Uses Crt;
Var n,dem: integer;
x, S, TB: real;
BEGIN
ClrScr;
Write(‘Muon tinh TB bao nhieu so n=’); Readln(n);
dem:= 0; S:=0;
While dem <= n do
Begin
Write(‘Nhap so thu’, dem, ‘ = ‘ );readln(x);
S:= S + x; dem:= dem + 1;
End;
TB:= S/n;
Write(‘ Vay trung binh cong ’, n, ‘so la: ‘, TB:6:2);
Readln
END.



H­íng dÉn vÒ nhµ (2 phót)
Ghi nhí có ph¸p vµ ý nghÜa cña c©u lÖnh lÆp while ... do...,
§äc vµ t×m hiÓu ch­¬ng tr×nh trong §äc thªm 1 – TÝnh gÇn ®óng sè Pi.
















Ngày soạn :8/3/2009
Ngày dạy : 8A : 8B :
8C : 8D : 8E :
Tuần 26 Tiết 52:
BàI thực hành 6: Sử dụng lệnh WHILE ... do
A. Mục tiêu:
ViÕt ®­îc ch­¬ng tr×nh Pascal cã sö dông vßng lÆp While ... do
BiÕt sö dông c©u lÖnh ghÐp.
RÌn kü n¨ng ®äc hiÓu ch­¬ng tr×nh cã sö dông vßng lÆp while