Tin học lớp 8. Tiết 33.

Dạy lớp: 8A; 8B; 8E. Ngày soạn: 19/12/2009.
Tiết PPCT: 33. Ngày dạy: 21/12/2009.
Kiểm tra thực hành.
I. tiêu:
HS thực hành làm được bài tập đơn giản, chạy được chương trình, lưu được và các hoạt động đó thành thạo.
II. Chuẩn bị:
GV: Soạn bài, phòng máy.
HS: Xem lại các kiến thức đã học.
III. Tiến trình thực hiện:
Hoạt động của GV và HS
Nội dung chính

Hoạt động 1:
Yêu cầu kiểm tra: Bài toán: 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 hoá, 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.
a. Lưu chương trình với tên TINHTIEN.PAS. Dịch và chỉnh sửa các lỗi gõ, nếu có.
b. Chạy chương trình với các bộ dữ liệu (đơn giá và số lượng) như sau (1000, 20), (3500, 200), (18500, 123). Kiểm tra tính đúng của các kết quả in ra.
Hoạt động 2:
Kiểm tra bài của HS chấm cho điểm.
Hoạt động 3:
Nhận xét tiết kiểm tra.



HS: Khởi động Pascal viết chương trình như sau:
program Tinh_tien;
uses crt;
var
soluong: integer;
dongia, thanhtien: real;
thongbao: string;
const phi=10000;
begin
clrscr;
thongbao:=`Tong so tien phai thanh toan : `;
{Nhap don gia va so luong hang}
write(`Don gia = `); readln(dongia);
write(`So luong = `);readln(soluong);
thanhtien:= soluong*dongia+phi;
(*In ra so tien phai tra*)
writeln(thongbao,thanhtien:10:2);
readln
end.