HOẠT ĐỘNG CỦA THẦY VÀ
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ờnPhanloai. Tỡm hiểu cỏc cõu lệnh trong phần thõ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
if a[i]>=8.0 then Gioi:=Gioi+1;
if a[i]<5 then Kem:=Kem+1;
if (a[i]<8.0) and (a[i]>=6.5) then
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.
D - 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
E - HƯỚNG DẪN VỀ NHÀ (2’)
- Về nhà xem lại bài học tiết sau chỳng ta thực hành tiếp.
Tuần 31 Ngày soạn: 31/03/2013
Tiết 60 Ngày giảng: 01/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 I - MỤC TIấU
1. Kiến thức
- Làm quen với việc khai bỏo và sử dụng cỏc biến mảng
2. Kỹ Năng
- ễn luyện cỏch sử dụng cõu lệnh lặp for…do.
- Củng cố cỏc kĩ năng đọc, hiểu và chỉnh sửa chương trỡnh.
3. Thỏi độ: Nghiờm tỳc II. CHUẨN BỊ
1. Giỏo viờn: giỏo ỏn, mỏy chiếu2. Học sinh: Kiến thức cũ, sỏch, vở. 2. Học sinh: Kiến thức cũ, sỏch, vở. III - PHƯƠNG PHÁP
- Thuyết trỡnh, giảng giải, vấn đỏp.
IV - TIẾN TRèNH LấN LỚPA - ỔN ĐỊNH (1’) A - ỔN ĐỊNH (1’)
B - KIỂM TRA BÀI CŨ (3’)
1. Hóy cho một số vớ dụ về lặp với số lần chưa biết trước.
C - BÀI MỚI (38’)HOẠT ĐỘNG CỦA THẦY VÀ HOẠT ĐỘNG CỦA THẦY VÀ
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
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ữ
- GV hướng dẫn HS: Làm bài tập
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:');
for i:=1 to n do 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ử.
D - 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
E - HƯỚNG DẪN VỀ NHÀ (2’)
Tuần 32 Ngày soạn: 07/04/2013
Tiết 61 Ngày giảng: 08/04/2013
QUAN SÁT HèNH KHễNG GIAN VỚI PHẦN MỀM YENKA I.Mục đớch
1.Kiến thức
Biết phần mền Yenka dựng để làm gỡ
HS biờt khỏm phỏ, cỏc hỡnh khụng gian như : Thay đổi, di chuyển, thay đổi kớch thước, thay đổi màu cho cỏc hỡnh .
2.Kĩ năng
HS thực hiện được cỏc kỹ năng thay đổi, di chuyển, thay đổi kớch thước, thay đổi màu cho cỏc hỡnh.
3.Thỏi độ
HS cú thỏi độ ham hiểu biết, học hỏi.