I. MỤC TIÊU:
1. Kiến thức:
- Làm quen với việc khai báo và sử dụng biến mảng.
- Ôn luyện cách sử dụng câu lệnh lặp for..do
2. Kĩ năng:
- CỦNG CỐ các kĩ năng đọc hiểu và chỉnh sửa chương trình.
3. Thái độ:
- Thái độ học tập nghiêm túc, yêu thích viết chương trình để thực hiện một số công việc.
4. Năng lực hình thành
- Năng lực giải quyết vấn đề - Năng lực tự chủ, tự học
- Năng lực sáng tạo - Năng lực tin học
- Năng lực tự quản lý bản thân - Năng lực giao tiếp, hợp tác
II. CHUẨN BỊ:
+ Giáo viên: Giáo án,SGK, tài liệu tham khảo, phòng máy.
+ Họcsinh: Vở ghi và sách giáo khoa, chuẩn bị bài ở nhà.
III. HOẠT ĐỘNG DẠY HỌC:
1. Ổn định lớp:
2. Kiểm tra bài cũ: kiểm tra trong khi thực hành
3. Bài mới:
|
Hoạt động của GV |
Hoạt động của HS |
Nội dung |
|
? Nêu cách khai báo biến mảng. ? Nêu các biến dự định sẽ sử dụng trong chương trình. GV cho HS tìm hiểu phần khai báo mẫu và nêu tác dụng của từng biến. GV cho HS gõ phần khai báo vào máy tính và lưu tệp với tên Phanloai+tên lớp.pas - cho HS tìm hiểu các câu lệnh trong phần thân chươn trình: HS làm việc theo nhóm, ghi ý nghĩa tác dụng của các lệnh ra bảng nhóm. Hết thời gian Gv choHS trình bày bảng nhóm lên bảng, gọi đại diện nhóm trình bày bài làm của nhóm mình, gọi đại diện các nhóm khác nhận xét, cho điểm nhóm bạn. GV nhận xét, cho điểm các nhóm. |
HS trả lời HS suy nghĩ trả lời. HS nêu tác dụng HS gõ vào máy tính HS làm việc theo nhóm. HS trình bày bài của nhóm mình, nhận xét và cho điểm nhóm bạn. |
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á, 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 * Phần khai báo: Program phanloai; Uses crt; Var i, n, gioi, kha, trung, kem: integer; A:array[1..100] of real; * Phần thân chương trình: Begin clrscr; write('Nhap so HS trong lop, n= '); readln(n); writeln('Nhap diem :'); For i:=1 to n do Begin write(‘Diem cua hoc sinh thu ‘, 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] <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; if a[i]<5.0 then kem:=Kem+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. |
IV. CỦNG CỐ (5 phút)
Giáo viên nhận xét và đánh giá tiết thực hành.
V. HƯỚNG DẪN VỀ NHÀ: (2 phút)
- Thực hành lại cho thành thạo.
- Đọc phần tiếp theo của bài
VI. RÚT KINH NGHIỆM:
.......................................................................................................................................
.......................................................................................................................................
