GIáo án Tin học 8 tiết 67+ 68: Bài tập

BÀI TẬP
Ngày soạn: ././2015
Tiết theo PPCT: 67-68
Tuần: 34
1. Mục tiêu:
1.1/ Kiến thức: Hệ thống lại các kiến thức đã học ở ba bài 7, 8, 9.
1.2/ Kĩ năng: 
- Rèn luyện kĩ năng đọc hiểu chương trình, tìm hiểu tác dụng của các câu lệnh.
- Viết chương trình Pascal sử dụng câu lệnh lặp while...do, for  do, biếng mảng.
1.3/ Thái độ: Thái độ học tập nghiêm túc, yêu thích môn học.
2. Chuẩn bị:
2.1/ Chuẩn bị của GV: Giáo án.
2.2/ Chuẩn bị của HS: Chuẩn bị các bài tập ở SGK, SBT.
3. Tổ chức các hoạt động học tập:
3.1/ Ổn định lớp:
3.2/ Kiểm tra bài cũ:
3.3/ Tiến trình bài học:	 
Hoạt động của GV
Hoạt động của HS
Nội dung
Hoạt động 1: Bài tập.
Bài tập 1: Lập trình tính tich của 10 số tự nhiên đầu tiên.
- Yêu cầu của đề bài là gì?
- Theo em, sử dụng câu lệnh lặp nào?
- Yêu cầu HS ngồi tại chỗ viết chương trình.
- Yêu cầu HS lên bảng trình bày.
- Yêu cầu HS nhận xét.
- GV chốt lại, và gợi ý HS cách sử dụng câu lệnh lặp While...do.
Bài tập 2: Lập trình tính tổng của n số tự nhiên đầu tiên, n nhập từ bàn phím.
- Yêu cầu của đề bài là gì?
- Theo em, sử dụng câu lệnh lặp nào?
- Yêu cầu HS ngồi tại chỗ viết chương trình (sử dụng câu lệnh while...do).
- Yêu cầu HS lên bảng trình bày.
- Yêu cầu HS nhận xét.
- GV chốt lại, và gợi ý HS cách sử dụng câu lệnh lặp For...do.
Bài tập 3: Em hãy viết chương trình:	
+ Nhập độ dài của một dãy số.
+ Nhập các phần tử của dãy số.	
+ Tìm số lớn nhất và nhỏ nhất của dãy số , tổng của dãy số.
+ In ra màn hình số lớn nhất, nhỏ nhất và tổng các phần tử của dãy số đó.
- GV gợi ý, HS thực hiện tại chỗ.
- Yêu cầu 1 HS lên bảng.
- Yêu cầu HS nhận xét.
- GV đưa ra chương trình đúng.
- Tính: 1*2*...*10.
- Có thể sử dụng câu lệnh lặp For...do hoặc while...do.
- 01 HS lên bảng.
- HS nhận xét.
- HS chú ý.
- Tính: 1+2+...+n.
- Có thể sử dụng câu lệnh lặp For...do hoặc while...do.
- 01 HS lên bảng.
- HS nhận xét.
- HS chú ý.
- HS nghiên cứu đề bài.
- Chú ý, viết chương trình tại chỗ.
- 1 HS lên bảng.
- HS nhận xét.
- HS chú ý và ghi nhớ kiến thức.
Bài tập 1:
Program Tinh_tich;
Use crt;
Var 	i, tich: integer;
Begin
Clrscr;
tich:=1;
For i:=1 to 10 do
 Begin tich:=tich*i; i:=i+1; end;
Writeln(‘Tich cua 10 so tu nhien dau tien la:’, tich);
Readln
End.
Bài tập 2:
Program Tinh_tong;
Use crt;
Var 	i, n, tong: integer;
Begin
Clrscr;
Write(‘Nhap n=’); readln(n);
tong:=0;
While i<=n to n do
 Begin tong:=tong+i; i:=i+1; end;
Writeln(‘Tong cua n so tu nhien dau tien la:’, tong);
Readln
End.
Bài tập 3:
Program mang;
Uses crt;
Var i, n, max, min, sum:integer;
a:array[1..50] of integer; 
Begin
Clrscr;
Write('Nhap do dai 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]; Max:=a[1]; Sum:=0;
For i:=1 to n do
 Begin
	If Min > a[i] then Min:=a[i];
	If Max < a[i] then Max:=a[i]; 	Sum:=sum+a[i];
 end;	 
Writeln('Gia tri lon nhat la: ',Max); 
Writeln('gia tri nho nhat la: ',Min);
Writeln('Tong cua day so la: ',Sum); 
Readln
 End.
Hoạt động 3: Hướng dẫn về nhà.
- HS học bài kết hợp SGK. 
- Nắm chắc các các bài tập vừa làm.
- Tiết sau kiểm tra 1 tiết trên máy..