III. TIẾN TRèNH BÀI HỌC:
1. Hoạt động 1: Khởi động (5 phỳt) Ổn định tổ chức lớp
Kiểm tra bài cũ( kiểm tra trong quỏ trỡnh thực hành)
2. Hoạt động 2: Hỡnh thành kiến thức (30 phỳt)
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG, YấU CẦU CẦN ĐẠT
Hướng dõ̃n Bài 1
G: Gợi ý và cho hs khai bỏo biến trong chương trỡnh. chương trỡnh.
G: Nhập n
G: Nhập giỏ trị cho mảng
H: Khai bỏo
H: Viết lệnh nhập n và nhập giỏ trị cho mảng
Thực hành 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 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ụngtrong chương trỡnh. Tỡm hiểu phần khai 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:
c)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 phần thõn chương trỡnh dưới đõy:
d) Gừ tiếp phần chương trỡnh này vàomỏy tớnh sau phần khai bỏo. Dịch, chạy mỏy tớnh sau phần khai bỏo. Dịch, chạy chương trỡnh.
program Phanloai;
uses crt;
Var
i, n, Gioi, Kha, Trungbinh, Kem: integer; 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 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
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.
H:F9 sửa lỗi và chạy chương trỡnh. H: Nhận xột chương trỡnh.
HOẠT ĐỘNG CỦA GV VÀ HS NỘI DUNG, YấU CẦU CẦN ĐẠT
Bài 2 Bài 2. Bổ sung và chỉnh sửa chương trỡnh
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.
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 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ử.
G: Nhận xột và rỳt ra bài toỏn nhập dóy sốvà tớnh giỏ trị trung bỡnh cho daỹ số. và tớnh giỏ trị trung bỡnh cho daỹ số.
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 Write(‘nhập n:’); readln(n); For i:=1 to n do begin Write(‘diemtoan[‘,I,’]=’); Readln(diemtoan[i]; End; For i:=1 to n do begin Write(‘diemvan[‘,I,’]=’); Readln(diemvan[i]; End;
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.
H: Chạy và kiểm tra lỗi của chương trỡnh.H: đỏnh giỏ bài toỏn. H: đỏnh giỏ bài toỏn.
3.Hoạt động 3: Luyện tập, vận dụng, mở rộng (10 phỳt)
Cỏch khai bỏo mảng trong Pascal. Cõu lệnh nhập dóy số từ bàn phớm
Xem bài thực hành sử dụng biến mảng trong chương trỡnh.
VI. Rút kinh nghiệm
Tiết: 51
I.Mục đớch 1.Kiến thức
Biết cỏch khai bỏo mảng, nhập, in, truy cập cỏc phần tử của mảng.
2.Kĩ năng
Khai bỏo mảng, nhập giỏ trị cho mảng, thuật toỏn tỡm giỏ trị trung bỡnh
3.Thỏi độ
HS cú thỏi độ ham hiểu biết, học hỏi.
4. Định hướng phỏt triển năng lực: năng lực sử dụng mỏy tớnh, năng lực giải quyết
vấn đề, năng lực sỏng tạo, ứng dụng KHKT, năng lực tự học, năng lực hợp tỏc, làm việc nhúm.
PHƯƠNG PHÁP:
Luyện tập
II. CHUẨN BỊ BÀI HỌC: 1. Giỏo viờn : 1. Giỏo viờn :
- SGK, SGV, tài liệu, Giỏo ỏn- Đồ dựng dạy học - Đồ dựng dạy học
2. Học sinh :