Đề kiểm tra học kì II môn Tin học 8 - Năm học 2014-2015 - Trường THCS Trần Phú (Có đáp án)

 Trường THCS Trần Phú
Họ và tên. KIỂM TRA HỌC KÌ II
Lớp:... Năm học 2014 - 2015
 Môn: Tin học 8 
A. Phần trắc nghiệm: (4,0 điểm) Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
 A. for i:=>1 to 10 do writeln(‘A’); C. for i:= 4 to 1 do writeln(‘A’);
 B. for i:= 1 to 10 writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Cho đoạn chương trình: S:= 4;
 For i:= 1 to 5 do S:= S + 2;
 Sau khi thực hiện đoạn chương trình trên, giá trị của biến S bằng bao nhiêu?
 A. 10 B. 12 C. 14 D. 16.
Câu 3. Câu lệnh trong pascal: S:=1; While S< 10 do s:=s*2; 
 A. 10 B. 12 C. 14 D.16
Câu 4. Giả sử ta có biến mảng A lần lượt có các giá trị của phần tử sau: 
 A Giá trị 5 8 9 5 3 5
 Chỉ số 1 2 3 4 5 6
 Ta có câu lệnh S:=0; S:=S+a[2]+a[5] thì giá trị S sẽ bằng bao nhiêu:
 A. 7 B. 9 C. 11 D. 13
Câu 5. Cách khai báo biến mảng A có 25 phần từ thuộc kiểu thực là :
 A. Var A : Array1..25 of Integer ; B. Var A : Array1.....25 of real 
 C. Var A : Array1..25 of real ; D. Var A : Array1..25 of integer ; 
Câu 6. Trong Pascal ta sử dụng lệnh : i:=4 while i<=n do i:=i+2; 
 Giả sử với n=10 thì giá trị của i =  
Câu 7. Trong Pascal ta sử dụng lệnh : S:=5; for i:=3 to 5 do s:=s+i ;
 A. 16 B. 17 C. 18 D.19
Câu 8: Cho đoạn chương trình: For i:= 1to 5 do beginend;
Câu lệnh lặp ở trên được thực hiện bao nhiêu lần?( vòng lặp được thực hiện bao nhiêu lần)
 A. 4 lần B. 5 lần C. 6 lần D. 7 lần
B. Phần tự luận: ( 6,0 điểm)
Câu 1. Viết cú pháp câu lệnh lặp với số lần biết trước, giải thích? (2 điểm) 
Câu 7: Viết câu lệnh lặp với số lần chưa biết trước, cho 1 ví dụ (1điểm)
Câu 2Viết chương trình nhập vào một dãy số nguyên bất kỳ, với n là số phần tử được nhập từ 
bàn phím, tính và in tổng của các số vừa nhập ra màn hình. (2 điểm) 
Câu 3. Viết chương trinh nhập vào 1 dãy số nguyên dương bất kỳ, in các số nguyên tố ra màn 
 hình ( 1điểm) End.
 Program nguyento;
 Uses crt;
 Var n, i,j: integer;
 Begin
 Clrscr;
 Write(‘Nhap N = ‘); Readln(n);
 For i := 1 to n do 
 Begin 
 Write(‘a[ ‘,i,’] = ‘); 
 readln(A[i]);
 End;
Câu 3 1
 Writeln(‘cac so nguyen to la:’);
 For i := 1 to n do 
 Begin
 J:=2;
 While a[i] mod j 0 do
 J:=j+1;
 If a[i]=j then write(a[i]:6);
 End; 
 Readln;
 End.