ĐỀ KIỂM TRA HỌC KỲ I
Năm học: 2009- 2010
Môn: Tin học 8
(Thực hành)

Câu 1:
Cho a, b là số thực được nhập từ bàn phím. Tính chu vi và diện tích của hình chữ nhật và in ra màn hình giá trị các biến của chu vi và diện tích.

Câu 2:
Tính chu vi và diện tích của hình tròn và in ra màn hình giá trị các biến của chu vi và diện tích. (Biết pi = 3.14, r= 5* 5)

Câu 3:
Viết chương trình tính tiền công lao động sau:
- Đơn giá mỗi giờ 15000 đồng. Nếu làm ngoài giờ hoặc ngày nghỉ được tính gấp đôi.
- Dữ liệu nhập vào: số giờ bình thường, số giờ làm ngoài giờ.

Câu 4:
Bố Bình hằng ngày đi làm bằng xe máy, nếu xăng có giá 14500 đồng/lít thì 1 tháng bố Bình chi x đồng mua xăng. Khi giá xăng tăng lên 19000 đồng/ lít, hỏi bố Bình sẽ chi phí thêm 1 khoản tiền để mua xăng là bao nhiêu. Em hãy viết chương trình Pascal để tính tiền mua xăng.

Câu 5:
Một cửa hàng cung cấp dịch vụ bán hàng thanh toán tại nhà. Khách hàng chỉ cần đăng ký số lượng mặt hàng cần mua, nhân viên cửa hàng sẽ trả hàng và nhận tiền thanh toán tại nhà khách hàng. Ngoài trị giá hàng hóa, khách hàng còn phải trả thêm phí dịch vụ. Hãy viết chương trình Pascal để tính tiền thanh toán trong trường hợp khách hàng chỉ mua một mặt hàng duy nhất.

Câu 6:
Nhập 3 số nguyên dương a, b và c từ bàn phím. Kiểm tra và in ra màn hình kết quả 3 số đó có thể là độ dài các cạnh của tam giác hay không.

Câu 7:
Viết chương trình nhập hai số nguyên a và b khác nhau từ bàn phím và in hai số đó ra màn hình theo thứ tự không giảm.

Câu 8:
Viết chương trình nhập chiều cao của hai bạn Long và Trang, in ra màn hình kết quả so sánh chiều cao của hai bạn.




ĐÁP ÁN TIN HỌC 8
(Thực hành)
Câu 1:
Program hinh_chu_nhat;
Var a, b, vc, S: real;
Begin
write(‘Nhap_cac_kich_thuoc_hcn:’);
readln(a,b);
cv:=2*a+2*b;
S:=a*b;
writeln(‘chu_vi_hinh_chu_nhat_la:’,cv:15:3);
writeln(‘dien_tich_hcn_la:’,S:15:3);
readln
End.
Câu 2:
Program Dien_tich_hinh_tron;
Const pi:=3.14;
Var cv, dt: interger;
r:real;
Begin
r:=5.5
cv:=2*pi*r;
dt:=pi*r*r;
writeln(‘chu_vi_la=’,cv’);
writeln(‘dien_tich_la=’,dt’);
readln
End.
Câu 3:
Câu 4:
Program mua_xang;
Var x,y:real;
Begin
write(‘so_tien_mua_xang_voi_gia_cu_la:’);
readln(x);
y:=19000*x/14500
writeln(‘so_tien_bo_mua_xang_voi_gia_moi_la:’,y:15:0);
wrietln(‘so_tien_bo_phai_chi_them_mua_xang_la:’,y- x:15:0);
readln
End.
Câu 5: