KT1TIETTHKI

<span class='text_page_counter'>(1)</span>I/ Ma trận đề Chủ đề Tự luận Câu hỏi điểm. Các mức độ đánh giá Nhận biết Thông hiểu Vận dụng Câu 1 Câu 1 Câu 1 1 đ 1đ 1đ Câu 2 Câu 2 Câu 2 1đ 1đ 1đ Câu 3 Câu 3 Câu 3 1đ 1đ 2đ. Tổng số 3đ 3đ 4đ. II/ Nội dung đề: Câu 1: Hãy khởi động chương trình Pascal và thực hiện các yêu cầu sau: a. Viết – chạy và sửa lỗi (nếu có) chương trình thực hiện ghi ra trên màn hình dòng chữ: “CHƯƠNG TRÌNH TIN HỌC LỚP 8 LẬP TRÌNH ĐƠN GIẢN” b. Lưu vào máy tính với tên: inchu.pas Câu 2: Thực hiện yêu cầu sau: a. Viết – chạy và sửa lỗi (nếu có) chương trình ghi ra màn hình kết quả tổng của hai số tự nhiên a và b được nhập vào từ bàn phím b. Lưu vào máy tính với tên: Tong.Pas Câu 3: a. Viết – chạy và sửa lỗi (nếu có) chương trình: Nhập vào từ bàn phím điểm trung bình (DTB), sau đó xếp loại học lực và báo ra màn hình theo yêu cầu sau: DTB>=8: xếp loại giỏi 6,5<=DTB<8:xếp loại khá 5<=DTB<6.5:xếp loại trung bình DTB<5: xếp loại yếu b. Lưu vào máy tính với tên:xeploai.pas III/ Đáp án: Câu 1 Program inchu; Begin Writeln(‘chuong trinh tin hoc lop 8’); Writeln(‘lap trinh don gian’); Readln; End. Câu 2: Program tong;.

<span class='text_page_counter'>(2)</span> Var a,b,c:integer; Begin Write(‘nhap vao so thu nhat a=’); readln(a); Write(‘nhap vao so thu hai b=’); readln(b); C:=a+b; Writeln(‘tong cua hai so la:’,c); Readln; End. Câu 3: Program xeploai; Var dtb:real; Begin Write(‘nhap vao diem trung binh:’); readln(dtb); If dtb>=8 then writeln(‘xep loai gioi’) else If dtb>=6.5 then writeln(‘xep loai kha’) else If dtb>=5 then writeln(xep loai trung binh’) else Writeln(‘xep loai yeu’); Readln; End..

<span class='text_page_counter'>(3)</span>