TIN 8 - TUAN 31 - TIET 59 + 60

Ngày soạn: 06/04/2013
` Ngày dạy: 09/04/2013

Bài thực hành 7:
XỬ LÝ DÃY SỐ TRONG CHƯƠNG TRÌNH (t1)
I. MỤC TIÊU:
1. Kiến thức: Biết cách sử dụng biến mảng vào trong các bài toán.
2. Kĩ năng:
- Ôn luyện cách khai báo mảng :array[1..100] of real; lệnh lặp if ..then, 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à viế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 một dãy số, tính tổng dãy số.
3. Thái độ: HS có thái độ ham hiểu biết, học hỏi.
II. CHUẨN BỊ:
1. Giáo viên: SGK, SGV, tài liệu, Giáo án, Đồ dùng dạy học
2. Học sinh: Làm bài tập trong SGK
III. TIẾN TRÌNH DẠY HỌC:
1. Ổn định tổ chức: (1’)
2. Kiểm tra bài cũ: Kiểm tra trong quá trình thực hành
3. Bài mới: (41’)
Hoạt động của giáo viên
Hoạt động của học sinh
Kiến thức ghi bảng

Hoạt động 1: Bài tập 1 (20’)

Gv: Cho học sinh tìm hiểu Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?




Gv: Hướng dẫn học sinh làm bài tập và sửa lỗi










HS chia nhóm làm thực hành.
Nội dung chương trình:
Program P_Min;
Var
i, n, Min : integer;
A: array[1..100] of integer;
Begin
write(`Hay nhap do dai cua day so, N=`); readln(n);
writeln(`Nhap cac phan tu cua day so:`);
For i:=1 to n do
Begin
write(`a[`,i,`]=`);
readln(a[i]);
End;
Min:=a[1];
for i:=2 to n do if Min>a[i] then Min:=a[i];
write(`So nho nhat la Min =’, min);
Readln;
End.
Bài tập 1: Chương trình tìm giá trị nhỏ nhất trong dãy số nguyên P_Min ?
















Hoạt động 2: Bài tập 2 (21’)

Gv: Cho Hs đọc đề bài tập thực hành 1 SGK





HS chia nhóm làm thực hành.


GV gợi ý:
- Dùng câu lệnh if…then…


Hs: Đọc đề và tiến hành làm bài tập trên máy
Program Phan_loai;
uses crt;
Var
i, n, G, Kh, TB, K: integer;
A: array[1..100] of real;
Begin
clrscr;
write(`nhap so HS trong lop, n= `); readln(n);
writeln(`Nhap diem :`);
For i:=1 to n do
Begin
write(i,` . `); readln(a[i]);
End;
G:=0; Kh:= 0; TB:= 0; K:= 0;
for i:=1 to n do
Begin
if a[i] >= 8.0 then G:= G + 1;
if a[i] <5.0 then K:= K + 1;
if (a[i] <8.0 ) and (a[i] >=6.5) then Kh:= Kh + 1;
if (a[i] >= 5 ) and (a[i] < 6.5) then TB:= TB + 1;
end;
writeln(` Ket qua hoc tap: `);
writeln(G, ` ban hoc gioi `);
writeln(Kh, ` ban hoc kha `);
writeln(TB, ` ban hoc trung binh`);
writeln(K, ` ban hoc kem `);
readln;
End.
Bài tập 2:
Viết chương trình nhập điểm của các bạn trong lớp. Sau đó in ra màn hình số bạn đạt kết quả học tập loại giỏi, khá, TB và kém.
Tiêu chuẩn:
- Loại giỏi: 8.0 trở lên
- Loại khá: 6.5 đến 7.9
- Loại TB: 5.0 đến 6.4
- Loại kém: dưới 5.0


4. Củng cố: (2’