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.
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ố.
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.
Tiến trình lên lớp:
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 ?
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.
Cũng cố:
Cú pháp khai báo biến mảng kiểu số nguyên và ssố thưc trong Pascal có dạng:
Var : Array [. . ] of integer ;
Var : Array [. . ] of real ;
Trong đó chỉ số đầu không lớn hơn chỉ số cuối.
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ố ].