Tuần 30 Ngày soạn: 29/04/2021 Tiết 59+60 Ngày dạy: 5/05/2021
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
- Thực hành khai bỏo và sử dụng cỏc biến mảng ; - ễn luyện cỏch sử dụng cõu lệnh lặp if...then, for...do;
2. Kỹ năng
- Củng 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 độ:
- Thái độ học tập nghiêm túc, tích cực thực hành.
II. CHU Ẩ N B Ị
1. Giáo viên: Giáo án, sgk, phòng maý
2. Học sinh : Xem lại bài học trước, xem bài trước ở nhà.
III. PH ƯƠNG PHÁP
- Giải quyết vấn đề, hoạt động nhóm, vấn đáp IV. tiến trình lên lớp
1. Ổn định tổ chức lớp: (1’)
Kiểm tra sĩ số:…………..vắng ……..
Ổn định trật tự:
2. Kiểm tra bài cũ: Kết hợp trong giờ 3. Bài mới:
Hoạt động 1: Bài 1 - Thời gian: (20’)
- Mục tiờu: Củng 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ố.
- Hỡnh thức tổ chức: Dạy học theo nhúm
- Phương phỏp dạy học: Giải quyết vấn đề, hoạt động nhóm, thực hành - Kĩ thuật dạy học: Kĩ thuật động nóo, kĩ thuật giao nhiệm vụ
Hoạt động của GV và HS Nội dung
Chương trỡnh tỡm giỏ trị nhỏ nhất
Bài 1:
Program P_Min;
trong dóy số nguyờn P_Min ?
HS chia nhóm làm thực hành.
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.
Hoạt động 2 : Bài 2 - Thời gian: (20’)
- Mục tiờu: Củng cố kĩ năng đọc, hiểu và chỉnh sửa chương trỡnh.
- Hỡnh thức tổ chức: Dạy học theo nhúm
- Phương phỏp dạy học: Giải quyết vấn đề, hoạt động nhóm, thực hành - Kĩ thuật dạy học: Kĩ thuật động nóo, kĩ thuật giao nhiệm vụ
………
…
Hoạt động của GV và HS Nội dung
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
Bài 2:
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;
HS chia nhãm lµm thùc hµnh.
GV gîi ý:
- Dïng c©u lÖnh if…then…
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.
4. Cñng cè (2’)
- NhËn xÐt rót kinh nghiÖm giê học.
5. Hưíng dÉn vÒ nhµ (2’) - Häc sinh vÒ nhµ ôn bài.
- §äc trưíc phần còn lại của bài V. R ÚT KINH NGHIỆM
...
....
...
....
...
....
Ngµy so¹n: / /2019 TiÕt: 60
Ngµy gi¶ng: / /2019
bµi thùc hµnh 7
xö lý d·y sè trong chƯ¬ng tr×nh (T2)
I. M Ụ C tiªu BµI D Ạ Y 1. Kiến thức
- Thực hành khai báo và sử dụng các biến mảng ; - Ôn luyện cách sử dụng câu lệnh lặp if...then, for...do;
2. Kỹ năng
- Củng 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 độ
- Thái độ học tập nghiêm túc, tích cực thực hành.
II. CHU Ẩ N B Ị
1. Giáo viên: Giáo án, sgk, phòng máy
2. Học sinh : Xem lại bài học trước, xem bài trớc ở nhà.
III. PH ƯƠNG PHÁP
- Giải quyết vấn đề, hoạt động nhóm, vấn đáp IV. tiến trình lên lớp
1. Ổn định tổ chức lớp: (1’)
Kiểm tra sĩ số:…………..vắng ……..
Ổn định trật tự
2. Kiểm tra bài cũ: Kết hợp trong giờ 3. Bài mới:
Hoạt động 1: Bài 1 - Thời gian: (20’)
- Mục tiờu: Củng 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ố.
- Hỡnh thức tổ chức: Dạy học theo nhúm
- Phương phỏp dạy học: Giải quyết vấn đề, hoạt động nhóm, thực hành - Kĩ thuật dạy học: Kĩ thuật động nóo, kĩ thuật giao nhiệm vụ
……….
.
Hoạt động của GV và HS Nội dung
Chương trỡnh tớnh tổng dóy số, in ra màn hỡnh dóy số vừa nhập.
HS chia nhóm làm thực hành.
Bài 1:
Program P_Sum;
Var
i, n, Sum : 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;
Sum:=0;
for i:=1 to n do Sum:= Sum + a[i];
write('Day so vua nhap la: ');
for i:=1 to n do write(a[i], ' ');
writeln;
write('Tong day so la = ',Sum);
readln;
End.
Hoạt động 2: Bài 2 - Thời gian: (20’)
- Mục tiờu: Củng 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ố.
- Hỡnh thức tổ chức: Dạy học theo nhúm
- Phương phỏp dạy học: Giải quyết vấn đề, hoạt động nhóm, thực hành - Kĩ thuật dạy học: Kĩ thuật động nóo, kĩ thuật giao nhiệm vụ
……….
.
Hoạt động của GV và HS Nội dung
Bổ sung và chỉnh sửa chương trình trong BT2 để nhập 2 loại điểm Toán và Ngữ văn của các bạn. Sau đó in ra màn hình :
a/ điểm TB của mỗi bạn trong lớp theo công thức:
Điểm TB = (Điểm toán + điểm văn)/2 b/ Điểm TB của cả lớp theo từng môn Toán và Ngữ văn
Bài 2:
Program Xep_loai;
uses crt;
Var
i, n: integer;
TBtoan, TBvan: real;
diemT, diemV: array[1..100] of real;
Begin clrscr;
writeln('Diem TB : ');
For i:=1 to n do
HS chia nhãm lµm thùc hµnh. write(i,' . ',(diemT[i] + diemV[i])/2:3:1);
TBtoan: =0; TBvan: =0;
For i:=1 to n do Begin
TBtoan: = TBtoan + diemT[i] ; TBvan: = TBvan + diemV[i] ; end;
TBtoan: = TBtoan /n;
TBvan: = TBvan /n;
writeln('Diem TB mon Toan : ',TBtoan :3:2);
writeln('Diem TB mon Van:
',TBvan :3:2);
readln;
End.
4. Cñng cè: (3’)
- NhËn xÐt rót kinh nghiÖm giê học.
5. Hưíng dÉn vÒ nhµ: (1’) - Häc sinh vÒ nhµ ôn bài.
- §äc trưíc bµi: Quan s¸t h×nh kh«ng gian víi phÇn mÒm yenka V. R ÚT KINH NGHIỆM
...
....