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 fordo.
- 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ố ].