GIÁO ÁN TIN HỌC 8
Tiết PPCT:
Ngày soạn: 22/11/2009
Ngày kiểm tra: ..../..../2009 - ...../....../2009
KIỂM TRA 1 TIẾT THỰC HÀNH
I/ MỤC TIÊU :
1. Kiến thức: Tất cả những kiến thức thực hành đã học.
2. Kỹ năng: Hiểu và vận dụng kiến thức đã học để viết chương trình đơn giản.
3. Thái độ: Nghiêm túc, trung thực.
II/ CHUẨN BỊ : Đề kiểm tra + đáp án (02đề).
Đề 1:
Câu 1: Viết chương trình tính diện tích hình tam giác.
Câu 2: Viết chương trình nhập vào ba số và tính tổng, tích, hiệu của nó.
Câu 3: Viết chương trình tính diện tích của hình A được ghép từ một hình chữ nhật và
hình bán nguyệt (đường kính của hình bán nguyệt bằng chiều rộng của hình chữ nhật).
Đáp án:
Câu 1: Viết chương trình tính diện tích hình tam giác. (3đ)
Program Dientichtamgiac; (0,25)
Uses Crt; (0,25)
Var h,a: Integer; (0,25)
Begin
Clrscr; (0,25)
Write(‘Nhap do dai canh day a=’);Read(a); (0,5)
Write(‘Nhap chieu cao h=’);Read(h); (0,5)
Write(‘Dien tich hinh tam giac la:’ , a*h/2); (0,75)
Readln; (0,25)
End.
Câu 2: Viết chương trình nhập vào ba số và tính tổng, tích, hiệu của nó. (3đ)
Program Tongbaso; (0,25)
Uses Crt; (0,25)
Var a,b,c: Integer; (0,25)

Program Dientichhinhchunhat; (0,25)
Uses Crt; (0,25)
Var a,b: Integer; (0,25)
Begin
Clrscr; (0,25)
Writeln(‘nhap chieu rong hinh chu nhat a=’);Read(a); (0,5)
Writeln(‘nhap chieu dai hinh chu nhat b=’);Read(b); (0,5)
Writeln(‘Dien tich hinh chu nhat la:’ , a*b); (0,75)
Readln; (0,25)
End.
Câu 2: Viết chương trình tính diện tích hình bán nguyệt. (3đ)
Program Dientichhinhbannguyet; (0,25)
Uses Crt; (0,25)
Var r: Integer; (0,5)
Begin
Clrscr; (0,25)
Write(‘Nhap ban kinh r=’);Read(r); (0,5)
Write(‘Dien tich hinh ban nguyet la:’ , r*r*3.14/2); (1)
Readln; (0,25)
End.
Câu 3: Viết chương trình nhập vào hai số và tính tổng, tích, hiệu, thương, div, mod
của nó. (4đ)
Program Cacpheptinh; (0,25)
Uses Crt; (0,25)
Var x, y: Integer; (0,25)
Begin
Clrscr; (0,25)
2
Writeln(‘nhap x:’);Read(x); (0,25)
Writeln(‘nhap y:’);Read(y); (0,25)