+ GV: Lấy một bài thực hiện còn thiếu sót trình chiếu và yêu cầu các bạn khác nhận xét bổ sung.. + GV: Nhận xét và sửa các lỗi sai mà HS thường gặp.[r]
Trang 1ÔN TẬP
I MỤC TIÊU:1 Kiến thức: Ôn tập lại các kiến thức đã được học trong học kì II.
2 Kĩ năng: Vận dụng các kiến thức đã được học áp dụng giải các bài tập.
3 Thái độ: Học tập nghiêm túc, có ý thức tự giác, tinh thần vươn lên vượt qua khó khăn.
2 Kiểm tra bài cũ:
Lồng ghép trong nội dung bài ôn tập.
3 Bài mới:
Hoạt động của GVHoạt động của HSNội dung ghi bảng
Hoạt động 1: (38’) Ôn tập nội dung phần bài tập.
+ GV: Cho HS tìm lỗi sai trongtrong các câu lệnh Pascal sau:
1 For i:= 100 to 1 do Writeln(‘A’);2 For i:= 1.5 to 10.5 doWriteln(‘A’);
3 For i= 1 to 10 do Writeln(‘A’);4 For i:= 1 to 10 do; Writeln(‘A’);5 Var x: Real Begin For x:= 1 to 10do Writeln(‘A’); End.
6 x:= 10; While x:= 10 do x:= x+5;7 x:= 10; While x = 10 do x:= x+5;6 S:= 0; x:= 10; While x<= 10 don:= n+1; S:= S + n;
7 Var x: array[10,13] of Integer;8 Var x: array[5 10.5] of Real;9 Var x: array[3.4 4.8] of Integer;10 Var x: array[10 1] of Integer;+ GV: Yêu cầu HS viết chươngtrình tìm giá trị lớn nhất trong dãysố.
+ GV: Hướng dẫn HS thực hiện viếtchương trình.
+ GV: Yêu cầu một số HS lên bảngthực hiện các thao tác.
+ GV: Yêu cầu các bạn khác quansát theo dõi và nhận xét bài làm.
+ HS: Sửa lại cú pháp cho đúngnhư sau:
1 For i:= 1 to 100 doWriteln(‘A’);
2 For i:= 15 to 105 doWriteln(‘A’);
3 For i:= 1 to 10 do Writeln(‘A’);4 For i:= 1 to 10 do Writeln(‘A’);5 Var x: Integer; Begin For x:= 1to 10 do Writeln(‘A’); End.
6 x:= 1; While x<10 do x:= x+5;7 x:= 5; While x<10 do x:= x+5;6 S:= 0; x:= 10; While x<= 10 doBegin n:= n+1; S:= S + n; End.7 Var x: array[10 13] of Integer;8 Var x: array[5 105] of Real;9 Var x: array[34 48] of Integer;10 Var x: array[1 10] of Integer;+ HS: Thực hiện chương trìnhtheo yêu cầu của GV:
Program Max;Uses Crt;
Var i, n, max: Integer;
A: array[1 100] of Integer;Begin
Clrscr;
Write(‘Nhap n= ’); Readln(n);
BÀI TẬP
1 For i:= 1 to 100 do Writeln(‘A’);
2 For i:= 15 to 105 do Writeln(‘A’);
3 For i:= 1 to 10 do Writeln(‘A’);
4 For i:= 1 to 10 do Writeln(‘A’);
5 Var x: Integer; Begin Forx:= 1 to 10 do Writeln(‘A’);End.
6 x:= 1; While x<10 do x:=x+5;
7 x:= 5; While x<10 do x:=x+5;
6 S:= 0; x:= 10; While x<= 10 do Begin n:= n+1; S:= S + n; End.
7 Var x: array[10 13] of Integer;
8 Var x: array[5 105] of Real;
9 Var x: array[34 48] of Integer;
10 Var x: array[1 10] of Integer;
Ngày soạn: Ngày dạy: Tuần 33
Tiết: 68
Trang 2+ GV: Quan sát hướng dẫn và sửasai cho các em.
+ GV: Lấy một bài thực hiện cònthiếu sót trình chiếu và yêu cầu cácbạn khác nhận xét bổ sung.
+ GV: Nhận xét và sửa các lỗi saimà HS thường gặp.
+ GV: Trình chiếu một bài hoànchỉnh của HS và nhận xét.
+ GV: Yêu cầu dựa trên bài toán tìmsố lớn nhất viết đoạn thân chươngtrình tìm số nhỏ nhất.
+ GV: Yêu cầu HS thực hiện thànhthao tác viết chương trình tìm giá trịlớn nhất và nhỏ nhất.
+ GV: Yêu cầu HS viết chươngtrình tính tổng giá trị các số trongdãy số.
+ GV: Hướng dẫn HS thực hiện viếtchương trình.
+ GV: Yêu cầu một số HS lên bảngthực hiện các thao tác.
+ GV: Yêu cầu các bạn khác quansát theo dõi và nhận xét bài làm.+ GV: Quan sát hướng dẫn và sửasai cho các em.
+ GV: Lấy một bài thực hiện cònthiếu sót trình chiếu và yêu cầu cácbạn khác nhận xét bổ sung.
+ GV: Nhận xét và sửa các lỗi saimà HS thường gặp.
+ GV: Trình chiếu một bài hoànchỉnh của HS và nhận xét.
+ GV: Tiến hành củng cố các kiếnthức trọng tâm cho HS nắm bắt.+ GV: Giải đáp các thắc mắc củaHS trong quá trình ôn tập.
+ GV: Nhận xét chốt nội dung.
For i:= 1 to n do Begin
Write(‘A[’,i,’]= ’);Readln(A[i]); End;
max:= A[1]; For i:= 1 to n do
If max < A[i] then max:= a[i]; Write(‘So max = ’,max);
Readln;End.
Var i, n, min: Integer;
A: array[1 100] of Integer;
min:= A[1]; For i:= 1 to n do
If min > A[i] then min:= a[i]; Write(‘So min = ’,min);
Program Sum;Uses Crt;
Var i, n, Sum: Integer;
A: array[1 100] of Integer;Begin
Clrscr;
Write(‘Nhap n= ’); Readln(n); For i:= 1 to n do
Begin
Write(‘A[’,i,’]= ’);Readln(A[i]); End;
Sum:= 0;
For i:= 1 to n do Tong := tong + A[i]; Write(‘Tong Sum = ’,Sum); Readln;
+ HS: Ôn lại nắm bắt các kiếnthức trọng tậm.
+ HS: Được giải đáp các thắcmắc các em vướng mắc.
+ HS: Tập trung chú ý lắng nghe.
11 Viết chương trình tìmgiá trị lớn nhất trong dãy số.12 Viết chương trình tínhtổng giá trị các số trong dãysố.
4 Củng cố: (5’)
- Củng cố các nội dung các em còn yếu và trọng tâm.
5 Dặn dò: (1’)
- Học bài, chuẩn bị ôn tập chu đáo cho thi học kì II.
IV RÚT KINH NGHIỆM:
