Bài giảng Tiết 34 – 35: Kiểm tra học kỳ I

Tiết 34 – 35 KIỂM TRA HỌC KỲ I Ngày soạn: Ngày giảng: Mục tiêu : - Đánh giá kiến thức, kỹ năng của học sinh về ngôn ngữ lập trình, cấu trúc của chương trình, sử dụng biến, hằng trong chương trình. Yêu cầu của bài : 1. Kiến thức : - Kiểm tra kiến thức về ngôn ngữ lập tình, cấu trúc của chương trình, sử dụng biến, hằng trong chương trình. 2. Kỹ năng: Kiểm tra các lỗi trong đoạn ct của ngôn ngữ Pascal, và sử dụng một vài lệnh đơn giản của PC. 3. Kiểm tra trên giấy : Kiểm tra sau khi học phần sử dụng biến trong chương trình C. Đề bài, đáp án và thang điểm: Câu1.Hãy tìm các lỗi trong chương trình Pascal và sửa lỗi lại cho đúng.(3điểm) Đáp án và thang điểm Program duong_tron; Const Pi:= 3.1416; Var cv, dt: Integer 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. .......................................................................................... Const Pi = 3.1416; (0.25đ) Var cv, dt: Real ; (0.5đ) ........................................................................................... ............................................................................................ r= 5.5; (0.25đ) cv: = 2*Pi*r ; (0.5đ) dt: = Pi* r*r ; (0.5đ) Writeln(‘ Chu vi la =’cv) ; (0.5đ) Writeln(‘ Dien tich la = ‘dt) ; (0.5đ) Câu 2. Hãy cho biết các biến cần dùng và kiểu dữ liệu của chúng trong chương trình giải mỗi bài toán dưới đây (4 điểm) a. Giờ thể dục bạn An chạy mọt vòng quanh sân trường HÌNH CHỮ NHẬT có chiều dài là a mét, chiều rộng là b mét mất một thời gian t giây. Viết chương trình để tính vận tốc trung bình của bạn An. b. Viết chương trình nhập vào ba số nguyên dương a, b, c. sau đó tính và in ra màn hình giá trị trung bình cộng S của ba số Đáp án và thang điểm câu 2 Var a, b, t, s : Integer; (1.25 đ) Vtb : Real; (0.75đ) Var a, b, c : Integer; (1đ ) Stbc : Real; (1đ ) Câu 3.Sử dụng câu lệnh Write, Readln để viết chương trình sau ( Gồm cả phần khai báo và phần thân chương trình).(3điểm) - Nhập hai số nguyên x, y sau đó tính tổng, hiệu của hai số Đáp án và thang điểm câu 3 Program tong-hieu; Uses crt; Var x, y : Integer; (0.5đ) Begin Clrscr; Write (‘ Nhap x =’); (0.5đ) Readl(x); (0.25đ) Write (‘ Nhap y =’); (0.5đ) Readl(y); (0.25đ) Writeln(‘ Tong hai so x+y = ‘, x+y); (0.5đ) Writeln(‘ Tong hai so x-y = ‘, x-y); (0.5đ) Readln; End.