tiet 59,60 tin8

Muc tiêu: - Làm quen với việc khai báo và sử dụng các biến mảng.. - 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ố.. HS: N/C kĩ

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

Tiết 59, 60

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ố:

1 Cú pháp khai báo biến mảng kiểu số nguyên và ssố thc trong Pascal có dạng: Var <tên biến mảng> : Array [<chỉ số đầu> <chỉ số cuối>] of integer ;

Var <tên biến mảng> : Array [<chỉ số đầu> <chỉ số cuối>] of real ;

Trong đó chỉ số đầu không lớn hơn chỉ số cuối

2 Tham chiếu tới phần tử của mảng đợc xcs định bằng cách:

< tên biến mảng > [ chỉ số ]