tiet 59,60 tin8

Ns: 15 / 4 / 09 ; nd: 17 / 4 / 09.

TiÕt 59, 60 .

Bµi thùc hµnh 7: xö lÝ d·y sè trong ch¬ng tr×nh.

A. Muc tiªu:

- Lµm quen víi viÖc khai b¸o vµ sö dông c¸c biÕn m¶ng.

- ¤n luyÖn c¸c c¸ch sö dông c¸c c©u lÖnh for…do.

- Cñng cè c¸c kÜ n¨ng ®äc, hiÓu vµ chØnh söa ch¬ng tr×nh.

- HiÓu vµ biÕt ®îc ch¬ng tr×nh víi thuËt to¸n t×m gi¸ trÞ lín nhÊt, nhá nhÊt cña d·y

sè, tÝnh tæng d·y sè.

B. ChuÈn bÞ:

GV: Phßng m¸y, m¸y chiÕu.

HS: N/C kÜ phÇn bµi tËp thùc hµnh ë SGK.

C. TiÕn tr×nh lªn líp:

1. Bµi cò: H·y cho biÕt có ph¸p khai b¸o biÕn m¶ng kiÓu sè nguyªn vµ kiÓu sè thùc

Trong ch¬ng tr×nh Pascal ?

2. Néi dung thùc hµnh:

GV cho HS gâ vµ ch¹y thö ch¬ng tr×nh bµi tËp 1 ë sgk.

Program phanloai ;

Uses crt ;

Var I, n , gioi , kha , trungbinh , kem : integer ;

A : array [ 1 . . 100 ] of real ;

Begin

Clrscr ;

Write (‘ Nhap so cac ban trong lop, n = ‘) ; readln (n) ;

Writeln (‘ Nhap diem : ‘ ) ;

For i: = 1 to n do begin ( I, ‘.’ ) ; readln (a[i] ) ; end ;

Gioi: = 0 ; kha: = 0 ; Trungbinh: = 0 ; Kem: = 0 ;

For i: = to n do

Begin

If a[i] > = 8.0 then gioi: = Gioi + 1 ;

If a[i] < = 5.0 then kem: = kem + 1 ;

If a[i] < 8.0 and ( a[i] > = 6.5) then : kha = kha +1 ;

If a[i] > = 5.0 and ( a[i] < 6.5) then Trungbinh : = Trungbinh + 1 end ;

Writeln (‘ ket qua hoc tap : ‘ ) ;

Writeln ( Gioi , ‘ ban hoc gioi’ ) ;

Writeln ( kha , ‘ ban hoc kha’ ) ;

Writeln ( Trung binh , ‘ ban hoc trung binh’ ) ;

Writeln ( Kem , ‘ ban hoc kem’ ) ;

Readln

End.

Sau khi häc sinh gâ ch¬ng tr×nh xong GV yªu cÇu häc sinh cho ch¹y thö vµ kiÓm tra

kû lçi chÝnh t¶.

NÕu cßn thêi gian GV cã thÓ cho HS thùc hµnh tiÕp bµi tËp 2 ë sgk.

D. Còng cè: