1 - ỔN ĐỊNH (1’)
2 - KIỂM TRA BÀI CŨ (3’)
Hĩy cho một số vớ dụ về lặp với số lần chưa biết trước?
3 - BÀI MỚI (38’)
HOẠT ĐỘNG CỦA THẦY VÀ TRề TRề
NỘI DUNG KIẾN THỨC
GV: Đưa ra bài tập 1 SGK ? Gọi học sinh nờu ý tưởng - GV hướng dẫn
HS: Làm bài tập
Bài 1. 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ỏ, trung bỡnh và kộm (theo tiờu chuẩn từ 8.0 trở lờn đạt loại giỏi, từ 6.5 đến 7.9 đạt loại khỏ, từ 5.0 đến 6.4 đạt trung bỡnh và dưới 5.0 xếp loại kộm).
a) Xem lại cỏc vớ dụ 2 và vớ dụ 3, bài 9 về cỏch sử dụng và khai bỏo biến mảng trong Pascal.
b) Liệt kờ cỏc biến dự định sẽ sử dụng trong chương trỡnh. Tỡm hiểu phần khai bỏo dưới đõy và tỡm hiểu tỏc dụng của từng biến:
program Phanloai; uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer;
A: array[1..100] of real;
a) Gừ phần khai bỏo trờn vào mỏy tớnh và lưu tệp với tờn Phanloai. Tỡm hiểu cỏc cõu lệnh trong với tờn Phanloai. Tỡm hiểu cỏc cõu lệnh trong phần thõn chương trỡnh dưới đõy:
Begin
clrscr;
write(‘Nhap so cac ban trong lop, n = ‘); readln(n);
writeln(‘Nhap diem:’);
For i:=1 to n do Begin write(i,’.
‘); readln(a[i]); End;
Gioi:=0; Kha:=0; Trungbinh:=0; Kem:=0;
for i:=1 to n do
begin
Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then Kha:=Kha+1;
if (a[i]>=5) 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(Trungbinh,’ ban hoc trung binh’);
writeln(Kem,’ ban hoc kem’); readln
End.
d) Gừ tiếp phần chương trỡnh này vào mỏy tớnh sau phần khai bỏo. Dịch, chạy chương trỡnh.
Ti ết 2:
3 - BÀI MỚI (38’)
HOẠT ĐỘNG CỦA THẦY VÀ TRề TRề
NỘI DUNG KIẾN THỨC
GV: Đưa ra bài tập 2 SGK ? Gọi học sinh nờu ý tưởng - GV hướng dẫn
HS: Làm bài tập
Bài 2. Bổ sung và chỉnh sửa chương trỡnh trong bài 1 để nhập hai loại điểm Toỏn và Ngữ văn của cỏc bạn, sau đú in ra màn hỡnh điểm trung bỡnh của mỗi bạn trong lớp (theo cụng thức điểm trung bỡnh = (điểm Toỏn + điểm Ngữ văn)/2), điểm trung bỡnh của cả lớp theo từng mụn Toỏn và Ngữ văn. a) Tỡm hiểu ý nghĩa của cỏc cõu lệnh sau đõy: Phần khai bỏo:
Var
i, n: integer;
TbToan, TbVan: real;
DiemToan, DiemVan: array[1..100] of real;
Phần thõn chương trỡnh:
begin
writeln('Diem trung binh:');
writeln(i,'. ',(DiemToan[i] +DiemVan[i])/2:3:1); TbToan:=0; TbVan:=0; for i:=1 to n do begin TbToan:=TbToan+DiemToan[i]; TbVan:=TbVan+DiemVan[i] end; TbToan:=TbToan/n; TbVan:=TbVan/n; writeln('Diem trung binh mon Toan: ',TbToan:3:2);
writeln('Diem trung binh mon Van: ',TbVan:3:2);
end.
b) Bổ sung cỏc cõu lệnh trờn vào vị trớ thớch hợp trong chương trỡnh. Thờm cỏc lệnh cần thiết, dịch và chạy chương trỡnh với cỏc số liệu thử.
4 - CỦNG CỐ (3’)
- Cỏch sử dụng biến mảng
- Cỏch kết hợp với lệnh lặp for…do
5- HƯỚNG DẪN VỀ NHÀ (2’)
- Về nhà xem lại bài học, xem tr ước b i :à Quan sỏt hỡnh học khụng gian với ph ần m ền Yenka . Ngày soạn: 19/04/2009. Ngày dạy: 21/04/2009. Tiết : 61. 62
QUAN SÁT HèNH KHÔNG GIAN VễÙI PHẦN MỀM YENKA. I. múc tiẽu:
- HS biẽt khaựm phaự, caực hỡnh khõng gian nhử: Thay ủoồi, di chuyeồn, thay ủoồi kớch thửụực, thay ủoồi maứu cho caực hỡnh.
- HS thửùc hieọn ủửụùc caực kyừ naờng thay ủoồi, di chuyeồn, thay ủoồi kớch thửụực, thay ủoồi maứu cho caực hỡnh.
II. Chuaồn bũ:
1. Giaựo viẽn: taứi lieọu, giaựo aựn.
2. Hóc sinh: Xem trớc nọi dung bài học, dụng cụ học tập.