Tải Giáo án Tin học 8: Ôn tập học kì 2 (Tiếp theo) - Giáo án điện tử Tin học lớp 8

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

<b>ÔN TẬP</b>

<b>I. MỤC TIÊU:</b>

<i><b>1. Kiến thức: Ôn tập lại các kiến thức đã được học trong học kì II.</b></i>

<i><b>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.</b></i>

<i><b>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.</b></i>
<b>II. CHUẨN BỊ:</b>

<i><b>1. Giáo viên: Sách giáo khoa, máy tính điện tử, giáo án, máy chiếu.</b></i>
<i><b>2. Học sinh: Vở ghi, sách giáo khoa.</b></i>

<b>III. CÁC HOẠT ĐỘNG DẠY – HỌC: </b>
<i><b>1. Ổn định lớp: (1’)</b></i>

8A1:………
8A2:………
<i><b>2. Kiểm tra bài cũ: </b></i>

Lồng ghép trong nội dung bài ôn tập.
<i><b>3. Bài mới:</b></i>

<b>Hoạt động của GV</b> <b>Hoạt động của HS</b> <b>Nội dung ghi bảng</b>
<i><b>Hoạt động 1: (38’) Ôn tập nội dung phần bài tập.</b></i>

+ GV: Cho HS tìm lỗi sai trong
trong 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 do
Writeln(‘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 10
do 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 do
n:= 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ương
trình tìm giá trị lớn nhất trong dãy
số.

+ GV: Hướng dẫn HS thực hiện viết
chương trình.

+ GV: Yêu cầu một số HS lên bảng
thực hiện các thao tác.

+ GV: Yêu cầu các bạn khác quan
sát theo dõi và nhận xét bài làm.

+ HS: Sửa lại cú pháp cho đúng
như sau:

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 For x:= 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;
+ HS: Thực hiện chương trình
theo 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>BÀI TẬP</b>
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 For
x:= 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;

<b> Ngày soạn: </b>
<b> Ngày dạy: </b>
<b>Tuần 33</b>

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

+ GV: Quan sát hướng dẫn và sửa
sai cho các em.

+ 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.

+ GV: Trình chiếu một bài hoàn
chỉnh của HS và nhận xét.

+ GV: Yêu cầu dựa trên bài tốn tìm
số lớn nhất viết đoạn thân chương
trình tìm số nhỏ nhất.

+ GV: Yêu cầu HS thực hiện thành
thao 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ương
trình tính tổng giá trị các số trong
dãy số.

+ GV: Hướng dẫn HS thực hiện viết
chương trình.

+ GV: Yêu cầu một số HS lên bảng
thực hiện các thao tác.

+ GV: Yêu cầu các bạn khác quan
sát theo dõi và nhận xét bài làm.
+ GV: Quan sát hướng dẫn và sửa
sai cho các em.

+ 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.

+ GV: Trình chiếu một bài hoàn
chỉnh của HS và nhận xét.

+ GV: Tiến hành củng cố các kiến
thức trọng tâm cho HS nắm bắt.
+ GV: Giải đáp các thắc mắc của
HS 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;

End.

+ HS: Ôn lại nắm bắt các kiến
thức trọng tậm.

+ HS: Được giải đáp các thắc
mắc các em vướng mắc.

+ HS: Tập trung chú ý lắng nghe.

11. Viết chương trình tìm
giá trị lớn nhất trong dãy số.
12. Viết chương trình tính
tổng giá trị các số trong dãy
số.

<i><b>4. Củng cố: (5’)</b></i>

- Củng cố các nội dung các em còn yếu và trọng tâm.
<i><b>5. Dặn dò: (1’)</b></i>

- Học bài, chuẩn bị ôn tập chu đáo cho thi học kì II.
<b>IV. RÚT KINH NGHIỆM: </b>

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3></div>

<!--links-->