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) Begin Clrscr; (0,25) Write(‘Nhap so a=’);Read(a); (0,25) Write(‘Nhap so b=’);Read(b); (0,25) Write(‘Nhap so c=’);Read(c); (0,25) Write(‘Tong a+b+c=’, a+b+c); (0,5) Write(‘Tong a*b*c=’, a*b*c); (0,5) Readln; (0,25) End. 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). (4đ) 1 Program DientichhinhA; (0,25) Uses Crt; (0,25) Var a,b: Integer; (0,5) Begin Clrscr; (0,25) Writeln(‘nhap chieu rong hinh chu nhat a=’);Read(a); (0,75) Writeln(‘nhap chieu dai hinh chu nhat b=’);Read(b); (0,75) Writeln(‘Dien tich hinh A la:’ , 2*a*b+3.14*a*a/2); (1) Readln; (0,25) End. Đề 2: Câu 1: Viết chương trình tính diện tích hình chữ nhật. Câu 2: Viết chương trình tính diện tích hình bán nguyệt. 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ó. Đáp án: Câu 1: Viết chương trình tính diện tích hình chữ nhật. (3đ) 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) Writeln(‘Tong la:’ , x+y); (0,25) Writeln(‘Tong la:’ , x-y); (0,5) Writeln(‘Tong la:’ , x/y); (0,5) Writeln(‘Tong la:’ , x Mod y); (0,5) Writeln(‘Tong la:’ , x Div y); (0,5) Readln; (0,25) End. 3 . 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:. giản. 3. Thái độ: Nghiêm túc, trung thực. II/ CHUẨN BỊ : Đề kiểm tra + đáp án (0 2đề) . Đề 1: Câu 1: Viết chương trình tính diện tích hình tam giác. Câu 2: