Giáo án Tiin học Lớp 8 - Tiết 67: Ôn tập (T1) - Năm học 2009-2010

ÔN TẬP
TuÇn 34
TiÕt 67
Ngµy so¹n: 11/04/2010
Ngµy d¹y: 20/04/2010
I. môc tiªu
1. KiÕn thøc
 - Ôn lại những kiến thức đã học trong kỳ 2
2. Kü n¨ng
- Luyện kỹ năng viết chương trình trên máy cho HS 
3. Th¸i ®é
- Nghiªm tóc häc tËp 
II. CHUẨN BỊ
1. Giáo viên
a. Phương pháp: Trùc quan 
b. Phương tiện: Giáo án, ®Ò kiÓm tra 
2. HS: Sách, vở đọc trước bài ở nhà.
III. TIẾN TRÌNH DẠY - HỌC
1.Ổn định lớp
- Ổn định trật tự
- Kiểm tra sĩ số
2. Kiểm tra bài cũ 
? Em hãy nêu cú pháp của câu lệnh điều kiện dạng thiếu và dạng đủ? Giải thích?
3. 
Hoạt động của thầy và trò
Nội dung
GV: Ra một số đề ôn tập cho HS làm
HS: Ghi bài tập 
GV: Hướng dẫn cho HS cách làm 
HS: lắng nghe 
GV: Yêu cầu HS nháp ra giấy chuẩn bị lên bảng làm bài 
HS: thực hiện yêu cầu 
Bài 1: Nhập vào 2 cạnh của một hình chữ nhật. Tính diện tích của nó. Với a, b là số thực nhập từ bàn phím
Bài 2 : Tính tam giác: Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu là 3 cạnh của 1 tam giác thì in ra màn hình Ba cạnh đã nhập là 3 cạnh của 1 tam giác. Ngược lại, thì in ra màn hình ' Khong la ba canh cua mot tam giac'.
Bài 3: Viết chương trình giải phương trình bậc 1 (ax + b = 0). Với a,b là số tự nhiên nhập từ bàn phím
Bài 4: Tìm giá trị lớn nhất trong 4 số a, b, c, d (a, b, c, d là số thực được nhập từ bàn phím). 
Trả lời: 
Program Hinh_chu_nhat;
uses crt;
Var a,b,S: Real;
Begin
clrscr;
Write('nhap chieu dai a='); readln(a);
Write('nhap chieu rong b='); readln(b);
S:= a*b;
Writeln('dien tich hinh chu nhat =',S:6:2);
readln
end.
Trả lời: 
Program Tam_giac;
Uses crt;
Var a,b,c: real;
begin
clrscr;
write('nhap so a='); readln(a);
write('nhap so b='); readln(b);
write('nhap so c='); readln(c);
If (a+b>c) and (a+c>b) and(b+c>a) then
write(a,b,c,' tao thanh ba canh cua mot tam giac')
else write(a,b,c,'khong tao thanh ba canh cua tam giac');
readln
end.
Trả lời: 
Program Giai_pt;
uses crt;
Var a,b: Integer;
Begin
clrscr;
Write('nhap so a='); readln(a);
write('nhap so b='); readln(b);
If a=0 then
 if b=0 then write('phuong trinh vo so nghiem')
 else write('phuong trinh vo nghiem')
else writeln(' pt co nghiem x=', -b/a:6:2);
readln
end.
Trả lời: 
Program Tim_Max;
uses crt;
Var a,b,c,d,max: real;
begin
clrscr;
write('Nhap so a='); readln(a);
write('Nhap so b='); readln(b);
write('Nhap so c='); readln(c);
write('Nhap so d='); readln(d);
max:=a;
If b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write('so lon nhat la:',max:6:2);
readln
end.
4. Cñng cè 
 5. Dặn Dò
 - Häc sinh vÒ nhµ ôn bài, tiết sau chúng ta «n tËp tiêt 2 ®Ó thi HK2
IV. RÚT KINH NGHIỆM