DE TIN 8 HKII

<span class='text_page_counter'>(1)</span>PHÒNG GD&ĐT KRÔNG NÔ TRƯỜNG THCS NÂM NUNG HỌ VÀ TÊN:. LỚP: Điểm. KIỂM TRA HỌC KÌ II MÔN: TIN HỌC 8 NĂM HỌC 2012-2013 Thời gian: 90 phút (Không kể thời gian phát đề). Lời phê của giáo viên. A/ PHẦN LÝ THUYẾT: (5 điểm). Câu 1 (1 điểm) Biến a được nhận các giá trị là: 0 ; -1; 1; 2 . Ta có thể khai báo a thuộc kiểu dữ liệu nào? Câu 2 (1 điểm) Cho S và i là biến nguyên. Khi chạy đoạn chương trình : s:=0; for i:=1 to 3 do s := s+2*i; writeln(s); Kết quả in lên màn hình là bao nhiêu? Câu 3 (1 điểm) Viết chương trình nhập số x từ bàn phím. Đưa ra thông báo tính giá trị của biểu thức: x2 -1. Câu 4 (2 điểm) Viết chương trình nhập vào một mảng số nguyên. Tính tổng các số nguyên đó. B/ PHẦN THỰC HÀNH TRÊN MÁY (5 điểm) Câu 5 (2 điểm) Viết chương trình tính tổng các số tự nhiên từ 1 đến n (Với n được nhập trừ bàn phím) Câu 6 (3 điểm) Viết chương trình tính tổng các số chẳn trong n Với n được nhập từ bàn phím Ví dụ: Với n = 1234568 thì s = 2 + 4 + 6 + 8 BÀI LÀM .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... .......................................................................................................................................................... ...........................................................................................................................................................

<span class='text_page_counter'>(2)</span> HƯỚNG DẪN CHẤM VÀ THÁNG ĐIỂM Câu 1 ( 1 đ) 2 ( 1 đ). 3 ( 1 đ). 4 ( 2 đ). 5 (2 đ). 6 (3 đ). Hướng dẫn chấm Ta có thể khai báo a thuộc kiểu dữ liệu là Integer ( Kiểu số nguyên) Kết quả in lên màn hình là S = 12 Program bai5; Uses crt; Var x: integer; Begin Clrscr; Writeln(‘ Moi ban nhap so x=’); readln(x); Writeln(‘ Gia tri cua bieu thuc la:’, x/2+3); Readln End. Program BAI 4; Uses crt; Var N,i, tong: integer ; A:array [1..100] of integer; Begin Clrscr; Writeln(‘ Moi ban nhap so luong mang’); readln(N); For i:=1 to N do Begin Writeln(‘So thu’,i); readln (a[i]); End; For i:=1 to N do Tong:=tong+a[i]; Writeln(‘Trung binh cong cac so duong la’,TBC:2:1); Readln End. Program BAI 5; Uses crt; Var n,i, tong: integer ; Begin Clrscr; Writeln(‘ Moi ban nhap so n = ’); readln(n); Tong:=0; For i:=1 to N do tong:=tong+i Writeln(‘tong cac so nguyen tu 1 den ‘,n,’ la ‘ ,tong); Readln End. Program BAI 6; Uses crt; Var n,i, tong: integer ; Begin Clrscr; Writeln(‘ Moi ban nhap so n = ’); readln(n); While n <> 0 do If ( n mod 10) mod 2 =0 then begin tong:= tong + n mod 10; n:=n div 10; end; Writeln(‘tong cac so chan trong ‘,n,’ la tong = ‘ ,tong); Readln. Điểm (1 điểm) (1 điểm). ( 0,5 điểm) ( 0,5điểm). ( 0,5 điểm). ( 0,5 điểm) (0,5 điểm) (0,5 điểm) ( 0,5 điểm) ( 0,5 điểm) (0,5 điểm) (0,5 điểm). ( 0,5 điểm) ( 0,5 điểm) (0,5 điểm) (1 điểm).

<span class='text_page_counter'>(3)</span> End.. (0,5 điểm).

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