Giáo án Tin học 8 VnDoc com Tải tài liệu, văn bản pháp luật, biểu mẫu miễn phí Ô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 đã đư[.]
Trang 1Giáo án Tin học 8
VnDoc.com - Tải tài liệu, văn bản pháp luật, biểu mẫu miễn phí
Ô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
II CHUẨN 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
2 Học sinh: Vở ghi, sách giáo khoa
III CÁC HOẠT ĐỘNG DẠY – HỌC:
1 Ổn định lớp: (1’)
8A1:………
8A2:………
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 1: (38’) Ôn tập nội dung phần bài tập
+ 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À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 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;
Ngày soạn:
Ngày dạy:
Tuần 33
Tiết: 68
Trang 2Giáo án Tin học 8
VnDoc.com - Tải tài liệu, văn bản pháp luật, biểu mẫu miễn phí
+ 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 toá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ố
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: